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The O.S. Source Updater (Program Number 03-057) is an INTERDATA 
OS Utility which provides the ability to create and maintain 
a source file on a mass-storage type device. Commands may be 
entered by the operator on the teletype or may be prepared be- 
forehand and read from catfds or some other media. Directives 
allow copying, verifying, modifying, or displaying of source 
files. To facilitate positioning and accessing files, commands 
for positioning to a desired named file or to a specific file- 
mark are provided. 

CONFIGURATION 

The Source Updater requires the following configuration to 
run: 

- Model 5, 50, 70, 74, 80 or 85 Processor 

- 8KB Memory 

- BOSS, DOS or RTOS 

- Input, Output and List Device 

The size of the Source Updater is 3,520 (X'ODCO 1 ) bytes. 
FORMAT 

In order for the Source Updater to function correctly, the 
volume must have an End of Volume mark (EOV) after the last 
file on the volume. An EOV consists of two file marks written 
back-to-back (see Figure 1) . 

The volume is made up of Source Files consisting of 80-byte 
records. Each record (Figure 2) can contain any ASCII source 
data in bytes 1 through 72. Bytes 73 through 80 are reserved 
for an 8-byte sequence number which is used for updating the 
source file. The end of a file is indicated by either a single 
file mark or an END statement as defined for the Assembler. 
If a file is terminated by an END statement, a file mark may 
optionally follow it for compatibility with other software 
systems. Figure 1 shows the format of a volume generated by 
the Source Updater. 
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4 . COMMANDS 

4 . 1 General Format 



Each Source Updater directive has the following general 
format : 

COMMand argl, arg2(,arg3). . . 

where the command specifies the operation to be performed. 
It must not have any extraneous characters preceding it 
and only the first four characters of commands containing 
more than four characters need to be entered. If the 
command has any arguments to be input, it must be sep- 
arated from the arguments by at least one space character. 
Otherwise, the command is terminated by a Carriage Return. 
The arguments are separated from each other by commas . 
If an optional argument (one enclosed in parentheses) is 
omitted, then the comma that would have separated it from 
the next argument must be present. If the last argument (s) 
is omitted, then the comma (s) separating the last argument (s) 
from the next previous argument may be omitted. 

If an error is made in typing the first four characters 
of the command or if an illegal command is input, the 
error message: 

ILLEGAL COMMAND 

is printed on the console and a new directive is requested. 
The message: 

OPERAND ERROR 

is printed on the console when one of the following condi- 
tions is detected: 

a) A required argument was not entered 

b) An incorrect argument type 

c) An illegal character; i.e., a non-decimal char- 
acter in a decimal argument or a non-hexadecimal 
character in a hexadecimal argument. 

After the message has been printed, a new directive is 
requested. 
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4.2 FIND Command 

This command searches the specified source file for the 
program indicated by the file name. After the file has 
been found, it is positioned immediately following the 
file identifier. The format of this command is: 

FIND file (,lu) 

where "file" is_ a six- character label preceded by **, o r 
a^ dgn-i^ial_niiTnhp.r indicatin g the nu mber of file' marks pe- 
tween_ the_ba ginnin g_ of__tap_e and,, the desired" "file . LU 
specifies the logical unit number of the device on which 
the searching is to be performed. If a LU argument is 
not specified, logical unit 1 (the Old Master File) is 
assumed. 

When the file has been located, the message: 

FOUND 

is output to logical unit 6 and a new command is requested. 
If the file name could not be found or more file-marks 
were specified to be skipped than were contained on the 
volume, the message: 

NOT FOUND 

is output to logical unit 6 and the next command is re- 
quested . 

For example: to find a source file with the name ' **FILE7' 
contained on logical unit 4 , the following command would 
be entered: 

FIND **FILE7,4 

Searching begins from where the volume is currently 
positioned. The command: 

FIND 6 

would cause the Old Master to be rewound, and the volume 
would then be positioned immediately following the sixth 
file mark on the volume. If the End of Volume is detected 
before the sixth file mark can be located, the message 
'NOT FOUND' is output to LU6 . 

4.3 COPY Command 

The COPY Command is used to copy a single source file con- 
taining a maximum of 80 bytes per record from one device 
to another. Before copying, the output device is searched 
for the End of Volume (EOV) . Note that the EOV must exist 
on the output device before issuing this command. When 
the EOV is found, the output device is backspaced over the 



-3- 



EOV, a File-Mark is written, and the specified input 
file is copied. After the end of the file or END 
statement is detected, another EOV is written and 
backspaced over. The format of this command is: 

COPY (file) (,LU) (,seqnbr) 

where "file" optionally indicates a specific Source 
File which is to be copied. If a six-character file 
label preceded by ** is specified, the input device is 
searched starting at its current position. The file 
is rewound if a decimal number is entered indicating 
the number of file marks between the beginning of tape 
and the desired file. Unless otherwise indicated by 
'LU', logical unit 1 is used as the input device. If 
the program is to be sequenced as it is copied, 'seqnbr' 
must be input; otherwise, no sequencing is done. The 
sequence number must be in the form AAANNNNN where AAA 
is any three character alpha-numeric identification and 
NNNNN is the initial five-numeric characters used as the 
sequence number for the first card. The sequence num- 
ber is incremented by tens and wraps back to zero after 
99990. 

During the copying process, each source statement is 
scanned for a' PAUSE* statement. When one is detected, it 
is copied on to the new Master Source Volume, the mes- 
sage: 

** PAUSE STATEMENT COPIED ** 

is logged on the console and an SVC pause is executed. 
After the operator has entered a Continue command, 
copying resumes from where the program left off. 

For example, to copy the source file '**FILE6' from 
logical unit 4 to the new Master Source Volume (lu2) and 
sequence each record beginning with the sequence number 
'SF600010', the following command is entered: 

COPY **FILE6,4,SF600010 

logical unit 4 is searched beginning from where the vol- 
ume is currently positioned. The first record of **FILE6 
is sequenced with the number 'SF600010'. 

The Command: 

COPY, 4 

would cause copying to occur from logical unit 4 to the 
new Master Source Volume without resequencing (the origi- 
ginal sequence numbers are copied) . Copying begins start- 
ing a logical unit 4's current position. 
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4 . 4 DUPE Command 

This command causes files to be continuously copied from 
one device to another. As with the COPY command, the 
output device is searched for the end of volume and 
back-spaced before program duping begins. Note that 
the EOV must exist on the output device before issuing 
this command. After all desired programs have been 
copied, a new end of volume is written on the output 
device (logical unit 2) and backspaced over. 

The format of the DUPE command is : 

DUPE (file) (,LU) 

where 'file* optionally specifies the file label at which 
copying is to terminate. The indicated file is not copied. 
If a specific file is not indicated, the duping terminates 
at the end of the volume. Unless otherwise indicated by 
'LU' , logical unit 1 is used as the input device. 

For example, the command: 

DUPE **FILE9 

causes files to be duplicated from the old Master Source 
Volume (lul) on to the end of the new Master Source Volume 
lu2) . Duplicating starts at the current position of the 
old Master and proceeds up to, but not including, file 
•**FILE9' . 

4 . 5 LIST Command 

This command provides an 80-80 listing of a Source file 
on logical unit 3. Each page is numbered in the upper 
right hand corner; and contains up to 56 lines. The list 
operation is terminated after an END statement is printed 
or when an EOF or EOV is detected. The format of this 
command is : 

LIST (file) (,LU) 

where the optional argument 'file 1 specifies a particular 
Source File that is to be listed. Otherwise, data is 
listed from the current position of the input device which 
is assumed to be logical unit 1 if not changed by the op- 
tional 'LU' argument. 

The following command: 

LIST 99,2 

causes logical unit 2 to be rewound and 99 (decimal) file 
marks to be skipped. The file immediately following the 
99th file mark is then listed on logical unit 3. 
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4.6 TABLE Command 

This command scans the specified logical unit after re- 
winding it and lists all program labels on logical unit 3. 
Thus, a table of contents of a Source File containing 
many labeled programs may be obtained. Program labels 
are indicated by two asterisk characters in the first two 
character positions of a record. The format of the com- 
mand is : 

TABLE LU 

Where 'LU' indicates the logical unit to be tabled. 

4.7 UPDATE Command 

This command puts the system in the UPDATE mode and 
sets up various parameters for the following update 
commands : 

INSERT - 
DELETE - 
MODIFY - 
END - Exit UPDATE mode 

These commands are legal only when in the UPDATE mode. 
The format of this command is: 

UPDATE (LU) (,RESEQ) 

where 'LU' specified the update logical unit from which 
new source statements are to be read. If *LU' is not 
input, logical unit 5 is assumed to be in the input de- 
vice. The 'reseq' option indicates whether or not re- 
• sequencing is to be performed during updating. If an 
'N' is input, no resequencing is performed and "sequence 
numbers should then be input with any new statements to 
maintain sequencing. If anything other than *N' is in- 
put, resequencing is performed. The initial sequence 
number is read from the first statement available on lo- 
gical unit 1; therefore, logical unit 1 must be positioned 
to the desired file before issuing the Update command. 

The following command: 

UPDATE 4 

puts the system in the UPDATE mode and reads the first 
statement from logical unit 1 to set the initial value 
of the sequence number of resequencing. New source state- 
ments are to be read from logical unit 4. 

4 . 8 INSERT Command 

The INSERT Command is used to insert one or more new 
statements into an existing source program. The end 
of the insertion process is indicated by a "/%" as the 
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first two characters of a record read from the update 
logical unit. The format of this command is: 

INSERT seqnbr 

where 'seqnbr' is the sequence number after which 
the new statements (s) is to be inserted. The new 
statements are read from the logical unit specified in 
the UPDATE Command. If the sequence number has not 
been found by the time an 'END' statement or an end 
of file is detected, the error message: 

SEQUENCE NUMBER NOT FOUND 

is printed on the console and the operation is aborted. 

To insert two statements between XXX00150 and XXX00260, 
the following statements must be entered (the update 
logical unit is logical unit 5) : 

INSERT XXX00150 

- statement #1 - 

- statement #2 - 

/% 
4.9 DELETE Command 

The DELETE command provides the capability to delete a 
single statement or multiple statements from a source 
file contained on logical unit 1. The format of the 
command is: 

DELETE seqnrl (,seqnr2) 

where 'seqnrl' specifies the sequence number of the 
first statement to be deleted. If 'seqnr2' isnnot in- 
put, only the statement specified by 'seqnrl^ is deleted. 
If *seqnr2' is specified, statements between 'seqnrl' 
and ' seqnr2 ' inclusively are deleted. 

If 'seqnrl' or ' seqnr2 ' is not found by the time an 
'END' statement or an end of file is detected, the error 
message: 

FIRST SEQ NBR NOT FOUND 

for 'seqnrl' or the error message: 

SECOND SEQNBR NOT FOUND 

for *seqnr2' is printed on the console. The operation is 
aborted when a sequence number is not found. 

To delete statements AAAOIOIO to and including AAA01500, 
the following command is entered: 

DELETE AAAOIOIO, AAA01500 
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4.10 MODIFY Command 

The MODIFY Command is used to delete a single statement 
and insert a new statement in its place. The format of 
the command is: 

MODIFY seqnbr 

where 'seqnbr' indicates the sequence number of the 
statement to be modified. If the sequence number can 
not be found before an 'END* statement or an and-of-file 
is detected, the error message: 

SEQ NBR NOT FOUND 

is printed on the console. 

To use the MODIFY command to delete statement AAA01000 

and replace it with a new statement, the following sequence 

is input (the update logical unit is 5) : 

MODIFY AAA01000 

- new statement - 

4.11 VERIFY Command 

The VERIFY command is used to compare one source file with 
another. Verification is terminated normally when an 
"END" statement or end of file is detected. An abnormal 
termination occurs when a mismatch is detected. When 
this occurs, the message: 

** VERIFICATION ERROR ** 

- Record 1 - 

- Record 2 - 

is printed on the List device (LU3) and then the program 
pauses. Record 1 is the source statement read from 'LU' 
or logical unit 1 and Record 2 is the statement read from 
logical unit 2. On continuing, the next records follow- 
ing the error records are read and compared, thus allow- 
ing all compare errors in the source records to be found. 
The format of this command is: 

VERIFY (LU) (,80) 

where 'LU' indicates which logical unit is to be used for 
the primary input. (Default is logical unit 1) . The 
argument '80' indicates whether 72 or 80 character records 
are to be verified. If 'N' is specified, 72 character 
records are compared. If anything else is input or 
nothing in input, 80 character records are compared. 

NOTE 

Although 72- or 80- byte records are the only 
record sizes available, smaller records can be 
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compared since verification terminates, at the 
record level, on detection of a Carriage Return 
(X'0D«) in either one of the input records or 
after successful verification on the 72nd or 
80th character. 

4.12 END Command 

This command cuases the remainder of a file which is 
being updated to be copied to logical unit 2 and the 
Update Mode to be terminated. The input is read from 
logical unit 1 and resequencing is performed as indi- 
cated in the UPDATE command. 

4.13 WEOV Command 

This command cuases two file marks to be written on 
the specified logical unit and then backspaced over. 
The format of this command is: 

WEOV LU 

where 'LU' is the logical unit number of the device on 
which the file-marks are to be written. 

4.14 REWIND Command 

This command rewinds logical unit 'LU' and is in the 
form: 

REWIND LU 

4.15 PAUSE Command 

This command causes the Source Updater program to re- 
linquish system control to the Operating System via an 
SVC Pause. 

4.16 EOJ Command 

This command causes the Source Updater program to go 
to End of Job via an SVC EOJ. 

5. OPERATING INSTRUCTIONS 

The following are instructions for loading and executing 
OS Source Updater: 

a. Load an operating system: BOSS, DOS or RTOS. 
If RTOS is used, OS Source Updater must be 
established as an RTOS task. (See RTOS Ref- 
erence Manual Publication Number 29-240 for details). 

b. OS Source Updater is a relocatable program 
and may be loaded at any desired BIAS with 
the OS Resident Loader or the OS Library 
Loader . 
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c. Make the following logical unit assignments: 

LU 1 - Old Master Source Volume 
LU 2 - New Master Source Volume 
LU 3 - List Device 
LU 5 - Operator Command Input 
LU 6 - Operator Message Output 

NOTE: The devices used for maintaining 
the Source Volume must be able to 
support rewind, backspace a record, 
write file-mark, and skip forward 
to file-mark commands. 

d. Start OS Source Updater at its origin. The 
restart address is also its origin. 
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Slin00980 

SUD00990 

sunoiooo 

SI1D01010 
S1ID01020 
SUD01030 

SIJO01040 

suooioso 

SIJO01060 
SU001070 
SUOOIOSO 
SUO0109O 
SUO01100 
SUDOlllO 

SUD01120 

SUO0H30 
SUDOllHO 
SIIO01150 
SUD01160 

SII001170 

sunonao" 

SU001190 
SIID01200 

SUD01210 
SUD01220 
SIID01230 
SUD01240 
SUO01250 
SUD01260 

SUD01270 



INTERDATA 


0. S. SOURCE 


UPOATER 03 




1000 






OODCR 


CflSC 
FFFF 


AHI 


AC2t-UAC6) 


00E0R 


0378 
0002 


ASCRTl LB 


AC1,2(AC2) 


onE4R 


D29fl 
0002 


STR 


AC3«2(AC2J 


00E8R 


0897 


LHR 


AC3.AC1 


OOEAR 


2781 


SIS 


AC2.1 


OOECR 


?7C1 


SIS 


AC6.1 


OOEER 


?027 


BPS 


ASCRT1 


OOFOR 


93C0 


lRr 


AC6.AC7 


OOP2R 


088E 


LHR 


AC2.AC8 


OOF4R 


«*30 

onrx+R 


R 


ASCRT 






* 

* HEXIDECIMAL ARGUMENT 


OOFft" 


07RR 


* 

HEX XHR 


AC5.AC5 


OOFAH 


?5fll 


LCS 


AC2.1 


OOFCR 


rsro 

0004 


CLHI 


AC6.4 


OlOOR 


2386 


BNLS 


HEX01 


0102R 


91C2 


SLLS 


AC6.2 


0104R 


C08C 
0000 


slhl 


AC2«0(AC£) 


OlOflR 


r.7ao 

FFFF 


XHI 


AC2.-1 


OIOCR 


■♦170 
0146ft 


HfX i BAL 


AC1.GETCHR 


OllOR 


C590 
0030 


CLHI 


AC3.C0' 


0114R 


4280 
018AR 


RL 


ERROR 


0118R 


C59Q 
0047 


CLHI 


AC3,CtG» 


OllCR 


4380 
018AR 


BNL 


ERROR 


0120R 


C59(l 
003A 


CLHI 


AC3,X»3At 


0124R 


2186 


BLS 


HEX02 


0126R 


C590 
0041 


CLHI 


ACS.CtAi 


012AR 


4280 

fllBAR 


BL 


Error 


012ER 


2797 


SIS 


AC3.7 


0130R 


C490 
OOOF 


HEX02 NHI 


AC3.X»0F« 


0134R 


91B4 


SLLS 


AC5.4 


0136R 


06R9 


OHR 


ACS.AC3 


(1138R 


04RB 


NHR 


ACS t AC2 


013AR 


tfeDO 
4000 


OHI 


AC7tX«4000« 


013ER 


4 ORE 
0002 


STh 


AC5.2(AC8) 


0142R 


«*300 


B 


HEX01 



03-057R00A13 



PAGE 



MOVE ARGUMENT LEFT AND 
INSERT NEU CHAR- 
MAKE OLD CHAR THE NEW CHAR 

REINITIALIZE POINTERS 
GO FETCH NEXT CHAR 



CLEAR RESULT 
CALCULATE MASK VALUE 

MULTIPLY COUNT RY 4 

COMPLEMENT MASK 

FETCH A CHAR FROM STRING 

INSURE C H AR IS A VALID H EX 

CHAR. IF woT. EXIT STAGF 

RIGHT. 



MASK TO 4-BITS 

MAKE ROOM FOR NExT DIGIT 
INSERT IT IN HOLE 
MASK TO DESTWETJ VALUE 
SET PARAMETER FND FLAg 

SAVE in PARAMCTER BLOCK 



KUO012B0 
SUD0129Q 

siinouoo 

SIIO01310 
SI 1001320 
Slinoi330 
SIID01340 
SUD01350 
Slinoi360 
Slinol370 

SIII101380 
SI 11)01390 
SIIH01400 
SI 11)01410 
SUD01420 
SIIH01430 

SIID01440 
SU001450 
SU001460 

SUO01470 

SI)noi480 

SUU01490 

sunoi*soo 

SIIO01510 

SUO01520 

Slinoi530 

SUIJ01S40 
SUD01550 

sunoisfio 

Si 1001570 
SUD01580 

Sllf)01590 
SU001600 
SUDOlf.10 
SUOOlf.20 

SUO01630 

SUD01640 



INTCRDATA o. S. SOURCE UPDATeR 03-057R00A13 

010CR 



PAGE 



nmfeR 039a 

0D6ER 
Ol'tAR P6A1 

no?o 

PtlSflR 2235 
0152R C590 

002C 
OlfifcR ?33r 
0158r C59(l 

ooon 

D15CR 0237 



OISEr C30o 
3000 

0162R «*330 
018AR 

"166R CfeDO 

8000 
016AR 27A1 
016CR 400E 

0000 
0170R c^OO 

0800 
017*R 2135 
0176R C3Do 

<*000 
017AR *330 

OlflAR 
017ER C30o 

2000 
01B2R 1*330 

007ER 
OlflfeR 08DD 
0188R 021F 
OlSAR F120 

OCF«»R 
018ER 4300 

OOOAR 



* CHe'cKS !!™!/^'^ 5 * CHAR "° M ™* CHAR STRING 

* Rou^VJs St rVif'it* s H r s C PArr THE TT T ^ INATI0N 

* OTHERWISE, THE CAR Xs\^l^r^^l\^Tr^ 
GETCHR LB AC3.RFR(AC<M p 1C K UP A CHAR 



0192R 01F8R 
019*R 0202R 
0196R «»870 
0D56R 



ENOl 



EN02 



ERROR 



AIS 
CLHI 



AC<»,1 
ACS.c* • 



HES GFTCHR 

CLHI AC3,Ci,i 

HES ENOl 

CLHI AC3,Xt Oi 

BNEr AC1 



TERMINATION 

THI AC7,x«3000» 

B2 ERROR 

°HI AC7tX»8000» 



sis 

STH 



ACU.l 
AC7,0(ACflj 



IS IT a SPACE 

IF SO, IGNORE IT 
IS IT A COMMA ? 

IF SO. GO TO TfRMINATION 
HOW ABOUT A CAR RfM ? 

IF NOT. GIVF CHAR TO CALLEr 



COULD THIj; BE T HE END ? 



SET END-OF-STRING FLAG 

BACKUP PTR TO CAR rtn 
RESTORE CONTROL WORD 



*HI AC7«X»0866* T<; TuT „ noTT _. 

!-"> i HIS a OPTIONAL ARG ? 



HN?S END2 

THI AC7,X.* 00 0« 



BZ 

THI 

BZ 

LHR 

RMR 
SVc 

e 



ERROR 
AC7.X.2000* 

parser 

AC7.AC7 

LNK 

2.ARGERR 

START 



IF NOT, WAS IT FOUNO ? 

no. then it is f *r*r*o*r 
eno-of.parameter list ? 

NO. GO GET NEXT PARAMETER 

YES, SHOULD BE STRING END 
IF MINUS. AOK 
LOG ERROR MSG 



* 
FNDLAB 



FIND LarELi.LU) 

DC LABELfi 
OC LABEL9 
LH AC1.MODE 



WHAT MODE ARE WE IN ? 



SUD01650 
SUD01660 
SUD01670 
SUD01680 
SU001S90 
KUDO 1700 
SUD01710 

SIID01720 
SUD01730 

SUD 017*0 
SUO01750 

SU001760 
SIID01770 

SIID01780 
SUD01790 

sunoiaoo 

SUD01810 
SUD01820 
SUDO1830 

SUD018*0 
SUDOiSbO 

SIJO018G0 
SUD01870 

SI in 01 88 

Snf)01890 
S1ID01900 

SUQ01910 

Si ID 01 920 

.Stl[]01930 

SUD019IJ0 

snnoi95d 

Sl)n01g 6 

SUD01970 

SIID01980 
SUD01990 
KUi)02000 
SU002010 
SUD02020 
SUD02030 



INTF.RDATA 


0. S. SOURCE 


UPDATER H3-( 


019AR U230 




RNZ 


CMOERR 


0062R 
01A0R H»70 




LIS 
LH 


AC2.1 
ACl.LARf L9 


0202K 
OIAHR 0A77 
nlA^R 2313 
OiAftR n38o 




AHR 

BNMR 

LB 


ACl.ACl 

LABEL 

AC2.LAREL9+3 


OlACR D2B0 


LARFL 


STB 


AC2.REA0+1 


IICHIR 
OlBOR D2«n 




STR 


AC2.RKSP+1 


0CC9R 
01R«*R 0280 




STR 


AC2,FNntOF+l 


occur 

OiBSR D280 




STB 


AC2«REU+i 


0CD5R 
01RCR <UEO 




BAL 


ACS. SEARCH 


0AD8R 
01COR OlFAR 




OC 


LARf-LB+2 


01C2R <»300 




R 


NOTFND 


niE^R 

01C6R <*1F0 




BAL 


LNK.IOSURR 


09C0R 
OICAR 0CC8R 
OlCCR EllO 




DC 
SVC 


BKSP 
l.FNDMSG 


nnofeR 
01D0R '♦floo 




LH 


RO.FNDMSG+2 


0O08R 
01D«*R '♦SSO 




BZ 


START 


OOOAH 
01D8R F120 




svc 


2.CONV01 


oni6R 

OlDCR F120 




SVC 


2.L0GE01 


0D1AR 
OlFOR "*300 




B 


START 


OOOAR 


* 






D1FHR U1F0 


* 
NOTFND 


BAL 


LNK.IOSURR 


o«*cor 

01F8R 0CC8R 
OlEAR tlFO 




DC 
BAL 


BKSP 
LNK.IOSURR 


09C0R 
01EER OCCBR 
OlFOR F120 




DC 
SVC 


BKSP 

2,NFMsG 


on<*8R 

01F4R *300 




B 


START 


OOOAR 


* 






01F8R 1t08 
OlFAR 
0?02R ?AOl 


LABELS 
LABEL? 


DC 
DS 
DC 


X«140S» 

8 

X»»A01«.0 


0000 
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IF UPDATF MODE, ERROR 



FIND DESIRED PROGRAM 



log •found* msg 
any problems 7 

convert status to ascii 
log error msg 
get next commami 

backspace over eov marker 



LOG »NOT FOUND* MsG 



SUD020<*0 

5UIO02050 
Slin02080 

StlD02070 

snn020flo 

.Slin02090 
SIIH02100 

sun02iio 

Slin02120 
Si 11)02130 

suno2i«»o 

snno2i¥>o 
siino2i(,o 

SU002170 

SUD02180 
SU002190 

SIIO02200 

Slli>02?10 

Stil)02220 

SIIOO??30 

Slll)0??<*0 

SIIU02250 
SIID02260 
5111)02270 

.SIID02280 
SIIO02290 

SUD02300 
SU002310 

SUD02320 

SUD02330 
SUD02340 
SIIO0235O 
SU0023fcO 
SUD02370 

SUD02380 



INTFROATA 0. S. SOURCE: UPDATER 03-057hOOA13 
* COPy (LARELM.INM.NEUSEO) 



PAGE 



OPOftR 

n?oftn 
d?Oar 
opocr 

0210R 

0?14r 

0216R 
021AR 

021ER 
0222R 

0226R 
022SR 

022CR 
022ER 
D2S0R 

0234R 

0236R 
0238R 

02SCR 
023ER 
02«K)R 

Op44R 

0248r 

024CR 

0250H 

0254R 

0238R 
025AR 

025FR 

0262R 
0264R 

(1268R 



n?nrR 

02C6H 
0?CAR 
4870 

nns6R 

4230 

0062R 

2472 

027o 

0CC9R 

0270 

OCCDR 

D270 

0CR1R 

41F0 

09C0R 

OCCCR 

4lF 

09COR 

OCBOR 

2236 

«HFO 

09C0R 

nccaR 

2481 

487o 

02C6R 

0A77 

2313 

0380 

02C9H 

r>2fl0 

0CB1R 

D2A0 

OCCOR 

0280 

0CD5R 

D280 

0CC9R 

4870 

02RCR 

0A77 

4310 

026AR 

41F0 

0AD8R 

02RER 

4300 

01F4R 

2306 



COPY 



nc 

DC 
DC 
LH 



LIS 

STR 

STB 

STR 

COPYOO BAL 

DC 
BAL 

DC 

B2S 

BAL 

DC 
LIS 

LH 

AHR 



COPYOi STB 
STB 
STB 
STR 
LH 
AHR 



DC 

B 

BS 



A(COPLAR) 
A(COPTN) 

A(NEUSFQ) 

An .mode 



BN7 CMOERR 



AC 1,2 
ACl,RKSP«.l 

ACl«FNDEOF-fl 

AC 1, READ + I 

LNK.IOSURR 

FNOEOF 
LNK.IOSURR 

READ 

CflPYOO 

LNK.IOSURR 

BKSP 

AC2.1 

AC1.C0PIN 



AC1.AC1 
BNMS COPYOI 
LB AC2.C0PIN+3 



AC2.READ+t 

ACa.FwOEoF+i 

AC2.REU+1 

AC2,RKSP*1 

AC1.C0PLAB 

AC1.AC1 
COPY20 



BAL AC8, SEARCH 



026AR 41F0 
09C0R 



COPY20 BAL 



AJC0PLABI+2 
NOTFND 

C0PY21 
LNK.IOSURR 



WHAT MODE ARE UF TN 7 
IF UPDATE MODE. ERROR 



SEARCH FOR END OF VOLUME 



BACKSPACE OVER IT 



SEARCH FOR DESIRED PROGRAM 



SUD02390 
SII002400 

SIID02410 
SIIO02H20 
SIJn02430 
.SIIH02440 

SUO02450 

SIJU02460 
SUD02470 

SIID02480 

5UDO2490 

SUD02500 

SUD02510 
SIID02520 

SIJ002530 
SIJD02540 
SIID02550 

Sim02S60 
RUD02570 
SII002580 

SUD02590 
SOD02600 
SIJD02610 

SUD02fe20 

SUD02630 

SUD02640 

SHD02650 

SIID02660 

SIID02670 
Snn026fl0 

SHD02690 

.SUOC2700 
SIJ002710 

SU002720 
SUD02730 
SUO02740 
SUn02750 



IfuTFROATA 0. S. SOURCE UPOATER 03-057R00A13 



PAGE 



026ER 
0270R 

0274R 

027BR 
027AR 

02TER 

0282R 

0286R 
0288R 

02flCR 

02arR 

0292R 

n?9«R 

029CR 
02A0R 
02A4R 
02A8R 

Q2AER 

02B2R 
02B"»R 

02B8R 



OCBOR 

4230 

02B2H 

UftTO 

02CAR 

0A77 

4310 

0288R 

•UFO 

OAAOR 

4J.F0 

nciAR 

02O2R 

41F0 

09C0R 

OCCOR 

"UFO 

0BB4R 

5041 

5533 

1*520 

4300 

02A4R 

F120 

nanuR 

F120 

ncnaR 

tlFO 

nnR4R 

4S4E 

4420 

2020 

4300 

026AR 

2472 

<»iro 

096AR 
"♦300 

nnoAR 



02BCR IC08 

02BER 

02C6R lAol 
0000 

02CAR 2908 

02CCR 

0204R 0007 
001C 
2A2A 
2050 
4155 
5345 
2053 
5441 
5445 



DC 
BN2 

C.0PY21 LH 

AHR 
BNN 

BAL 

BAL 

DC 
COPY40 BAL 

DC 
BAL 

DC 



B 

SVC 
SVC 
C0PYH5 BAL 
DC 



COPY50 LIS 
BAL 



C0PL*B QC 

DS 

COPIN DC 

NEWSEQ DC 

DS 

PSMSG DC 



READ 
COPY50 

AC1.NFWSFQ 

ACl.ACl 
COPY40 

LNKtRESEQ 

LNKiDECINC 

NEUSEq*8 
LNK.IOSURR 

WRITE 
LNKtEXTRCT 

C'PAUSE • 



C0PY"»5 
2, PSMSG 
2.PAUSE 
LNK.EXTRCT 
C'END « 

COPY20 

AC1.2 

AC8tUFMS 

START 



WAS A SEQUENCE ARG INPUT ? 
INCREMENT SEO NBR BY TEN 

is this a »pausf» stmt ? 

NOt CHFCK FOR AN 'EnO' STMT 
YES. LOG OPERATOR MSG 
AnD PAUSE 



FETCH LU OF NEW FILE 

WRITE AN *EOF« AND BACKSPACE 



X»1C08» 

8 

X«lA01«t0 

X«?908» 

8 

7,28tC«** PAUSE STATEMENT COPICn ** » 



SUD02760 
SU002770 

SIJO027B0 

Slin02790 
SIID02800 

SU002810 

SIID02820 

SUD02830 
SIID02840 

S1IU02850 
S(in02ft60 

SHU02870 

suno2880 

SUO02890 
SUD029Q0 

SMD02910 
SUI10292O 

SUO02930 

SMO02940 
SUD02950 

SllDO29fc0 

<Uir)02970 
^llf)0?980 
SIJD02990 
SIID03000 
SIID03010 

SUD03020 
SUD03030 
SUO03040 



INTTRDaTa 0. S. SOURCE UPOATER 03-057R00A13 



PAGE 





tD<»5 










4E5«t 










?0«»3 










<»F50 










«»9<*5 










HUSO 










2A2A 












* DUPE f LABEL) (.IN) 


n2F4R 


0394R 


* 

DupE 


OC 


A(OUPLAU) 


02F6R 


039ER 




DC 


A(DUPIN) 


02F8R 


U870 
0056R 




LH 


AC1.M0OE 


n?FCR 


4230 
0062R 




BN* 


CmOERR 


0300R 


2«»72 




LIS 


AC1.2 


0302R 


0270 
OCRIR 




STB 


ACl.REAO+1 


0306R 


0270 

orniR 




STB 


AC1,URTE0F+1 


030AR 


0270 
(1CC9R 




STB 


AC1.BKSP+1 


030ER 


0270 
OCCDR 




STB 


ACI.FNOEOF+I 


0312R 


<*1F0 
09C0R 


DUPoOO 


BAL 


LNK.IOSUBR 


031 f.R 


occc« 




OC 


FNOEOF 


031BR 


«*1F0 
09C0R 




BAL 


LNK.IOSUBR 


031CR 


OCROR 




DC 


READ 


031ER 


2236 




BZS 


OUPOOO 


6 32 OR 


UlFo 
09C0R 




BAL 


LnR.TosuRr 


032HR 


OCCflR 




OC 


BKSP 


032&R 


UlFO 
09C0R 




BAL 


LNK.IOSUBR 


032AR 


OCCflR 




DC 


BKSP 


032CR 


2<*fll 




LIS 


AC2.1 


032ER 


H870 
039ER 




LH 


AC1.DUPIN 


0332R 


0A77 




AHR 


AC1.AC1 


033«*R 


2313 




BNHs 


DUP005 


0336R 


0360 
03A1R 




LB 


AC2.DUPIN+3 


033AR 


0280 
0CR1P 


DUP005 


STH 


AC?.REA0+1 


033ER 


02fl0 
0CC9R 




STB 


AC2.RKSP+1 


03i»2R 


<UFO 
09C0R 


OUPOIO 


BAL 


LNK.IOSURR 


03«HiR 


OCRoK 




DC 


READ 


03«f8R 


2339 




BZS 


DUP015 


03«UR 


«HFO 
09C0R 




BAL 


LNK.IOSUBR 


03<»ER 


OCDOR 




DC 


URTEOF 



WHAT MODE ARE UF IN 7 
IF UpnATF rtOOF. ERROR 



SEARCH FOR END OF VOLUME 



BACKSPACE ovEr IT 



SUD03050 
SU0030BD 
SU003070 
SU0030flO 
SIID03090 
SIIO03100 

.'•uinosno 

KIIO03120 
SU003130 

RuD03l»0 

SUD03150 

SUOD3160 

RUO03170 

sunOSlflO 

SUO03190 

SUD03200 
SUO03210 
5UJO03220 

SHD03230 
SUD032«tO 

SUO 03250 

SUD03260 
SIJ003270 

SUDO32A0 
SUD03290 
SHO03S00 

SUU03310 

SKD03320 

SHOO 3330 

SllO033<*0 
SH003350 
SUD03360 

SUD03370 



INTEROATA 


0. S. SOURCE 


UPDATER 03- 


0350R 


UIFQ 
09COR 




BAL 


LNK.IOSURR 


035UR 


0CR0R 




DC 


RFAD 


0356R 


*»230 
038HR 




BN7 


DUP030 


035AR 


<*870 
039*R 


DUP015 


LH 


ACltDUPLAB 


035ER 


0A77 




AHR 


AC1.AC1 


0360R 


U310 
37AR 




BNM 


DUP020 


nsfetR 


tftflO 
0396R 




LHI 


AC2.DUPLAB+2 


0368R 


«»1F0 
0B68R 




BAL 


Lnk.Labchk 


H36CR 


U3nn 

037AR 




B 


DUP020 


0370" 


UlFo 
09C0R 




BAL 


LNK.IOSURR 


037<*R 


0CC8R 




DC 


BKSP 


0376R 


U300 

n38AR 




B 


DUP099 


037AR 


41F(1 
09C0R 


* 
DUP020 


BAL 


LnK.IqSURR 


037ER 


OCCOH 




DC 


WRITE 


03fl0R 


•♦300 
03U2R 


* 


B 


OUP010 


0384R 


U1F0 
09C0R 


* 
« 
DUP030 


BAL 


LNK.IOSUrR 


038AR 


0CC8R 




DC 


BKSP 


038AR 


?<*72 


D1JP099 


LIS 


AC1.2 


038CR 


tlFO 
096AR 




BAL 


AC8.WFMS 


0390R 


•♦300 
OOOAR 


* 


B 


START 


(139HR 


lto8 


* 
DUPLAB 


DC 


X'lCQB* 


0396R 






DS 


8 


039Er 


?A0l 
0000 


DUPIN 


DC 


X»2A01«.0 






♦ TARLE HI 




03A2R 


0436R 


TABLE 


DC 


TABLU 


03A«»R 


1*870 

0056R 




LH 


AC 1, MODE 


03A8R 


U230 
0062R 




BN7 


CMDERR 


03ACR 


H370 
0U39R 




LB 


ACI.TABLU+3 


03B0R 


D270 




STR 


ACl.READ+1 



03-057R00A13 



PAGE in 



FETCH AnriR Of DESIRED LAREL 
DOES THIS RECORD EflUAL IT 7 
NOT FOUND 7 
FOUND. RACKSPACE OVER TT 



BACKSPACE OVER EOV HARK 



WRITE AN EOF ON NEW MaSTFR 



WHAT MODE ARE UE IN 7 
IF UPDATE MODE. ERROR 



SUD03360 

SUD03390 
SllD03<*00 

SUD03<H0 

Slin03t20 
Slino3<»30 

suno3tto 

SHD03U50 
SUD03*60 

snno3«»70 

SUO03<»fl0 

SIJO03490 

snnossoo 

RHO03M0 

SIID03520 
SU003530 

SUO035t0 
Slin03550 
SUD03560 
KUD03570 

SUO03580 
SIID03590 

suno3f>ao 

SI 1003610 

stmo3fe?o 

Snt)03630 
SUO03640 
SUD03650 
SUD0 3660 
SU003670 

SIID03680 
SUD03690 
SUD03700 
SUD03710 
SU003720 

SU003730 

SUD03740 

SUO03750 



INTFRDATA O. S. SOURCE UPOATER 03-057R00A13 



PAGF 11 



0CB1R 








03B<*R 0270 




STB 


ACl.REU+1 


nensR 








03B8R D270 




STB 


AC1.HKSP+1 


0CC9R 








03BCR «UFO 




BAL 


LNK.IOSUBR 


09COR 








03C0R 0CD4R 




OC 


RFU 


03C2R F110 




SVC 


l.PRTHDR 


043AR 








03r.&R uflno 




LH 


R0.PRTHOR+2 


043CR 








03CAR 4230 




BNZ 


TAB045 


nmAR 








03CFp 41F0 


TAB010 


BAL 


Lnk.tosubr 


09C0R 








03D2R ncnOR 




OC 


READ 


03O4R 2336 




B2S 


TAB011 


03D6R 41FQ 




BAL 


LNK.IOSURR 


09C0R 








D3DAR nCBOR 




OC 


READ 


(13DCR 4230 




BN2 


TAROfiO 


C1426R 








03F0R 4870 


TAR011 


LH 


AC1.RFR 


006FR 








O3E4R C570 




CLHI 


ACltC**** 


2A2A 








03F8r 4230 




BNF 


TABolO 


03CFH 








O3ECR 2498 




LIS 


AC3.8 


03ET.R 0219 


TAR015 


STB 


SPC.LABSAV.KAC 


0O5FR 








03F2R 2791 




sis 


AC3.1 


03F«»R 2033 




BN7S 


TAB015 


03F6R 0379 


TAB030 


LB 


AC1,BF R (AC3) 


006ER 








03FAR C570 




CLHI 


ACl.X'OD' 


0000 








03FEr 2338 




BEs 


TABOUO 


0400« 0279 




STB 


AC1,LABSAV(AC3J 


0060R 








0404R 2691 




AIS 


AC3.1 


0406R C590 




CLHI 


AC3t8 


0008 








040AR 4280 




RL 


TARflSo 


03F6R 








OtoFR FHo 


TABo^O 


SVC 


l.PRTLAB 


0442R 








0412R 4800 




LH 


RO.PRTLAB+2 


0444R 








0416r 4330 




RZ 


TAflOlO 


03CER 








041AR E120 


TABq45 


SVC 


2.TAB910 


044AR 






■ " 


041ER E120 




SVC 


2.TAB911 


044ER 









IS THIS THE END OF VOLUME ? 

YEs. E N oF OPERATION 
IS THIS A LABEL RECORD 7 

NO, KEEP SEARCHING 
YES. PRINT IT 



FINISHEl MOVING THE LABEL 7 



SUD03760 

KI1D03770 

SUD037BtT 

SHD03790 
SIID038OO 

SUOO3810 

SUO03820 

.SOD03830 

SIID03840 
KUDO38S0 
SUO03860 

SUD03B70 
SUD03880 

SIIO03890 

SUDO39OO 

5U)O03910 

SUDO392O 
SUD 03930 

SUO03940 
SUD03950 
SUD03960 

SUD0S97O 

SUD03980 
SU003990 

KIID04000 
SUD04010 

SUD04020 

SIIO04030 

SU004040 

SljO04050 

SUD04060 

SUD04070 



INTERDATA 0. S. SOURCE UPOATER 03-057ROOA13 
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0422R 4300 
OOOAR 



042&R 11F0 

09C0R 
042AR 0CC8R 
042CR 41F0 

09r.0R 
0430R OfCftR 
0432R 4300 
\ OOOAR 



START 



0436r 
043Aft 

0442r 

044AR 
044ER 



0464R 



0479R 



2201 
0000 

?aos 
oooo 

0464R 

0479R 

2M03 

0000 

ODfiOR 

0067R 

0006 

0460R 

0007 

0012 
5052 
494E 
5420 
4552 
524F 
5220 
2n20 
5658 
5858 
OCOO 
0000 
0000 
0000 
0000 
2020 
5052 
4F47 
5241 
4053 
3A20 



047AR 0518R 
047CR 0522R 
047FR 4870 



TAB050 SAL LNKtTOSTJHR 

DC BKSP 

HAL LNK.IOSURR 



DC 
B 



TAflLU DC 
PRTHDR DC 



BKSP 
START 



X»2201« .0 
X»2803».0,TABHDr,HDrENO 



PRTl*R DC X»2803«.0.lABsAv.lAP.SAV + 7 

TAH910 DC 6.TAB9H + 18 

TAh911 DC 7,18,c'PRINT ERROR - XXXX» 



TABHDR DC X«OCO0»tO,O«O,0,C« PROGRAMS S • 



HDREND EQU *-l 

♦ LIST (LABELM.LUl 

* 

LIST DC LIST90 
DC LIST91 
LH ACltMODE 



SUD04080 

SDD04090 
SUD04100 
SIJD04110 
SUD04120 

SUO04130 
SUH04140 

£11004150 
SIIO04160 

SUD04170 
Slin04180 
SIJD04190 

?;un04200 



SUD04210 

SIID04220 
SUU04230 



SUD04240 



WHAT MODE ARE UP IN 7 



SUD04P50 
SUD04760 
SUD04270 
SIID042A0 
SU004290 
SUD04300 
SU004310 



INTFROATA 0. S. SQURCF UPOATER O3-057kO0A13 
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0H82R <*230 


HN7 


CMDERR 


noft?R 






nlA^R ?tAl 


LIS 


AC2.1 


nuftflR <*«7n 


1 H 


ACt, I IST91 


0522R 






ouscr 0A77 


AHR 


ACl.ACl 


0<*«FR 231S 


RNMS 


LIST01 


0*90R H3fl0 


LB 


AC2,LIST91 + 3 


0525R 






0«*9<*R D2fl0 LIST01 STB 


AC2.READ+1 


0CB1R 






0498R D2flO 


SyB 


AC2.BKSP+1 


0CC9R 






0J*9CR CB70 


LHT 


AC1.X»3030» 


3030 






01A0R <»070 


STH 


ACI.PAGnRR 


058FR 






0<»A<*R U07o 


STH 


ACl.PAGNBR+2 


0590R 






OUASR 07BB 


XHR 


ACS, ACS 


OUAAR «*87o 


LH 


ACl.LI.ST9o 


0518R 






Ol»AER 0A77 


AMR 


ACl.ACl 


OMBOR 4310 


BNM 


LIST20 


04C2H 






04RHR 41Fq 


BAL 


ACS, SEARCH 


0AD8R 






04r8r 051AR 


DC 


LIST90+2 


04BAR 4300 


R 


notFno 


01F4R 






04BER H300 


B 


LIST30 


0402R 

* 






* 
04C2R 4lFo LISfJo BAL 


LNK.IOSuRR 


09C0R 






OijCfeR OCBOR 


DC 


READ 


D4C8R 4230 


BNZ 


LIST50 


OSOOR 






04CCr 27B1 


SIS 


AC5.1 


OUCFR 1*220 


BP 


LISTHo 


04E8R 






04D2R 4lF0 LIST30 BAL 


LNKtOECINC 


0C1AR 






0406R 0591R 


DC 


PAGNRR+3 


04D8R 41F0 


BAL 


LNK.IOSUBR 


09C0R 






04DCR 0526R 


DC 


LIST93 


040£R Ulpo 


BAL 


LNK,IOSUBR 


09C0P 






04F2R 052FR 


DC 


LIST94 


0l»Ei*R C8B0 


LHI 


AC5«56 


0038 






04E8R 41F0 LIST40 BAL 


LnK.TqSUBr 


09C0R 







IF UPDATF mode, frror 



FIND THF REOUFSTED PROGRAM 



OUTPUT TOP-OF-FORM SEQ AND 



PRINT PAGE NBR AT TOP-OF-PAGt 



INITIALI7F LINE COUNTFR 



SUO04320 

r,llO04330 
sun04340 

S1I004350 
SUU04360 
SIID04370 

SUDOH3aO 

SuD0<*390 

SUDOlfJ*Dtr 

SU004410 

SUD04420 

S1JD04430 

*uno444o 

SUD0(|l|50 
.SUD04460 

snno«m7o 

SIID04480 
SUO04490 

SUD0H300 

SUD04510 
Rlin0«t520 
SuD045S6 

SUD04540 
SUD04550 

SUD04560 
SuO0«f570 

SUD04580 

SUD04590 
SU004GOO 

SUD04G10 
SUD04G20 

SUD04630 
SUOO464O 

suno*»650 



INTfHnATA 0. S. SOURCr UPDATER 



O3-0S7R0OA13 



PAGr 1«* 



04ECR 0536H 
0«*EER <HFO 

flRfi<4R 
(14F2R 45UE 

4<+2(l 

2020 
0UF8R 4300 

04C2R 
04FCR U300 

nnoAR 



0500R 

o«(04R 

0506R 
0508R 

050CR 
030ER 

0512R 
0514R 



tiro 

09C0R 

OCPOR 

2334 

41F0 

O^COR 

OCCfiR 

41F0 

09C0R 

nccflR 
u3no 

OOOAR 



nfll»R lr.nft 

051AR 

0522R 2Anl 
0000 
0526R 2803 
0000 
05SER 
0547R 
052ER 2B03 
0000 
0548R 
0593R 
05S&R 2S03 
0000 
0D6ER 
OORDR 
0S3ER OCOO 
0000 
0000 
0000 
0000 
0397R 
0548R 

054BR 2020 
054AR 2020 
054CR 2020 
054ER 2020 
O3S0R 2020 
0552R 2020 
0554R 2020 



DC LIST9* 
BAL LNK.EXTRCT 



DC 

a 

B 



C'END 

LIST20 
START 



LIRT50 RAL LNK.IOSURR 

DC READ 

RZR LIST51 

BAL LNK.IOSURR 

DC BKSP 

LIST51 BAL LNK'IOSUBR 



DC 

R 



LIST90 DC 

ns 

LIST91 DC 



RKSP 
START 



X»1C08» 

a 

X«2A01» .0 



LIST93 DC X«2803«.0.LIST9fc.LIST97 



LIST94 DC X»»80S».0,LIST9R.LIST99 



( Ist99 dc x t2803».O.A(BFRJ.A(RFR+79) 



LIST96 DC X'oCOO'.O.O.O.O 



LIST97 EOU 
LIST96 DO 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



*-l 

32 
C* 
C» 
C* 
C« 
C« 
C« 
C 



KIID04&60 
SIID0U670 

SUt)04f>flO 



Snn046<30 

SUD04700 

SIID04710 
SIJD04720 

snno4730 

Mll)04740 
SSID04750 
.SIID04760 

SUD04770 
SUD04780 

Sliri04790 
SllDOHPOO 

SUD04810 

suo04820 
siiootnso 

.SUD04840 
<;iir>04650 

SUD048*,0 



SUD04870 



SIID0488O 



SUDQ4890 



SU004900 

SU004910 

SUO0492'} 

RIID0H9? 

SUD049; 

sunot92& 

SUD0492G 

suno4920 

SUO04920 



INTFROATA 0. S. SOURCF UPOATER 03-057R00A13 
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0556R 


2020 


DC 


C» • 


0358R 


2020 


OC 


C» • 


055AR 


2020 


DC 


C» i 


055CR 


2020 


nc 


o • 


O^fit H 


2020 


DC 


c« • 


0*MR 


2020 


DC 


c» • 


05fi2R 


2020 


DC 


Ci • 


0564R 


2020 


DC 


c> • 


0366R 


2020 


nc 


c» » 


0568R 


?o?o 


DC 


c« • 


05&AN 


2020 


DC 


c« • 


056CR 


2020 


DC 


Ci t 


OSfetR 


2020 


DC 


o • 


0570R 


2020 


DC 


Ci i 


0572R 


2020 


DC 


c» » 


0574R 


2020 


DC 


c« • 


0576R 


2020 


DC 


c» • 


0578R 


2020 


DC 


c» • 


057AR 


2020 


DC 


Ci • 


057CR 


2020 


OC 


Ci • 


057ER 


2020 


DC 


C« • 


0580R 


2020 


DC 


Ci ♦ 


0582R 


2020 


DC 


Ci • 


05B4R 


2020 


DC 


Ci • 


0586R 


2020 


DC 


C» • 


0588R 


2050 
4147 
4520 


DC 


Ci PAGE • 


058rR 


3o3o PAGNBR DC 


CiOOOOi.X 




3030 








OAOO 







0593R 



LIST99 EQU *-l 

* 

* VERIFY (LUX.NHR) 

* 



0594R 


OfepCR VERIFY OC 


VER900 


0596 H 


0630R 


DC 


VER901 


0598R 


2«*81 


LIS 


AC.2,1 


059AR 


«*fi7o 

nfepcR 


LH 


AC1.VFJR900 


059ER 


0A77 


AHR 


Acl.Acl 


05A0R 


2313 


HNRs 


VER010 


05A2R 


D380 
062FR 


LB 


AC2.VER900+3 


OSAfiR 


0280 VER010 STR 


AC2iREAD+l 




0CB1R 






05AAR 


Cflflo 
0050 


LHI 


AC2.80 


05AER 


«*870 
0630R 


LH 


ACliVER901 


05B2R 


0A77 


AHR 


AC1.AC1 


05R4R 


2318 


HNMS 


VER020 


05B6R 


0370 
0632R 


LB 


ACl.VERqOi+2 


05RAR 


f-570 
004E 


CLHI 


ACI.Cini 



ALTERNATE LOGICAL UNIT INPUT 
NO. USE LU 1 
YES. PICK IT UP 

store: lu in svc par blk 



VERIFY LIMIT 80 OR 72 7 

CHECK INPUT CHAR 
WAS IT »N0« 7 



SU004920 
SIIO04920 
SOD04920 
3111)04920 
SIID04920 

r,iino49?o 

Slin04920 
SIJO04920 
SI 10 04920 
Slin04920 
SUO04920 
SUO04920 
SUD04920 
SUD04920 
SIJD04920 
SUD04920 
Slin04920 
RUD04920 
SUD04920 
£11004920 
SIID04920 
.SIID04920 
S(j004920 
SUO 04920 
SUD04920 
SUD04930 



S|jD04940 



SUO0495O 
SII004960 
SUD04970 
MIC)049B0 
SIIO0H990 
SIID05000 

simosoio 
SU005020 

SUU05030 
SUO05040 
St)ri05050 

SUD05060 
SUD05070 

suoosoao 

SIJO 05 090 
SUD05100 

sunosno 

SUH05120 



TmTFRDATA 


0. S. SOURCE 


UPOATER 03- 


05BER 2133 




BNES 


VCR020 


05C0R cflflo 




LHI 


AC2.72 


onuft 








n*C4R uofln 


V(R020 


STH 


AC2.VERCNT 


0634K 








DSCflR 41F0 


VrR030 


BAL 


LNK.IOSUR.R 


09COK 








05CCR 0636R 




DC 


VERlNp 


05CER 4230 




BIM7 


START 


nOOAR 








05D2R 41F0 




BAL 


LNK.IOSURR 


09COR 








0SD6R OCROR 




DC 


READ 


05D8R 4230 




BN7 


START 


OOOflP 








(IfioCR 0799 




XHR 


AC3.AC3 


05DPR D379 


VFR040 


LB 


AC1,RFR(AC3) 


0D6ER 








05E2R C570 




CLHI 


ACl.X'OD' 


0000 








0!SE6R 4330 




BE 


VFR050 


0&06K 








05FAR D3fl9 




LB 


AC2,VERRFR(A 


OftfeFR 








03EER CSftO 




CLHI 


AC2.X«0D» 


noon 








05F2« 4330 




BE 


VEROBO 


0f,06R 








0*SFfcR OfS7fl 




ClHr 


AC1.AC2 


05FBR 4230 




BNE 


VFR060 


0618R 








O5FCR 2691 




AIS 


ACS.l 


05FCR 4590 




CLH 


AC3.VfRCWT 


0634R 








0&02R 4280 




RL 


VERO^O 


5DER 








0606R 41F0 


VER050 


BAL 


LNK.EXTRCT 


0BR4R 








060AR 454E 




nc 


C'ENO • 


4420 








2020 








0610R 4300 




B 


VfROSO 


05C8R 








0614R 4300 




B 


START 


OOOAR 


* 






OfilflR E110 


* 
VFR060 


SVC 


1.VER950 


063ER 








061CR Fllo 




SVC 


1.VER951 


0646R 








Oft20R FllO 




SVC 


1.VFR9S2 


064ER 








Oft24R F120 




SVC 


2, PAUSE 


0CO8R 








0ft28R 4300 




B 


VER030 



03-057R00A13 



PAGE 1ft 



NO, ASSUME 'YES', USE BO 
IT WAS 'NO*. USE 72 

STORE LIMIT IN VERCNT 

READ A RECORD TO RE VERIFIED 

ERROR IF FOK OR EOF FOUND 
READ A MASTER RECORD 

ERROR IF FOM OR EOF FOUND 

CLEAR INDEX REG 

FETCH A CHAR FROM MASjFR 

IS IT A CAR RTN 7 

IF SO. DONE, CHECK FOR END 

FETCH A CHAR FROM OUPE 

IS IT A CAR RTN 7 

IF SO. DONE CHECK FOR FNn 

ARE THE TUO CHAR FquA| 7 
IF NOT, FRROR 00 PRINT nFRS 

FINISHED f 

NO, KEEP CHECKING 

IS THIS AN 'END' CARD 



NO. GO GET NEXT TWO RECORpS 
DONE, GET NEXT COMMAND 

PRINT VERIFY FRROR MSG 
LIST MASTER RECORD FIRST, 
THEN LISTED DUPED RECORD. 



SUO05130 
SIID05140 

siinosiso 

SUD0M60 

SUD05170 
SUO05180 

SUO05190 

SUD05200 
Slin05210 

MJ|)05220 
Stltl05230 

SUO 05240 

SIIO05250 

SUD05260 

SUD05270 

RUD05280 

SlinOR290 
Slin05S00 

SMD05310 
SUO05320 

SIID0S330 

SUH05340 

SIJD0S3S0 

SUr>0S360 
SUD0b370 

SUD05380 
SUD05390 
SUO0340O 

SUD0541C 

RUD05420 

SUD03430 

SUD05440 



IMTERDATA 0. S. SOURCE UPDATER 03-057R00A13 
0SC8R 
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062CR 

D630R 

0634R 
0636R 

063FR 

0646R 

0A4rR 



1A01 

0000 

2C01 

2090 

0000 

4802 

0000 

066FR 

06BDR 

?8o3 

0000 

0656P 

066DR 

2803 

0000 

0O6ER 

ODBDR 

2803 

0000 

066ER 

06ROR 



0656R 2APA 
2056 
4552 
4946 
4943 
4154 
494F 
4E20 
4552 
5?4F 
5220 
2A2A 



066HR 
066ER 



06BER 071AR 
06C0R 071FR 
06C2R 2485 
06C4R 4870 

071AR 
06C8R 0A77 
06CAR 2313 
06CCR D38o 

071DR 
06D0R D280 

0CB9R 
06D4R 2481 
0606R 0280 



VER900 DC 

VER901 DC 

VERCNT DC 

VCR I MP DC 



X'lAOi'.O 

X»2C01».C« » 


X»4802»,0,VCRBFR,VERRFR+79 



VER950 DC X»2B03»,0,VER96o,VER961 



VER951 DC X»2803«.0.BFR,BPR+79 



VCR952 DC X»2803».0,VERBPR.VERBPR+7g 



VER960 DC Cut VERIFICATION ERROR **i 



VER961 EOU *-l 
VERBFR OS 80 



* 
UPDATE 



UPDATE (LUH.RESEQ) 

DC UPD900 

DC UPD901 

LIS AC2.5 

LH AC1.UPD900 

AHr AC1.AC1 

BNMS UP0010 

LB AC2,UP09dO*3 



UPDOIO STR AC2.UP0INP+1 



SUD05450 
SUD05460 
SUD0S47O 

SUD054B0 

SUD05490 
SHD05500 



S1ID05510 



RUD05520 



stinossso 



SUD05540 
SUD05550 
S1ID05560 



LIS 
STB 



AC2.1 
AC2«REA0-»1 



snno557o 

SUD05580 
SIID05590 
SUD05&00 
SUD05610 
SUD0562O 
SIID0563G 
SUD05640 
SIID05650 

SUD05660 
SUD05670 
SUn05686 

RUD05690 

KUD05700 
SUD05710 



tntfroaTa 


0. S. SC 


IURCF 


UPOATER 03-05 


nCBlR 
06DAR n?ao 




STH 


AC2.BKSP+1 


0CC9R 
06DER 4870 




LH 


AC1.UPO901 


071ER 
06E2R 0A77 
06E4R 2317 

n6tfeR n37o 




AHR 

BNMS 

LB 


Atl.ACl 

UP0020 

ACliUPO901*2 


n720R 
06EAR C570 




CLHI 


ACl.C»Nt 


004F 
06EER 4330 




BE 


UPD030 


0710R 
06F2R 4080 


UPD020 


STH 


Ac2«M0DE 


or>S6R 

06F6R «*1F0 




BAL 


LNK.IOSURR 


09C0R 
OfiPAR OCBOR 
06FCR 4230 




DC 

BNZ 


READ 
IORERR 


09F6R 
0700R 41F0 




BAL 


LNK.SEQSAV 


0A5CR 
0704R 02CCR 
0706R 41F0 




DC 
BAL 


NEUSEQ+2 
LNK.IOSURR 


09C0R 
070AR OCCflR 
070CR 4300 




DC 

B 


BKSP 
START 


OOOAR 


* 






710R 2571 
0712R 4070 


* 
UPDo3o 


LCS 

STH 


ACltl 
ACl'MOOE 


0D56R 
071£R 4300 




B 


START 


OOOAR 


* 






071AR 1AQ1 


* 
* 

upo9oo 


DC 


X'lAOl'tO 


0000 
071FR 2C01 


UPD901 


DC 


X»2C01»,r» • 


2020 










* INSERT 


SEQNBR 


0722R 079AR 
0724R 4870 


* 
IMSERT 


DC 
LH 


InSRTX 
AC1.M0DE 


0056R 
0728R '♦SSO 




BZ 


CMDERR 


0062R 
072CR 41F0 


1NSRT1 


RAL 


LNK.IOSURR 


09C0R 
0730R OCBOR 
0732R 4230 




DC 
BWZ 


READ 
START 


OOOAR 
0736R 41F0 




BAL 


LNK.SEQSAV 



PAGE 1ft 



SET UPDATE MODE 

READ FIRST RECORD FOR SEQNRR 



SET MODE TO NO RESEOUENcING 



WHAT MODE ARE WE IN 7 

IF NOT IN UPDATE MOOE. ERROR 

READ A MASTER RECORD 

SAVE OLD SEQNBR 



SUD05720 

S1ID05730 

SUD05740 
SUD0S750 
SUD05760 

SIIO05770 

S1ID05780 

SU[)05790 

SHD05800 

S(in05810 
SUD05B20 

SIID05830 

SUn05840 
SUD05850 

SUD05860 
SUD05B70 

suno^BBO 

SUD05890 
Sl)D0b900 
SUl)05910 

snno59?o 

SUD05930 
SUD05940 
SUD05950 
SUD05960 

SIJD05970 

SUD05980 
SUD05990 
5UJD06000 
SUOOfaOlO 
SHO0f>020 

SUD06030 

Sun06040 

SUD06050 
SUD06060 

SUO06070 
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0A5CR 








073AR 


onsBR 




DC 


SFQSAR 


073CR 


*870 




LH 


ACI .MODE 


n7«*nn 


2116 




QMS 


INSRT2 


07«»2r 


«ufo 

OAAOR 




RAL 


LNK.RFSEQ 


07«t6R 


"UFO 
0C1AR 




BAL 


LNK.DECINC 


n7*»AR 


02D2R 




DC 


NEWSEQ+8 


07«»CR 


tlFO 
09CQR 


INSRT2 


BAL 


LNKtlOSUBR 


0750R 


occoR 




DC 


WRITE 


H752R 


0RB4R 




BAL 


LNK.EXTRCT 


07?SfeR 


«*5«»E 
4«t20 
2020 




DC 


C'EnD • 


075CR 


t300 
07fel»R 




B 


INSRT3 


0760R 


«»300 
01F4R 


* 


B 


NOTFND 


0764r 


<»1F0 
0A8HR 


* 
INSRT3 


BAL 


LNK.SEftCHK 


0768R 


079CR 




DC 


INSRTX+2 


076AR 


<»30 
072CR 




B 


1NSRT1 


076ER 


I*1F0 
09C0R 


INSRT4 


BAL 


LNktIOSURR 


0772R 


0CR8R 




DC 


UPDIMP 


0771+R 


1870 
006FR 




LH 


AC1.BFR 


0778R 


C570 
2F2S 




CLHI 


ACl•C , /*• 


077CR 


<*330 
OOOAR 




RE 


START 


07B0R 


<»fl7ft 
0D56R 




LH 


ACltMODE 


07fl«tR 


2116 




BMs 


INSRT5 


07B6R 


<*1F0 
OAAOR 




BAL 


LNK.RESEO 


07&AR 


tlFO 
OCIAH 




BAL 


LNK.DECINC 


078ER 


2D2R 




DC 


NFUSEQ+fl 


0790R 


U1F0 
09C0R 


INSRT5 


BAL 


LNK.IOSUBR 


0794R 


OCCOR 




DC 


WRITE 


0796R 


4300 
076FR 


* 


B 


INSRT4 


079AR 


2108 


* 
INSRTX 


DC 


X«2108» 


079CR 




* 


DS 


a 



RESEQUENCE 7 

TES. MOVE NEW SFQNRR TO BFR 

I 
INCREMENT SEQ NBR 



SEARCH FOR 'END* CARO 



SEO NBR WAS NOT FOUND 



END OF INSERT OPERATION ? 



INCREMENT SEO NrR 



SU006080 
SU006090 

SUO06100 
SUD06110 

SUD06120 

SUD06130 
SUD06140 

SUD06150 
SUD06J60 

SUD06170 



SUD06180 

SUD06190 

.SUO06200 
SUD06210 
SIID06220 

SUO06230 
SUD06240 

SU006250 

SUD06260 
SUD06270 

SII(lOfc?aO 

SII006290 

SUD06300 

SUD06310 
SUD06320 

SI1D06330 

SllO063«t0 
SHD06350 

SUD06360 
SUDC6370 

SUn06380 
SUD06390 
SU006HOO 
SUD06mO 
SLID 064 20 
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* 


LETE. S 


LUNKlt .^EONr 


07A4R 


0B36R 


DELETE 


DC 


DLT90D 


07A6R 


0840K 




DC 


DLT901 


07A8R 


4870 
0056R 




LH 


ACl.MODE 


07ACR 


4330 
0062R 




R2 


CMDERR 


07BOR 


41F0 
09C0R 


DLT010 


BAL 


LNK.IOSURR 


07B4R 


OCBOR 




DC 


READ 


0TB6R 


2138 




BN7S 


0LT01S 


07B8R 


41F0 
0BB4R 




BAL 


LNK.EXTRCT 


07HCR 


454E 
4420 
2020 




DC 


C'ENO ' 


07C2R 


4300 
07CER 




B 


OLT030 


07C6R 


E120 

n«4AR 


DLT015 


SVC 


2.OLT910 


07CAR 


4300 
OOOAR 


+ 


B 


START 


07CER 


41F0 

(1ASCR 


* 
DLT030 


BAL 


LNKtSEQSAV 


0702R 


0058R 




DC 


SEQSAR 


07D4R 


41F0 
0AB4R 




BAL 


LNK.SEQCHK 


07D«R 


0838R 




DC 


DLT900+2 


070AR 


4300 
081CR 




B 


DLT060 


07DER 


4870 
0840R 




LH 


ACltDLT901 


07E2R 


0A77 




AHR 


AC1.AC1 


07E4R 


4310 
OOOAR 




BNM 


START 


07ESR 


41F0 
09C0R 


OLT040 


BAL 


LNK.IOSURR 


07ECR 


OCROR 




DC 


READ 


07EER 


4230 
0800R 




BNZ 


OLT045 


07F2R 


41F0 

DRR4R 




BAL 


LNK.EXTRCT 


07F6R 


454E 
4420 
2020 




DC 


C'END • 


07FCR 


4300 
0808R 




B 


DLT090 


OfiOOR 


E120 

0866R 


OLT045 


SVC 


2.0LT911 


0804R 


4300 
OOOAR 


* 
* 


B 


START 











WHAT MOnE ARE UE IN ? 

IF NOT IN UPOATE MODE. ERROR 



LOG ERROR MSG 



LOG ERROR MSG 



SUUOG430 
SUD06440 
SUD06450 
SMD06460 
SUD06470 

SUD06480 

SUO06490 

SU006500 
SUO06510 
SIID06520 

suno6S30 



5UJD06S4 

SlIDOfeSSO 

SU006S60 

SUD06570 
SUD06S80 
SUD06590 

SUD06600 
S1ID0GG10 

Stm06620 
SUD06630 

Slin06640 

SUD06650 
SU006660 

Slin06670 

SIID06680 
SIIO06690 

SUD0&700 
SUD06710 

SUD06720 

Stm06T30 

SUn06740 

SUO06750 
SUD0t>7fc0 
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OflOSR 41F0 
0A5CR 

osocr onsaR 

080ER <*1F0 
0A84R 

0812R 08«t2R 

flfllUR <*300 
07F8R 

0818R «»300 
OOOAR 



OLT050 BAL LNK.SEQSAV 



EXTRACT AND SAVE THE SEQNRR 



081CR 

0B20R 
0822R 

0826R 

082AR 
0B2CR 

0830K 
0832R 



•♦870 

0056R 

2116 

^1FD 

DAAOR 

«UFf> 

0C1AR 

02D2R 

"»1F0 

09C0R 

OCCOR 

«300 

07B0K 



0836R 1108 
0838R 

Ofl**OR 2908 
08H2R 
08«»AR 0007 

noi7 

5253 
5«»20 
53«»5 
5120 
«tF«»2 
5220 
<*E4F 
S«t20 
U6«»F 
55<tE 

086ftR 0007 
0018 
53«»5 
t3«*F 

2053 
•♦551 
20«tF 
U252 
20UE 
4F5<* 



DC 
BAL 

DC 
B 



DLT06O LH 

BUS 
BAL 



DLT065 



* 

OLT900 
D L T90l 
DLT910 



DC 
BAL 

DC 
B 



DC 
DS 
DC 
DS 
DC 



DLT9H DC 



SFOSAR 
LNK.SFOCHK 

DLT901+2 
DLTO«»0 

START 



AC1.M0DE 

DLT065 
LNK.RESEd 



BAL LNK.DECINC 



INCREMENT SrO NRR 



NEUSEQ4-8 
LNK.TOSURR 

WRITE 
DLT01B 



X'lloB* 

a 

X»29o8» 

8 

7,23,C«FIRST SEO NBR NOT FOUND* 



7,2«»,CtSFC0ND SEQ NBR NOT FOuND» 



.SUn 06770 

SH0067BO 
SUO06790 

SUD06800 
SUD06810 

SU0O6820 

SUD068SO 
SUD06BH0 
SIJD06850 

SUD06860 
S1ID06870 

SUD06880 

SUO06890 
SUD06900 

SUD06910 
SUD06920 

SUD06930 
SUO069«»0 
SIID06950 
SUD06960 
SUD06970 
SUD06980 
SU006990 



Sltn07000 



INTLRDATA 


0. S. Si 


OURr.E 


UPQATER 01 




20<t6 










1F55 










nrnn 












* 

» MODIFY 


KEQNRR 


0882R 


(18F6R 


* 

MODIFY 


DC 


M00900 


oa8KR 


^870 

0D56R 




LH 


AC1.H00E 


nflflftR 


U330 

0062R 




HZ 


CMOERR 


088CR 


«»1F0 
09C0H 


M00020 


BAL 


LNK.IOSURR 


0B90R 


OCBOR 




DC 


READ 


0B92R 


*230 
08EER 




BN7 


nonato 


0896R 


UlFO 
0A5CR 




BAL 


LNK«SEOSaV 


089AR 


0D58R 




DC 


SEOSAR 


089CR 


«UF0 
OABUR 




BAL 


LNK.SEOCHK 


OAAOR 


08F8R 




DC 


HOD900+2 


08A2R 


"»300 
OSCAR 




B 


HOD030 


08A6R 


41F0 
D9C0R 




BAL 


LNK.IOSURR 


08AAR 


0CR8R 




DC 


upnirip 


08ACR 


4230 
09F6R 




BNZ 


IORERR 


08BOR 


«»870 
0D56R 




LH 


ACliHODE 


08B«»R 


2116 




BMS 


MOD025 


68B&R 


tlFO 
OAAOR 




BAL 


LNK.RESEO 


08BAR 


«*1F0 
OCIAR 




BAL 


LNKtDEClNC 


08BER 


02O2R 




DC 


NEWSEO+8 


08C0R 


«»1F0 
09C0R 


MOD025 


BAL 


LNK.IOSURR 


obcur 


OCCOR 




nc 


WRITE 


08C6R 


•♦300 
OOOAR 


» 


B 


START 


08CAR 


«870 
0D56R 


* 
M00030 


LH 


AC1.M00E 


08CER 


2116 




BMS 


MOD035 


08O0R 


«UFO 
OAAOR 




BAL 


LNK.RESEO 


0801+R 


«*lFO 
OCIAR 




BAL 


LNK.DECINC 


08D8R 


02O2R 




DC 


NEUSEQ+8 


08DAR 


»»1F0 
09C0R 


MOD035 


BAL 


LNK.IOSURR 


08OER 


OCCOR 




DC 


WRITE 


08EOR 


•UFO 




BAL 


LNK.EXTRCT 



03-057R00A13 



PAGE 2? 



WHAT MODE ARE WE IN 7 

IF NOT IN uPDATF MODE , ERROR 



EXTRACT AND SaVE THE SEQNRR 



INCREMENT SEQ NRR 



INCREMENT SEO NBR 



SIUJ07010 
SIID07020 
Stm0703D 
SUD07040 
SUO07050 

Snno7060 

SUD07070 

SIFD07080 
SIID07090 

SUR07100 

SUD07110 
SUD07120 

SUD07130 
SUD071H0 

SUD07150 

SUD07160 
SIID07170 

SH007180 

S||D07190 
SUD07200 

SLID07210 

SUD07220 
SUD07230 

Slino72«>0 
SIID07250 

SII007260 
SIID07270 
Stlt)072B0 

SD007290 
SUD07300 

SUDO731O 

SUD07320 
SUO07330 

SUD073tO 
SUD07350 
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OHR«tR 

oae«*r <*5«»e 

HHPO 

2020 

OSEAr W300 

oaacR 

08EER El2o 
0900R 

08F2R H300 
OOOAR 



OflFfeR 21n8 
0BF8R 
0900R 0007 

noil 

5345 
5120 

<*E4? 

5220 

i»ri»F 

5420 
464F 
554E 
4420 



nqiftR 

09lflR 

091CR 

0920R 

0924R 
0926R 

092AR 

092ER 
0930R 

0934R 

0938R 
093AR 

093ER 
0940R 

0944R 
094AR 



FFFF 

•♦870 

0OS6R 

4330 

00621* 

41F0 

09C0R 

OCROR 

•♦230 

094ER 

4870 

0D56R 

2116 

41F0 

OAAOR 

41Fo 

0C1AR 

02D2R 

41F0 

09C0R 

OCCOR 

4lF0 

0RB4R 

454E 

4420 

2020 

•♦300 



DC 



P) 



MOD040 SVC 

B 



MOD900 DC 

DS 

MOD910 DC 



* 

* END 

UPDEMD DC 
LH 

BZ 

UPDE10 BAl 

DC 

BN2 

LH 

BUS 
BAL 



DC 
UPDE20 BAL 

DC 
BAL 

DC 



MoD02o 

2.MOD910 

START 



LOG ERROR MSG 



X»2108t 

fi 

7.17.c»SE0 NHR NOT FOUND* 



AC1.M DE 
CHBCRR 

LNK.IOSUBR 

READ 
UPDE30 

ACl.MoDE 

UPDE20 
LNKtRESEQ 



BAL LNK.DECTNC 



NEUSEQ+a 
LNK.IOSUBR 

WRITE 
LNK.EXTRCT 

CtErjD • 



UPDE10 



WHAT MqDE ARE UF I N ? 

IF not in update mOoe, error 



INCREMENT SEO NRR 



SUD07560 

.SUD07370 

SUD07380 

SUD0739O 

SUD07400 
SUD07410 
SU007420 
SUD07430 

suno7440 

SUn 074 50 



SIID07460 
sun 07<» 70 
SIH107480 
SUD07490 
SUD07500 

SUD07510 

SU007520 

SUD07530 
SIID07540 

SUD07550 

SIID07560 
SUD07570 

SUD07580 

SUD07590 
SUO07600 

KUDO 76 10 

.SUOQ7620 

SUD07630 



SUO07640 



INTFROaTa 


0. S. S( 


JURCE 


UPOATER 03-1 


0920R 
09«*ER 2472 

0950R mrn 


UPDE30 


LIS 

BAL 


AC1.2 

ACS.UFWS 


096AR 

09«s<+r 4300 




n 


SRCUPD 


0O0OR 










• 

* EOF LU 




0958R (198CR 
095AR 4870 


UF.OV 


oc 

LH 


EOFLU 
AC 1 .MODE 


0056R 
095ER 4230 




BN2 


CHOERR 


0062R 
0962R D37D 




LB 


ACliEOTLU+3 


098FR 
0966R rsro 




LHI 


AC8, START 


000AR 
096AR D270 


UFMS 


STB 


AC1«WRTE0F*1 


OCD1R 
096ER 0270 




STB 


AC1.BKSP+1 


0CC9R 
0972R 41F0 




BAL 


LNK.IOSUBR 


ngCOR 
0976R flcDOR 
0978R 41FO 




OC 
BAL 


WRTEOF 
LNK.IOSUBR 


09COR 
097CR ocnoR 
097ER 41FO 




OC 
BAL 


URTEOF 
LNK.IOSUBR 


09COR 
0982R 0CC8R 
0984R «tlFO 




DC 
BAL 


BKSP 
LNK.IOSUBR 


09C0R 
0988R nCC8R 
098AR 030F 


* 


DC 
BR 


BKSP 
ACS 


098CR 2201 


* 
t-OFLU 


DC 


X«2201«,0 


00(10 










* RFWIND 


LU 


0990R 09ACR 
0992R 4870 


* 
RFWIND 


OC 
LH 


REULU 
AC1.M0DE 


0D56R 
O996R 4230 




BN7 


CMDERR 


0062R 
099AR 0370 




LB 


ACI.REWLU+3 


09AFR 
099ER D270 




STB 


ACl.REW+1 


0CD5R 
09A2R 41F0 




BAL 


LNK.IOSUBR 


09C0R 
09A6R OC04R 
09A8R "300 




OC 
B 


REW 
START 


OOOAR 
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WRITE AN »CTF* AND BACKSPACE 

go clear mode and set a c^n 



WHAT nOOE ARE UE IN 7 

if upoate none, error 

SET UP RETURN ADDRESS 



WHAT MODE ARE WE IN 7 
IF UPDATE MODE. ERROR 



SUO07650 
SU007660 

Sll007fc70 

SUO07680 
SUD07690 
SUO07700 
SUD07710 
SUD07720 

S1ID07730 

SUD07740 

SUO07750 

SIIU07760 

RU007770 

SUD07760 

SUO07790 
SUD07800 

SUD07810 
SI 11)07820 

SUD07830 
SIID07840 

SUO07850 
SUD07860 
SU007870 
SUD07B80 
SUD07890 

SUD07900 
RUO07910 
SUO07920 
SIIO07930 
SUD07940 

SUO079?>0 

SUO 07960 

SUD07970 

SUO07980 

SUO07990 
SUO08000 



INTEROAT 


A 0. S. 


SOURCE 


UPOATER ( 


09ACR 2201 


* 
• 
REULU 


DC 


X«2201»,0 


0000 










* PAUSE 




09R-0R FFFF 


* 

STOP 


DC 


-1 


09R2R T120 




SVC 


2.PAUSF 


ocnsR 








09B6R «»300 




H 


START 


OOOAR 










* EOJ 




09BAR FFFF 


EOJ 


DC 


-1 


09BCR E130 




SVC 


3,0 


0000 


* 
* 












09C0R U87F 


IOSIJBR 


LH 


ACl.O(LNK) 


0000 








09C*R E117 




SVC 


l.OlAClt 


0000 








09C8R U807 




LH 


R0.2IAC1) 


0002 








O^CCR «»35F 




HZ 


2CLNK) 


0002 








0900R C300 




THI 


RO.EOp 


oaoo 








09D«»R 423F 




HN7 


2(LNKI 


0002 








09D8r U877 




LH 


ACl.O(ACl) 


0000 








09DCR 2118 




bms 


IOCERR 


09DER 0A77 




AHR 


AC1.AC1 


09E0R 211H 




BMS 


IORERR 


09E2R E120 


IOUERR 


SVC 


2.IOS001 


0A06R 








09E6R E120 




SvC 


2.IOS011 


0A12R 








09EAR 230A 




BS 


I0S999 


09ECR E120 


IOCERR 


SVC 


2.IOS002 


OAOAR 








09F0R E120 




SVC 


2.IOS012 


0A2AR 








09F«*R 2305 




BS 


I0S999 


09F6r F120 


lOREftft 


SVC 


2.IOS003 


OAOER 








09FAR E120 




SVC 


2.IOS013 


0A46R 








09FER F120 


I0S999 


SVC 


2. PAUSE 


OCOflR 








0A02R 4300 




n 


IOSURR 


09C0R 








OAOAR 000ft 


IOS001 


DC 


6tIOS011-».19 
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end o f f i L f mark Fourjn ? 



stiDoeoio 

SUO08020 
RIJD08030 

snno8o«*o 

"511008050 

sijooaofeo 

SDD08070 
StlD08080 

SUD08090 

SUD08100 
SUD08110 
SIID08I20 
SUD08130 

suooamo 

SU008130 
SUD08160 
SUD08170 

SUU08180 

311008190 

SUDOSPOO 

S(in08210 

SUD08220 

SIJD08230 

SUD082H0 
SHD08250 
SU008260 
SUD08270 

SIJr)08280 

SUD00290 
SU008300 

suno83io 

SUD08320 
SUO08330 

simoe3<*o 

SUU083S0 
SUD08360 
SUD08S70 
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OAOAR 
ftAorR 
0A12R 



0A25R 
000*, 

nA<*?f 

nonft 

nASflH 

0007 
0013 
•♦F35 
5"»50 
555<* 
?fT»5 
5252 
«*F52 
202O 
2058 
5856 
5820 
0A2AR OOOT 
0018 
H92F 

«fP2n 

<*?<4F 

unun 

«H»F 
1«»20 
1*55? 
5PUF 
5220 
2020 
5658 
5856 
0AH6R 0007 
0012 
«*9*E 
5055 
5420 
4552 
524F 
5220 
2D20 
5858 
5858 



0A5CR 
0A5FR 
Oa^OR 

0A64R 

0A68R 
0A6AR 
OAfeCR 

0A70R 
0A72R 



2571 

2671 

D387 

ODSER 

C580 

0000 

2055 

2497 

48AF 

0000 
2771 
0387 



IOK002 DC 6.I0S012+24 
ln S 003 OC h.IO.sOl.5 + 18 
IOSOU OC 7.19tC»0UTPUT ERROR - XXXX» 



I0SQ12 OC 7, Z*,C i I/O COWKANO FRROR - XXXX» 



I0SQ13 DC 7,lfl.C«INPUT ERROR - XXXXt 



* 

* 

SEGSAV LCS AC1.1 

SGSU10 AJS AC1.1 

LB AC?«BFR»AC1> 

CLMI AC2tX«00» 

BNES SOSV10 

LIS AC3.7 

LH ACU.O(LNK) 

SOSV20 SIS ACltl 

LB AC2.BFR(AC1) 



sii[)0«3ao 

SllfiOR.^0 

suooatoo 



SU008410 



SUD08420 



SUD08430 

sunofl<*«*o 
suno8450 

SUD08460 
SUD08470 

SU008480 

SUD084°0 
SIJO08500 

sunoesiu 

SUO08520 
SU008530 
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0D6ER 








0A76R 02&A 




STB 


AC2.7JAC«t) 


0007 








0A7AR 27A1 




SIS 


ACt.l 


0A7CR 9791 




SIS 


AC3.1 


0A7ER 2217 




BNRS 


SQSV20 


0A80R «*30F 




B 


2ILNK) 


0002 


* 






0A84R 2«»«6 


* 
* 
SEQCHK 


LIS 


AC?. 6 


0A86R «t89F 




LH 


AC3t0(LNK) 


0000 








OAflAR J»87S 


SOCK10 


LH 


AC1,SF0SAR(AC2» 


0DS8R 








0A8ER j»579 




CLH 


AC1.6CAC3) 


0006 








0A92R 123F 




BNE 


2(1 NK) 


0002 








0A96R 2792 




sis 


AC3.2 


0A98R 2782 




SIS 


AC2.2 


0A9AR 2218 




BNMS 


SQCK10 


0A9CR *30F 




B 


6(LNK) 


0006 


* 






OflftOR 078S 


RESEQ 


XHR 


AC2.AC2 


0AA2R 0799 




XHr 


AC3.AC3 


0AA4R 0378 


RESEQl 


LB 


AC1,BFR ( AC2) 


0O6FH 








(iAA8R C570 




CLHI 


ACt .x»Ob» 


noon 








OAACR 2335 




BES 


RESEQ? 


OAAFR 2681 




AIS 


AC2.1 


OABOR C580 




CLHI 


AC2«72 


00<(8 








0AB4R ?08fl 




RLS 


RESEQl 


0AR6R C580 


RESEQ2 


CLHI 


AC2.72 


004A 








OABAR 2385 




BNLS 


RESE03 


OABCR 0218 




STB 


SPCRFRJ AC2> 


006ER 








OACOR 2681 




AIS 


AC2.1 


0AC2R 2206 


* 


RS 


RESEQ? 


OACl+R 0379 


* 
RESF.03 


LB 


ACl,NEuSFQ+2(AC3 


02CCR 








0AC8R 0278 




STR 


AC1,RFR(AC2) 


006ER 








OACCR 2681 




AIS 


AC2.1 


OACER 2691 




AIS 


AC3.1 


OAOOR C590 




CLHI 


AC3.8 


0008 









CLEflR INDEX REGISTER 
SEARCH FOR FNO-OF-LINE 



FILL OUT LINE WITH SPACES 



FINISHEO YET ? 



suDoasto 

SUO08550 
SUU08560 
SUD0B5T0 
SUD08580 

SUO0B590 
SH008600 
SIID08610 
51)008620 
SD008630 

^unosftuo 

SUD08650 

SUO08660 

SUD08670 
SHD08680 
SUD08690 
SDD08700 

SUO08710 
SII008720 
SUD08730 
SUL)087«»0 

SUD08750 
SUO08760 

Sl.m08770 

KIJD08780 
SUD06790 
SUD08800 

SLIO08810 
SUD08820 

SU008830 
SUO088H0 

Si ID Oflft 50 
SIID08860 
SDD08870 
SUDOftBfiO 
SUO08890 

sur>o«9oo 

SUO08910 
SUO 08920 
SU008930 



INTERDATA 


0. S. SOURCE I 


JPOATER 03- 


OADtR 2088 


BLS 


RESE03 


OADGR 030F 


BR 

• 
* 


LNK 


OA08R <+88E 


* 
• 
SFARCH lh 


AC2.0IAC8) 


0000 
OADCR 1*878 


LH 


ACliOfAC?) 


0000 
OftEOR C"S70 


CLHI 


ACl.C'**' 


PAPA 
0AE4R *330 


BE 


SRCHSO 


0R4AR 
0AE8R ?<*A8 
OAEAR 0799 
OAECR D378 


LIS 

XHR 
SRCH01 LB 


AC*»8 

AC3.AC3 

AC1,0(AC2> 


0000 
OAFOR 0571 
0AF2R H330 


CLHR 
BE 


ACliSPC 

SRCH02 


onpcR 

OAFftR C570 


CLHI 


AC1,C»0» 


030 
OAFAR »280 


BL 


ERROR 


018AR 
OAFER C570 


CLHI 


AC1.X»3A» 


003A 
OROPR 4380 


BNL 


ERROR 


OlflAR 
0B06R 2881 
0B08R t<*70 


AlS 

NHI 


AC2 , 1 
ACltXiOF* 


OOOF 
OBOCR 0BD9 
OROER C390 


LHR 
THI 


AC7.AC3 
ACS.X'EOOO* 


FOOD 
0B12R «»230 


BNZ 


ERROR 


OlSAR 
0B16R 9193 
0B18R OAITO 
OBIAR oA9D 
OBlCR "*280 


SLLS 
AMR 
AHR 
BC 


AC3.3 
AC7.AC7 
AC3.AC7 
ERROR 


018AR 
0B20R 0A97 
0B22R "»280 


AHR 
BC 


AC3.AC1 
ERROR 


018AR 
0R28R 27A1 
0R28R U230 


SIS 

BN2 


Ac*«l 
SRCH01 


OAECR 
0B2CR 41F0 


SRCH02 BAL 


LNKtIOSUBR 


09C0R 
0R30R 0CD4R 
0R32R IHFO 


DC 
SRCH03 BAL 


REW 
LNK.IOSUBR 


09COR 
OBSgR OCCCR 
0R38R «HFO 


QC 
BAL 


FNOCOF 
LNK»IOSUBR 


09C0R 







057R00A13 
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fetch a<label) 

label or eof count ? 

if equal. label 

set length 

clear accumulator 

fetch a char 

is it a space ? 

if so. finished converting 

legal decimal digit 7 



MASK OFF ZONE BITS 



DECREMENT LEN6HT CTR 

IF NOT ZERO. GET NEXT CHAR 

REWIND THE INPUT DEVICE 



ENO OF VOLUME ? 



SUD08940 
SU008950 
SUD08960 
Sljn08970 
SDO08980 
SU008990 

suno9ooo 

SUD09010 
SUO090P0 
SU009030 

sun090<»o 

SUO09050 
SUD090G0 

SUDO9O7O 
SUQ09080 

SUO09090 

sun09ioo 

SUD09110 
RUO09120 

SUD09130 
RUD091U0 

SUO09150 
SIID09160 

SUD09170 

SUD09180 
SUO09190 
SUO09200 
SUD09210 

SU009220 
SUD09230 

SUO092U0 
SUD09250 

SUD09260 

SUO09770 
SUD09260 

SU009290 
SU009300 
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0B3CR OCBOR 
0B3ER 423E 

(1002 
0R42R 2791 
0R44R 2039 
ORtfeR 430E 

0006 



0R4AR 

0R4ER 
0R50R 
OrSPR 

0R5feR 
0R5BR 

ORSCR 

0R60R 

0R64R 



0R&8R 

0R6CR 

0R70R 
0R72R 
0R74R 

0R78R 
0B7AR 
0R7CR 

OBflOR 

0R84R 

0B8&R 

oracr 

0R8ER 

0B92R 

0R96R 
0B98R 
0H9AR 

0B9ER 



<+lFfl 

09C0R 

OCROR 

2336 

41F0 

09r.oi< 
nr.RoR 

423E 

0002 

41F0 

0R68R 

"♦300 

OBHAR 

430E 

0006 



C870 
2A2A 
4570 

0D6ER 
023F 

2498 

H219 

005FR 

>79l 

2033 

0379 

0D6ER 

C570 

0000 

4330 

0B96R 

D279 

0D60R 

2691 

C590 

oooa 

4280 

0B7CR 

0799 

08A8 

4879 

OftAOR 

457A 

0000 



DC 
BN2 

SIS 

BNZS 
B 



READ 
2(AC8) 

AC3.1 
SRCH03 
6 1 ACS) 



* 
* 
SRC H 50 



RAL LNK.IOSURR 



SRC H 51 



* 
LABCHK 



SRCH52 



SRCH53 



SRCH54 
SRCH55 



DC 

RZS 

BAL 

DC 
BN? 

BAL 

B 
B 



LHI 

CLH 

BNER 

LIS 

STR 

SIS 

BN2S 

LB 

CLHI 

BE 

STB 

AIS 
CLHI 

BL 

XHR 
LHR 
LH 

CLH 



READ 

SRCH51 

LNK.IOSURR 

READ 
2 (ACS) 

LNK.LABCHK 

SRCH50 

6 I ACS) 



ACl.Ct**. 
ACl.BPR 



YESt NOT FOUND 
DECREMENT EOF COUMT 
FOUND, RETURN TO CALLER 

READ A RrCoRD 

end of volume 7 

yes, take 'not found' exit 
compare labels 
not it, keep looking 
found • return to caller 

possible Label record ? 



I-N* IF NOT. KEEP rEADI W G 

AC3.8 YES, CHFCK IT 

SPCiLARSAV.KACa) CLEAR LABEL SAVE AREA 

AC3.1 

SRCH52 

AC1,RFR(AC3) HOyE LABEL TO SAVE AREA 

ACl.X»00» CAR RTN 7 

SRCH54 END OF LABEL 

AC1.LABSAVCAC3) 



AC3.1 
AC3.8 

SRCH53 

AC3.AC3 
AC4.AC2 
ACl.LABSAV(AC3» 

AC1,0(AC4) 



FINISHED 7 



SUD09310 
SUD09320 

SUD09330 
SUD09340 
SUD 09350 

SUD09360 
SUD09370 
SUD09380 
SUn09390 

SUO09400 
SIIO09410 
SUD09H20 

811009430 
SUD 09440 

SUO09450 

SIID09460 

SUD09470 

SUO09480 
SI ID 094 90 
SUD09500 

SUD 095 lO 

SUD09S20 
SUD09530 
SIW09540 

SUD09SS0 
SUD09560 
SII009570 

SUO09580 

SLID09S90 

RHD09600 

SUD09610 
SUD09620 

SUO09630 

.SUr>09640 
SUD09650 
SUD09660 

SUD09670 
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0BA2R 


023F 




BNER 


LNK 


NOT IT. KEEP LOOKING 


0BA4R 


26A2 




AIS 


AC4.2 




BBA6R 


2692 




ATS 


KC5.2 




0BA8R 


C590 




CLHI 


ACS. a 






0008 
42H0 




BL 


SRCW5S 




OBACR 






0B9AR 










OBBOR 


430F 
0004 


* 


B 


4 (LNK) 


YEA. FOUND IT 


0BB4R 


2486 


* 
EXTRCT 


LIS 


AC2.6 


- - 


0BB6R 


D218 


LOOPO 


STB 


SPC.0PC00E-1UC2) CLEAR OP-CODE SAVE AREA 




0067R 










ORRAR 


2781 




sis 


AT2.1 




OBBCR 


2033 




BN2S 


LOOPo 




QBBER 


0799 




XHR 


AC3.AC3 




OBCOR 


D378 
006ER 




LB 


ACI»BFR{AC21 




0BC4R 


2681 




AIS 


AC2.1 




ORC&R 


C570 
002A 




CLHI 


act,c»*» 


COMMENT CARD 1 


ORCAR 


4 33F 
0006 




BE 


6 (LNK) 


YES. EXIT 


ORCEr 


0571 




CLHR 


AC1.SPC 


any label ? 


OBOqR 


2336 




BCS 


L00P2 


NO. FINO OP-CODE 


0RD2R 


D378 

nnftER 


LOOPl 


LB 


ACHBFR(AC2> 


YES* SKIP OVER THE LABEL 


0RD6R 


2681 




AIS 


AC2.1 




OB08R 


0571 




CLHR 


ACI.SPC 


END OF LABEL 7 


OBOAR 


2034 




BNES 


LOOPl 




OBDCR 


0378 

006CR 


L00P2 


LB 


ACl.BFR(AC2J 


SKIP OVER SPACES 


OBEOR 


2681 




AIS 


AC2.1 




0BE2R 


0571 




CLHR 


ACI.SPC 




0BE4R 


2234 




aes 


LOOPS 




0BE6R 


D279 
0068R 


L00P3 


STB 


AC1 .OPCODE (AC 3) 


MOVE OP-CODE TO SAVE AREa 


OBEAR 


2691 




AIS 


AC3.1 




OBECR 


D378 

0D6ER 




LB 


AC1.RFR(AC2) 




OBFOR 


2681 




AIS 


AC2.1 




0BF2R 


0571 




CLHR 


ACI.SPC 


END OF OP-CODE 7 


0BF4R 


2 334 




BES 


L00P4 




0BF6R 


C570 
0000 




CLHI 


ACr,X»nD» 




OBFAR 


203A 




BNES 


L00P3 




OBFCR 


0799 


L00P4 


XHR 


ACZ, AC3 


.. - - 


OBFER 


08AF 




LHR 


AC4.LNK 




OCOOR 


4879 
0D63R 


L00P5 


LH 


ACl«0PC0DE(AC3» 


IS THIS THE DESIRED OP-CO 


OCOHR 


457A 
0000 




CLH 


AC1,0(AC4) 




0C08R 


423F 
0006 




BNE 


6 (LNK) 


NO. TAKE NOT FOUND EXIT 


OCOCR 


26A2 




Als 


AC4.2 





SUD09680 
SUO09690 
SUD09T0O 
SU009710 

SI/DD9720 

SUD09730 

SIID09740 
SUD09750 
SIID09760 
SUD09770 

SU009760 
SUD09790 
SU009800 
SUD09810 

SUO09820 
SIID09830 

SUD09840 

SUD09850 
SII009860 
SUD09870 

StlD09flS0 
SU009890 
SHO09900 
SUD09910 

suno99?o 

SUO09930 
S1I009940 
SUD09950 

SUD09960 
MID09970 

SUD09980 
SU009990 
SliOlOOOO 

suniooio 
SUD10020 

SUD10030 
SUD10040 
SUD10050 

SUD10060 

SU010070 

suoiooao 
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OCOER 2692 
0C10R C590 

0006 
0C14R 208A 
0C16R 430F 

OOOA 



0C1AR 

0C1ER 
0C20R 

0C24R 
0C26R 

OCPAR 

0C2ER 

0C32R 

0C3*>R 

0C3AR 
0C3CR 
0C3ER 

0C42R 



0C46R 

0C4CR 
0C52R 
0C58R 
0C5ER 
0C64R 
OCftAR 
0C70R 



48RF 

0000 

2483 

037B 

0000 

2671 

027R 

0000 

C570 

003A 

428F 

0002 

C870 

0030 

D27H 

0000 

27R1 

2781 

4310 

0C20R 

430F 

0002 



4649 

4E44 

0192R 

434F 

5059 

0206R 

i*455 

5045 

02F4R 

5645 

5249 

0594R 

5441 

4?4C 

03A2R 

4C49 

5354 

D47AK 

5550 

4441 

06RER 

494E 

5345 



AIS ACS, 2 

CLHI AC3.6 

BLS L00P5 

8 10IUNKI 



DECINC LH 



ACS.OfLNKJ 



IS THIS REALLY IT 7 

NOT YET, KEEP CHECKIN* 
HOORAH, THIS IS IT 



FETCH AtNRR TD RE TNCR) 



Lis ACP.3 

DILOOP LB ACTX.01ACS1 

AIs ACl.l 

STR AC1.0CAC5) 

CLHI AC1«X»3a' 

BL 2(LNK| 

LHI AC1,X«30« 

STR AC1,0(AC5) 

SIS AC5.1 

SIS AC2.1 

RNM DILOOP 

8 2|UjKi 



OPERATOR COMMAND TABLE 



CMDTAB DC 



C'FIND'.ACFNDLAn) 



DC CtCOPYt.A(COPY) 



DC C»OUPF».A(OUPE> 



DC C»vrRI«,A(VERIFY) 



DC C'TABL'. ACTABLE) 



DC C»LIST» ,A(LIST) 



DC C'LlPDA' , A (UPDATE ) 



DC C'lNSE'.AdNSERTl 



SUD10090 
SUD10100 

sunioiio 

SIID10120 

SUD10130 
SUU10140 

suDiaiso 

SUD10160 
SUD101TO 

suoioiao 

SUDIinW 

SUD10200 

SUD10210 

<Uini0220 

Stini0230 

SIID10240 
SUD10250 
SH010260 

SUD10270 

SIID10280 
SU010290 
S1ID10300 
SUD10310 



SUD10320 
MI010330 
SIJD10340 
SUU1 0350 
SIIO10360 
SHO10370 
SUD10380 



INTTHOATa 




m?9n 


nc.7t.fi 


«♦<♦«•!» 




4C«»5 




07A4R 


0C7CR 


404F 




ntsi 




0882R 


0C82R 


45*E 




«m?o 




0916R 


0c88R 


5745 




4F56 




09S8R 


oeatR 


5243 




5749 




0990R 


0C94R 


5041 




5553 




09B0R 


OC^AR 


454F 




4A20 




09RAR 



OC9FR 

OCA OR 

0CA8R 

OCBOR 

0CB8R 

OCCOR 

OCCflR 
OCCCR 
OCDOR 
0CO4R 
0CD8R 



2806 

OOOO 

flCDAR 

OCOFR 

4805 

0000 

0D6ER 

ODBDR 

4801 

0000 

006ER 

OOBOR 

480S 

0000 

0C16FR 

OOBOR 

2802 

0000 

nofiER 

OOBOR 

A001 

0000 

R402 

0000 

saoi 
oooo 
nooi 

0000 
0001 



0. S. SOURCE UPDATtR O3-O57R0OA13 



DC C»DELE»,A<OELEtE» 



DC C»MODI'.A(MODIFY) 



DC C»ENO t.A(uPOENO) 



DC C'WEOV'tAJWEOVI 



DC C*REUI*,AtREUINDl 



DC CtPAuS«,A(STOP) 



DC C«EOJ «tA<EOJ) 



CTENO eou *-l 

* I/O SVC PARAMETER BLOCKS 

RFAOY DC Xr2806',O.RDY«Se.imYMSG + B 



RDCMD DC x«»805».0.A(6FR) ,A(RFR)+79 



RfAO DC X»4801».0,A|BFR)«AJBFR)*79 



UPDINP OC ifnr«tW*-.t»t«-tflFRri*tBFRr*7»- 



URITE OC Xt2802«tO,A|BFR»,A|BFR)+79 



PAGE 5? 



BKSP DC 

FNOEOF DC 

WRTEOF OC 

RfU OC 

PAUSE DC 

• 



X«A001* .0 
X'8402',0 
X»8801«.0 
X'COOl',0 

1 



SUD10S90 

sunioioo 

StlO10410 
SII010420 
SHD10430 
St)Ol0440 
SUD1045Q 



SUD10460 
SUD10470 
SUD10480 
SIID10490 
St)D10500 



SI|D10510 
Slim 0520 
S1ID10530 

sunioSHo 

SUD10550 
SUD10560 

SU01057rt 

SUD10580 

SUD10S90 
SUO1060O 



TWTfROflTA 0. S. SOURCE IIPOATER 03-057R00A13 



page 33 



ocoar 



OCEOR 



0CF4R 



onoAR 

oooer 

nni^R 
oniAR 



ODPER 
0D32R 



?052 

4541 
4459 
0007 
OOOF 
494C 
4C45 
4741 
4C20 
434F 
4040 
414E 
4420 
0007 

ooon 

4F50 
4552 
414E 
4420 
4552 
524F 
B220 
2806 

0000 

nnoFR 

0D15R 

2020 

464F 

554E 

4420 

oonfi 

002AN 

0007 

0010 

492F 

4F20 

"♦55? 

524F 

5220 

2020 

5858 

5858 

0006 

on«*<*R 

0007 
0012 
494E 
5055 
5420 
4552 
524F 
!S220 
2020 
5858 



* MESSAGES 

« 

RDYMSG DC C« READY* 



ILCHSG DC 7.15.CILLEGAL COMMAND' 



ARGERR DC 7,13.C«0PErAND FRROR t 



FNOmSG DC X»2806».0«FONDlTtFONOiT*7 

FONOIT DC C i FOUNDt 

CONVOl DC 6.LOGE01+16 

LOGEol DC 7,16,Ctl/0 ERROR - XXXX* 



C6NV02 DC 6.LOGE02+18 

LOGE02 DC 7,18,C»INPUT ERROR - XXXX . 



SUD10610 
SU010620 
SUD10630 



<uiruo640 



<Uini0650 



Slll)10660 
SHD10670 

S1ID10680 
S1JD10690 



S(jDl0700 
SUD10710 
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5058 








onufiR 


0007 


NFMSG 


OC 


7,9,C«NI 




009 










«*r«tF 










StPO 










«*64F 










5S«tE 










4420 








0O56R 


0000 


FODC 


DC 





odssr 


2020 
2020 
2020 
2020 


StQSAR 


OC 


C« 


0O60R 




LABSAV 


OS 


a 


on^BR 


2090 
2020 
2020 


OPCODE 


OC 


c» 


006ER 




RPR 


OS 


80 


OOBER 


OOOA 




DC 


X'OOOA* 


OOCOR 






ENO 


SRCUPD 



SUD10720 



upoatt wonr rc*e 



op-code s«vr «rca 



SUD10730 
SUD10710 



SIID10750 
Slim 0760 



SUD10770 
SUD10780 
SUD10790 
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AC1 


0007 


AC2 


0006 


AC3 


0009 


AC«t 


000A 


AC5 


OOOB 


AC6 


OOOC 


ACT 


OOOD 


ACS 


OOOE 


ARGERR 


OCFHR 


ASC01 


OOAAR 


ASCLFT 


OOCOR 


ASCRT 


OOD*»R 


ASCRTt 


OOEOR 


BFR 


006ER 


BKSP 


0CC8R 


CMDERR 


0062R 


CMDTAB 


0C46R 


CONV01 


0016R 


cnNva? 


0O2ER 


COPIN 


02C6R 


COPLAR 


02BCH 


COPY 


0206R 


COPYOO 


0222R 


COPY01 


02"»tR 


COPY20 


026AR 


C0PY21 


027<*R 


COPYUO 


0268R 


C0PY"*5 


02A4R 


COPY50 


02B2R 


CTENO 


0C9FR 


DECINC 


0C1AR 


DELETE 


07A<*R 


DILOOP 


0C20R 


DLT010 


07BOR 


OLT015 


07C6R 


DLT030 


07CER 


DLT0<*0 


07F8R 


OLT0»»5 


OBOOR 


DLT050 


0808R 


OLT060 


081CR 


DLT065 


082CR 


DLT900 


083&R 


OLT901 


OfltOR 


DLT910 


084AR 


DLT911 


0866H 


oupooo 


0312R 


DUP005 


033AR 


DHPOIO 


0342H 


DUP01S 


035AK 


DI1P020 


037AR 


OIIP030 


03BHR 


OUP099 


038AR 


DUPE 


02FtR 


OUPIN 


039ER 


DUPLAR 


039>*R 
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END1 


016CR 


END2 


017ER 


cor 


0800 


EOFLU 


09ACR 


EOJ 


09BAR 


COM 


1000 


ERROR 


01AAR 


EXTRCT 


0BB4R 


FNDEOF 


tlCtCR 


FNOLAB 


0192R 


FNDMSG 


ODOfeR 


FOND IT 


OOXTER 


SETCHR 


01<»6R 


HORENO 


0M79R 


HEX 


OOFBH 


HEX01 


010CH 


HEX02 


0130R 


TtCHSB 


BCCOR 


INPERR 


006AR 


INSERT 


0722R 


TNSRT1 


072CR 


INSRT2 


07<*CR 


INSRT3 


f)76«tR 


TNSRT* 


(176ER 


INSRTS 


0790R 


INSRTX 


(179AR 


IOCCRR 


09FCR 


IORERR 


09F6R 


IOSOOl 


0A06H 


IOS002 


OAOAR 


I0S003 


OAOER 


I0S011 


0A12R 


T0SS12 


0A2AR 


iosoia 


0A«*6R 


I0S999 


09FER 


IOSUHR 


09COR 


IOUERR 


09E2R 


LABCHK 


0B68R 


LABEt 


01ACR 


LABELft 


OlFflR 


LABEL9 


0202R 


LABSAV 


ODfeOH 


LIST 


0«t7AR 


LIST01 


0494R 


LIST20 


(TOC2R 


LIST30 


04D2R 


LISTED 


04EBR 


LTSTBO 


O50OR 


LIST51 


OSOER 


LIST90 


0518R 


LTST91 


0522R 


LIST93 


0526R 


LIST9* 


052ER 


LIST95 


0936R 


LIST96 


053ER 


LIST97 


0S«f7R 
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LIST98 


05«»8R 


LIST99 


0593R 


LNK 


OOOF 


LOGE01 


0D1AR 


LOGE02 


0D32R 


LOOPO 


06B6R 


L00P1 


0BD2R 


L00P2 


OBDCR 


LOOPS 


0BE6R 


LOOPU 


OBFCR 


L00P5 


OCOOR 


HOD020 


088CR 


MOD025 


OflCOR 


MOD030 


OSCAR 


HOD035 


O'BDAR 


MOD040 


08EER 


MOD900 


08F&R 


normo 


0900R 


MODE 


0056R 


MODIFY 


0882R 


NEUSEQ 


02CAR 


NFMSG 


0D<*8R 


NOTFND 


01E<*R 


OPCODE 


0D68R 


PAGNBR 


058ER 


PARSER 


007ER 


PAU.SE 


ncnsR 


PRTHnR 


043AH 


PRTLAB 


0<»«»2H 


PSMSG 


02D«»R 


RO 


0000 


RDCMD 


0CA8R 


RDYMSG 


OCDAR 


READ 


OCBOH 


READY 


OCAOR 


RESEQ 


QAAOR 


RESEQ1 


OAAtR 


RESEQ2 


OAB&R 


RESEQ3 


OAC«fR 


REU 


OCDtR 


REWIND 


0990R 


REULU 


09ACR 


SEARCH 


0AD8R 


SEQCHK 


0A84R 


SEQSAR 


005BR 


SEQSAV 


0A5CR 


SPC 


0001 


SQCK1CI 


0A8AR 


SOSV10 


0A5ER 


SOSV20 


0A70R 


SRCHOl 


OAfCR 


SRCH02 


0B2CR 


SRCH03 


0B32K 


SRCH50 


0B4AR 


SRCH51 


0B5CR 


SRCH52 


0B7«»R 
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SRCH53 


(1B7CR 


SRCHHt 


0B96R 


SRCH55 


ftR9AR 


SRCUPD 


OOOOK 


START 


OOOAR 


STDF 


B9B0K 


STRTOO 


0028R 


STRT01 


003CR 


STRT02 


O012R 


STRT03 


00<*CH 


STRTOU 


005AR 


S1RT05 


tror»R 


TAB010 


03CER 


TAB011 


03E0R 


TAH0I5 


03EEP. 


TAB030 


03F6H 


TABOUO 


040ER 


T*BO« 


0*1 AH 


TAB050 


0<*26R 


TAB910 


DH^AR 


TKB9II 


n«WER 


TABHDR 


OUfe^R 


TABLE 


03A2R 


T»Bt:u 


(JH36R 


UPD010 


0600R 


UP0020 


06F2R 


WOO30 


0710R 


UPO900 


071AR 


UPD901 


071ER 


UPDATE 


06BER 


UPDE10 


0920R 


UPOE20 


093AR 


UPOESfl 


69HER 


UPDENO 


0916R 


UPOINP 


0CB8R 


TTERtJIO 


B5A6H 


VER020 


05C*R 


VER030 


03C8R 


wmiim 


TJ5DER 


UFR050 


0606R 


VER060 


061SR 


VEK90O 


062CR 


VER901 


0630R 


VER950 


063ER 


VER951 


0646R 


VER952 


06HER 


VER960 


0656R 


VER961 


066DR 


VERBFR 


066ER 


VERCNT 


063HR 


VERIFY 


059"»R 


VERINP 


0636R 


WEOV 


0958R 


WFMS 


096AR 


WRITE 


OCCOR 


URTEOF 


OCOOR 
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1. General 

OS Copy (program number 03-056) is an INTERDATA OS 
Utility which provides basic file duplication capabilities 
required by the OS user. Directives, entered by the opera- 
tor on the teletype allow copying, verifying or displaying 
of individual files or entire volumes to and from any device 
supported by the OS. Commands for writing and positioning 
to file marks and rewinding are provided to facilitate 
positioning and accessing files. OS COPY requires the 
following configuration: 

a) A Model 5, 50, 70, 74, 80 or 85 processor 

b) 8KB Memory 

c) a teletype 

d) an input, output and list device (may be the 
teletype or any sequential device) 

e) an operating system (BOSS, DOS or RTOS) 



2. Concepts and Conventions 

OS COPY communicates to I/O devices by way of logical 
units. The following is a list of logical units used by 
OS COPY. Logical units should be assigned to a physical 
unit by the OS before using the commands of OS COPY. 



Logical Unit 

1 



Function 

Acts as the input device for all 
COPY, VERIFY and DISPLAY operations. 

Acts as the output device for all 
COPY and LABEL commands, and as a 
secondary input device for the 
VERIFY command. 

Acts as the list device for DISPLAY 
operations. 

Acts as the operator command input 
device (normally assigned to the 
teletype) . 



When executed under R01 of BOSS or DOS, OS Copy can read 
and write variable length records for copying, verifying or 
displaying. A directive is supplied to specify whether fixed 
or variable length records are being processed. 

Understanding OS COPY operation with respect to various 
types of files and formats requires definition of terminology. 
The following is a list of terms referenced in this document. 



a) File 



b) ASCII file 



c) Binary file 



d) Volume 



a sequence of records terminated 
by an end-of-file indication (EOF) 

a file of ASCII characters, 
notably source information or 
program data. 

a file of binary characters, 

notably object programs or 

core image data. 

Example: a program library on 

cassette. 

a sequence of files terminated by 
a double EOF indicator. Two con- 
secutive EOF's denote end of volume 
XEOV) . 



TABLE OF INDICATORS 



MAG TAPE, DISC, DRUM 
CASSETTE 



CARDS OR PAPER TAPE 



End of 


File 


End of 


Volume 


ASCII 


BINARY 


ASCII 


BINARY 


file 
mark 


file 
mark 


2 file 
marks 
or EOM 


2 file 
marks 
or EOM 


/* 


None 


A 


ENDVOL 
Label 



3. Commands 

There are two catagories of directives for OS COPY - 
function commands and device commands. The device commands 
refer only to bulk storage devices and allow writing and 
positioning of file marks and rewinding of files. The function 
commands perform copying, verifying and displaying of ASCII or 
binary files to and from any device. All commands are terminated 
with a carriage return. Commands may contain operands which 
further define the operation to be performed. If a command or 
operand cannot be recognized by OS COPY, the message CMD-ERR 
is printed on the teletype and the command is ignored. All 
decimal number operands must be less than or equal to 65,5 35. 

3 . 1 Device Commands 

The device commands are ignored for non-bulk storage devices. 
Note that there is no message in this case to the operator to 
indicate that the command was ignored. 

3.1.1 Backspace File 
BSP LU,N 

where: LU is the logical unit of the device to be backspaced. 
N is the decimal number of file marks to be backspaced. 

This command backspaces over N file marks. N is optional and 
defaults to 1. 

Examples: BSP 4,6 Backspace 6 files on LU 4 
BSP 4 Backspace 1 file on LU 4 

3.1.2 Write Filemark 
WFM LU 

This command writes one file mark on the device specified by LU. 

3.1.3 Skip Forward Filemark 

SKP LU,N 
SKP LU,ALL 

where: LU is the logical unit of the device to be skipped 
forward. 

N is the decimal number of file marks to be skipped. 
ALL is the literal 'ALL'. 

This command skips forward N file marks on device LU, or when 
'ALL' is specified the device is positioned forward until end 
of volume (2 consecutive file marks are encountered) . The 



device is backspaced over the second file mark in anticipation 
of file appending. N is optional and defaults to one. 



Examples: SKP 2,7 

SKP 2, ALL 
SKP 2 



skip forward 7 file marks on LU2 

skip to EOV on LU2 

skip forward 1 file mark on LU2 



3.1.4 Rewind 
RWD LU 
This command rewinds device LU. 



3.2 Function Commands 

3.2.1 Copy 

CPYA FN or **NNNNNN,R,N or ALL 
CPYB FN or LLLLLL, R,N or ALL 



where : 



FN is a decimal file number indicating where copying 
is to begin. 

**NNNNNN is an ASCII label where copying is to begin. 

R is the record length of the file being copied. 

N is the decimal number of files to be copied. 

ALL is the literal 'ALL'. 

LLLLLL is a binary file label where copying is to begin. 



The CPYA command is used to copy 
command is used to copy binary files, 
done from LU1 to LU2. In CPYA or CPYB 
file number (FN) which causes OS COPY 
LU1 before copying. If labels are spe 
then LU1 is searched until the label i 
file number is not found before EOV is 
FILE END is printed on the console and 
FN is optional and defaults to zero, i 
volume. 



ASCII files, while the CPYB 
In either case copying is 
the user may specify a 
to skip FN file marks on 
cified (**NNNNNN or LLLLLL) 
s found. If the label or 
encountered, the message 
the command is aborted, 
e., first file on the 



After positioning via FN, the LU1 remains positioned after 
the last file mark skipped. When positioning to a label, LUl is 
backspaced over the label to include it in the copy operation. 
In either case, searching begins from where the file is currently 
positioned when the CPY command is issued. The user should issue 
a rewind command to LUl prior to the CPY command if he desires 
positioning or searching from the beginning of the volume. 



If an ASCII file or files are being copied and the ALL 
option is not specified, OS COPY will pause if a record tfPAUSE 
is read. See Section 3.2.7 for instructions to continue. 

R is the record length of the file. R is optional and 
defaults to 80 for ASCII files and 108 for binary files. N 
determines the number of files to be copied. N is optional 
and defaults to 1. 'ALL' indicates copying until EOV is 
encountered. NOTE: See the VARI command for an explanation 
of variable length record copying. 

Examples : 

CPYA **SOURCE,80,2 Copy 2 files beginning at label **SOURCE 

CPYA **SOURCE,,ALL Copy until EOV beginning at label **SOURCE 

(record length defaults to 80) 

CPYB 3,, 2 Copy 2 files after skipping 3 file marks 

CPYB ASMBLR Copy the ASMBLR program 

CPYB , ,ALL Copy an entire binary volume 

CP Yb Copy one program 

NOTE: The first or second operand may be defaulted by entering 
just the comma delimiter. 

3.2.2 Verify 

VERA FN or **NNNNNN,R,N or ALL 
VERB FN or LLLLLL,R,N or ALL 

The verify command is used to compare files (LUl to LU2) . ^he 
operands of the verify command are equivalent to the Copy command 
2nd the positioning of LUl is identical. After positioning, LUl 
is compared to LU2 . When a discrepancy occurs, the input and 
output P ?i?e records are displayed on the list device as described 
in Section 3.2.3, -and OS COPY pauses with the message NON 
VERIFY ' . 

3.2.3 Display 

DSPA FN or **NNNNNN,R,N or ALL 
DSPB FN or LLLLLL,R,N or ALL 

The display command displays files or entire volumes (LUl) onto 
the lis? device (LU3) . The display format consists of a record 
number followed by the hexadecimal representation of the record. 
The line immediately below the hexadecimal representation con- 
tains the printer graphic characters associated with the hexa 
decimal characters! Non-printing characters are represented by a 
space. 



Operands, positioning, record size defaults are as 
described in Section 3.2.1. N or ALL determine the number 
of files to be displayed. 



Examples : 

DSPA 0,80,3 

DSPA **FILE2 

DSPB OBJECT 

DSPA , ,ALL 



List 3 ASCII files starting at file 

List **FILE2 

List the file OBJECT 

List an entire ASCII volume of files 

OBJECT 



See Appendix 1 for example of Display printout. 



3.2.4 Label 

LBLA **NNNNNN 
LBLB LLLLLL 

where: **NNNNNN is an ASCII file label 
LLLLLL is a binary file label 

The label command writes a label record for ASCII files (LBLA) 
or binary files (LBLB) . When used, this command should precede 
the actual copying of a file. The Label command writes the label 
on LU2. An ASCII label record is 80 bytes long with **NNNNNN as 
the leading bytes and the remaining bytes undefined. A binary 
label record is a 108 byte loader format record with a single 
(label) loader item. If the name specified contains less than 
6 characters, blanks are used for right fill. 



Examples: 


LBLA **F2 




LBLB PROG 


3.2.5 


Find 


FN DA 


**NNNNNN,LU 


FNDB 


LLLLLL , LU 



where: **NNNNNN is an ASCII file label 
LLLLLL is a binary file label 

This command will locate an ASCII file label (FNDA) or 
binary file label (FNDB) on the logical unit specified by LU. 
The file is backspaced in front of the label, if the label is 
found. If EOV is encountered before the label is found, the 
message 'FILE END' is logged on the console. Searching begins 
from where the file is currently positioned. 



Examples : 



FNDA 
FNDB 



**NAME,1 
LABEL , 1 



3.2.6 List 

LSTA LU 
LSTB LU 

The List command lists all ASCII label names (LSTA) or 
binary label names (LSTB) contained on the device specified 
by LU. Listing begins from where the file is presently 
positioned. This operation terminates on an End of Volume 
indicator. 

3.2.7 Continue 
CONT 

The Continue directive is used to restart an interrupted 
OS COPY operation. The following are conditions that may 
require the Continue command. 

a) A verify operation may terminate with a NON-VERIFY 
mesaage. The CONT command can be used to continue 
verifying. 

b) OS COPY pauses and prints the message 'HALT' when 

a record containing the characters 'PAUSE' preceded 
by a single blank is read from an ASCII file. The 
CONT allows the paused operation to continue. 

c) Abnormal device status results in the message 
I/0-ERR:XXDD where XX is the abnormal status of the 
device, and DD is the device number. After the 
operator takes appropriate action, the CONT command 
can be used to continue the interrupted operation. 

Device status considered abnormal by OS COPY may be 
device unavailable (XX=A0) or unrecoverable error 
(XX=84) . 



3.2.8 Variable 

VARI 

OS COPY is initialized to process fixed length records. 
The Variable command is used to indicate that variable length 
records are to be copied. The VARI command acts as a mode 
setting. All OS COPY operations after the VARI command are 
variable fcangth operations. When copying variable length 
records OS COPY writes the exact number of bytes for each 
record. This feature is necessary only when copying programs 
with bootstrap front ends. Verify and Display operations are 
also handled in variable mode. The VARI command may only be 
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used under BOSS R01 and above, or DOS R01 and above. Variable 
operations are valid only on Mag tape, cassette, high speed 
paper tape reader or Teletype. Variable binary operations are 
not allowed on paper tape devices. 

In using R01 of BOSS to process variable length records 
the following patches are necessary: 

MTR1+2 should be X'2178' 
SKIP should be X'0200' 

Refer to the symbol table on a BOSS listing (03-019R01A13) to 
determine the actual locations. 



3.2.9 Fixed 
FIXD 

The FIXD command resets OS COPY to process fixed length 
records . 



3.2.10 Pause 
P 

The P command pauses OS COPY and returns to the Operating 
System. The applicable Operating System command may be 
issued to continue. 



3.2.11 End 

END 

The END command causes OS COPY to return to the Operating 
System. 
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4. Operating Instructions 

The following are instructions for loading and executing 
OS COPY. 

a) Load an operating system: BOSS, DOS or RTOS. If RTOS 
is used, OS COPY must be established as an RTOS task. 
(See RTOS Reference Manual for details) . 

b) OS COPY is a relocatable program, and may be loaded 
at any desired BIAS with the OS Resident Loader or 
the OS Library Loader. 

c) Make the desired device assignments. LU5 should be 
assigned to the Teletype for command input processing. 

d) Start OS COPY at the origin. The restart address is 
also the origin. 

OS COPY requires approximately 3.5KB of memory, not including 
buffer area for copying. The buffer area required is equal to 
the record length specified in the copy operation. For verify 
operations, a buffer of twice the record length is required. 
The maximum record length allowed is limited only by the amount 
of memory available on the processor. If the specified record 
length exceeds the amount of memory available, the message 
MEM-FULL will result, indicating not enough memory is available 



NOTE 

When loading any other program into memory 
above OS COPY, the loader bias should be 
adjusted to leave enough room for the 
necessary buffer area. 

When establishing OS COPY as a task under 
RTOS, a GET Storage command should be issued 
to obtain the required buffer space for the 
program. 
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APPENDIX A 
SUMMARY OF MESSAGES 



CMD-ERR 

PAUSE 

NON VERIFY 

FILE END 

I/O ERR XXDD 

MEM-FULL 



Illegal command entered 

# PAUSE record encountered 

verify operation mismatch 

EOV encountered while searching (LUl) 

Device unavailable or unrecoverable 

error on device DD. 

Record length exceeds available memory, 



APPENDIX B 
SAMPLE COPY PROCEDURES 

1) To copy a binary paper tape to cassette under BOSS, make 
the following assignments: 

AS 1,13 Assign LUl to paper tape 
AS 2,45 Assign LU2 to cassette 

and enter the following OS COPY command: 

CPYB 

This command defaults to: a) no skipping prior to copying 

b) 108 bytes loader format 
records ' 

c) one file to be copied 

This command will be terminated by an ENDVOL label record 
or EOM on paper tape. 

2) To copy a source disc volume to mag tape under DOS, make the 
following assignments: 



AC FILE,1 
AS 2 85 



Assign file name 'FILE 1 to LUl 
Assign LU2 to mag tape 



and enter the following OS COPY command: 
CPYA , ,ALL 
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This command defaults to a) no skipping prior to copying 

b) 80 byte ASCII records 

This command will be terminated by a /& record, EOV, or EOM 
on disc. 

3) To copy a binary cassette to another cassette under BOSS 
make the following assignments: 

AS 1,45 assign LUl to cassette input 
AS 2,55 assign LU2 to cassette output 

and enter the following OS COPY command 

CPYB , ,ALL 

This command defaults to a) no skipping prior to copying 

b) 10 8 byte loader format records 

This command terminates on EOV or EOM on cassette. 

4) To copy the source of DOS from a mag tape file to cassette, 
make the following assignment: 

AS 185,245 

and enter the following OS COPY command 

CPYA **DOS 

This command defaults to a) 80 byte ASCII records 

b) 1 file to be copied 

This command searches for file **DOS and terminates on EOF. 

5) To' verify the previous example issue the following OS COPY 
command: 

BSP 1,2 
BSP 2,2 

VERA 
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APPENDIX C 

RECNT »l23!f56789ABClEF0123456 7 89ABCDEF 

00001 312020 20 202052454|)20555349<fE47205445535420 3l2r)2C>535452494E472o44 
1 WEM USIMG TEST 1--STRTNG I.) 

41^441 202020202020202020202020202020202020 2020202020 2020202020 20 
ATA 

2 0e!020 20 20 202020 20202020 20 20 20 20 

0000 2 35202020 202044494D41 24283 1?920 20 2020202020 2020202020 ?0?020?0?020 
^ D I M A $ ( 1 ) 

20202020 20202020202020202020 20 202020 202020 2020202020 202020202020 

202020 20 20 2020202020 2020 20 20 20 2 

0000 3 31 302020 20 204^9402042242835292020202020 20 2020202020 ?0?0202020 20 
10 DIM B S ( 5 ) 

20c!0202020202020202020202020 20 202020 2020 20 20 20202020202020202020 
202020 20 20 20202020202020 20 20 20 2 

00004 3 1 352020 202044494D4324283 130 29202020202020 2020202020P02020202020 

1 5 I M C $ ( 1 ) 

20202020 20^02020202020^020 20 20 202020202020 20 20202020 2020202020 20 
202020202 2020202020 20 20 20 20 20 20 

00005 3230202020 2044494D4424283230292 02020202020 20202020?0?020202020 20 

2 J.) I m Q % ( 2 ) 

20202020 202020202020202020 20 20 202020202020 20 20202020 20202020 2020 
20202020 202020202020202020 2020 20 

0000 S 32352020 202044494D4631 242832292 02020202020 2020202020 ?0?0202020?0 
2 5 D I M F 1 * ( 2 ) 

^0202020 2020202020202020202020 20 2020202020 2020202020 2020202020 20 
202020 2020202020202020202020 20 20 

15 



INTfRDATA COPY UTILITY - OS COPY 0S-096A1S 



f'At;r 



0000 
0001 
000P 
0003 

ooot 

000b 
0006 
0007 

oooe 

0009 
OOOA 
OOOB 
OOOC 
OOOD 
0001) 

ooor 

000F 



oooor 

OOOtR 

OOOfiR 
OOOaR 

OOOEr 

0012R 

OOlfcR 

001AR 

OOIEr 

0022R 



CflDO 
002* 
C8F0 

0F3«tR 

07EF 

MHO 

092AW 
CflEO 

2020 

C8F0 

0EC8R 

CRDO 

0050 

tllO 

092AR 

DlOO 

0F22R 

E120 

0152K 



0026R Ello 
OOCOR 

002AR *>aoo 

00C2I' 
002ER 0216 
0030R D1E0 

0EC8R 
0034R cflfiO 

OOflA 
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1 

2 

3 

H 
5 
6 

7 

a 

9 

10 

11 

12 

13 

13 

It 
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RO EQU 

LINK EOU 

RECRDS EQU 

R3 EQU 

LASTAD EQU 

COMAND EQU 
ERROR 



CMOER 

RTN 

RS 

RlO 

Rll 

R12 

R13 



* 
COMD 



EOU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



NUMBER EQU 
FROM EQU 
TO EQU 



OSCOPY LHl 

L HI 

XHR 
BAL 

l hi 
l hi 

LHI 
BAL 
NAME LM 
SVC 



NUMBER, ClRENO-ClRBEG 
TO.CLRBEG 



FROM, FROM 
LINK, CLEAR 

FROM,X»2020» 

TOtBUFFER 



CLEAR VALUE 

CLEAR PARAMETERS ETc. 

Clearing value 
start address 



NUMBER , SPCCND -BUFFER 

LINK, CLEAR CLEAR BUFFER 

RO.REGSAV LOAD rEGS 

S.NAMBLK 



C0M1"IAT1D PROCESSOR 
SVC l.CMDBLK 



LH 



R0,Cf1DBLK*2 



HMR ERROR 

LM FROM, BUFFER 



READ A COMMAND 

TEST STATUS 

ERROR 

GET DIRECTIVE 



LHI Rll.cMDEND-cMDLST LIST LENGTH 



CPY00030 

rr'YOOoio 
cpyoooso 

Ct'YOOOfcO 
CPY00070 
CpYOOOftO 
CPY00090 
CTY00100 
CI'YOOllO 
CPY00120 

cpYOoise 

CpYOOlfO 
CPY00150 

cpYoirieir 

CPY00170 
CPY001BO 
CPY0O19O 
CPY00200 
CPY00210 
CPY00220 
CPY00230 
CPY00?*»0 
CPY00250 
CPY00260 
•* CPY°027° 
CPY00280 
CpY00?90 

CPY00300 

CPY00310 
CPYOO.^20 

CPY00330 

CpY003f0 

CPY00350 

CPY00360 

CPY00370 

CPY00380 

* CpyO039O 
CPYOO«»00 
CPYOOIO 

CPY0O20 

CI>YOO<*30 
CPYOO'mO 

CPY00450 
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0038R 

003CR 
003ER 
OOtOR 
00"+2R 
OO'+^R 

00«*8R 
00«»AR 

OOtER 

0052R 
005<*R 

O056R 

005CR 
005ER 

0062R 

0066R 
0068R 

OO&CR 
006ER 

0072R 
007<tR 

0078R 

007CR 
007ER 
0O8OR 

OOfltR 
0086R 

008AR 

008ER 

0092R 
009HR 

0098R 
009AR 

009ER 
OOAOR 
OOA2R 

00A6R 



M5EB 

OOC«*R 

233f 

27r6 

221* 

0307 

tSFB 

00C6R 

2035 

H81B 

00C2R 

C310 

0001 

0231 

C890 

FFFF 

C8A0 

005CR 

2691 

D309 

0EC8K 

C590 

0030 

0331 

C500 

0000 

0331 

C500 

0020 

023a 

C8A0 

007CR 

«*300 

005CR 

07FF 

07DD 

D309 

0EC8R 

2691 

C590 

0050 

t380 

OOACR 

C500 

0020 

2239 

C500 

002C 

233A 

C500 

0000 

2337 

26F1 

D20F 

0F3HR 

2601 



CMDl 
CM02 
CMD3 



CMDt» 
CMD5 



CLH 

HES 

SIS 

BNMS 

BR 

CLH 

BNES 
LH 

THI 

BNZR 
LHI 

LHI 

AIS 

LP 



■ OS COPY 03-056A13 
FR0M,CMDLST-<UR11> CHECK ENTRY 



PAGE 



CMD3 
Rll»6 
CHOI 
CMOER 



LOCATED 

DECREMENT INDEX 
CONTINUE St ARCH 
COMMAND ERROR 



T0,CM0LST-2(R11) CHECK NEXT TWO CHARACTERS 

CM02 

LINK.CMDLST-6(R11) PICK UP ADDRESS 



LINK.1 

LINK 
R9,-l 

RlO»CM05 

R9«l 
R0,BUFFER<R9) 



CHECK PARSING FLAG 

EXIT TO HANDLER 
CLEAR INDEX 

SET RETURN ADOR 

INCREMENT INDEX 
GET A CHARACTER 



CLHI Rg.BUFEND-BUFFER CHECK FOR BUFFER END 



RER 
CLHI 

HER 
CLHI 

HNLR 
LHI 

H 

parser xhr 
xhr 

CMD6 LB 

AIS 
CLHI 

BNL 
CLHI 

HES 
CLHI 

BES 

CLHI 

HES 
AIS 
STB 



LINK 
RO.X'OD' 

LINK 
R0.X»20» 

RIO 
RlO»pARSER 

CMD5 

To»TO 

NUMBER, NUMBER 
R0«BUFFER(R9) 

R9,l 



YES - EXIT 
CHECK FOR CR 

YES - EXIT 
CHECK FOR SPACE 

NO - CONTINUE SCAN 

YES - SET SCAN FOR FiRST ChArACTEr 

CONTINUE 

OPERAND INDEX 
LENGTH OF OPERAND 
GET A CHARACTER 

BUMP INDEX 



R9,BUFEND-BUFFER INDEX = END ? 



CmD7 

RO.C* * 

CMD6 
R0«C«,» 

CMD7 

R , X ♦ 00 • 

CMD7 
TOtl 
KOiOPRAND(TO) 



AIS NUMBER ,1 



YES - FINISH 

CHECK FOR SP*CE 

YES - IGNORE 
CHECK FOR COMMA 

CHECK FOR CR 



Increment 
store character 

bump length attribute 



CPYO0t6O 

CPY00<*70 
CPY00480 
CpY00t90 
CPY00500 
CPY00510 

CPY00520 
CPY00530 

CPY00540 

CPY00550 
CPY00560 

CPY00570 

CPY00500 
CPY00590 

CPY00600 

CPY00610 
CPY00620 

CPY00630 
CPY006«»0 

CPY00650 
CpYOOfefeO 

CPYOOf-70 

CPY00680 
CPY00690 
CPY00700 

CPYOO71O 
CPY00720 

CPY00730 

CPY007SO 

CPY00750 
CPY00760 

CPY00770 
CPY00780 

CPY00790 
CPY00800 
CPY00810 

Cf'Y00ft?0 
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00ACU 
OOAER 
OOI? OH 

00B4R 
0006K 

OOBAR 
OOBCr 

OOCOR 



00C8R 
OOCER 
00O4R 
OODAR 
OOEOR 
O0r6R 
OOECr 
00F?R 
00F8R 
O0FF.R 
OlOtR 
010AR 
0110R 
0116R 



"♦300 

OOOOR 

OflEF 

OBED 

020E 

0F34R 

26F1 

C590 

0050 

0381 

"♦300 

007ER 

4805 

0000 

0EC8R 

0F17R 

015ER 

•♦350 

5941 

016CR 

"♦350 

5942 

02A4R 

5645 

5241 

02BAR 

5645 

5242 

0404R 

4453 

5041 

0412R 

4453 

5042 

0C52R 

4C42 

4C41 

0C96R 

4C42 

4C42 

0A3ER 

4C53 

5441 

OAFFR 

4C53 

5442 

07A4R 

4649 

5844 

0R96R 

464E 

4441 

0BF8R 

464E 

4442 

05BPR 



CMD7 LHH 
SHR 
STB 

AIS 

CLHI 

BNLR 
6 

CMDBLK DC 



CHOLST DC 



FROM, TO 

FROM, NUMBER CALCULATE ATTKIBUTE DISPLACEMENT 

NUMBER ♦ OPRAMM FROM > STORE LENGTH ATTRIBUTE 

T0,1 BUMP OPERAND INDEX 

R9,BUFEND-BUFFER CHECK FOR ENO 



link 

PAR3ES+2 



YES - EXIT 
CONTINUE PARSING 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 



X«4805»,0, BUFFER, BUFFER+79 

€PYA,C»CPYA« 
CPYB«C'CPYB» 
VERA,C»VERA» 
VErB,C»VErB» 
DSPA,C»DSPA» 
DSPB.C'DSPB' 
LBLA,C»LBLA» 

LBLB,C»LBLD» 
LSTA.C*LSTA» 
LSTB,C»LSTB* 
NVR»C»FIXO» 

FnDA,C»F|\iDA» 
FnDB,C»FnOB» 

Ruo,c«Rwn ♦ 



CIY00830 

CCY00840 
CPYOO'850 
CPY008A0 

CPY00870 
CPY00880 

CPY00890 
CPY00906 

CPY00910 



CPY00920 
CPYOO93O 
CPY00940 
CPY00950 
CPY00960 
C|'Y00970 
CPY00980 
CV YO 0990 
CPY01000 

rpYOioio 
CPY01020 

CCY01030 
CPY01040 

rnYOioso 
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OllCR 



0122R 



0128R 



012ER 



0134R 



013AR 



0140R 



0146R 



01<»CR 

0150H 
0152R 
0152R 

0156R 



5257 
4420 

05DCK 

5746 

4D20 

0678R 

4253 

5020 

07CFH 

454C 

4420 

07CFH 

454E 

440D 

07AER 

5641 

S249 

0D77R 

434F 

4E54 

0600K 

534R 

■S020 

07C9R 

5020 

2020 

07c9R 

soon 

2020 

0007 
OOOB 
4F53 
2043 
4F30 
5920 



015ER 

015ER 
0162R 
0166R 

016AR 
016CR 

0170R 

0174R 
0176R 

017AR 
017CR 



C890 

2020 

4090 

0F4ER 

C890 

^848 

2303 

C890 

3858 

D290 

0832R 

9098 

D?90 

084ER 

0799 

4090 

OFSOf 



DC WFMtC'WFM • 



OC BSP»C«RSP 



OC END+l.C'END • 



DC EMO+ltX»454E«,X»tH0D» 



DC VAR«C«VARI» 



DC CONT+itC'CONT' 



DC SKPtC'SKP 



DC PAWS+l.C'P 



DC 

DC 
CMDEWD EQU 
NAMBLK DC 

NAfiST DC 



PAWS+1.X«500D» 

X«2020« 

* 
7.NAMEND-IMAMST 

C«OS COPY' 



NAmEND EQU * 

* 



COPY 

CPYA LHI R9,X'2020' 

STH R9,CLRVAL 

LHI Rg,X»2848» 

BS COPY 

CHYB LHI R9.X»3658' 

COPY STB R9.RDBLK 

SRLS R9,8 

STB R9.WRBLK 

XHR R9.R9 

STH R9,FMKFLG 



WRITE/READ ASCII 

WRITE/READ BINARY 
PRIWE READ BLOCK 

PRIME WRITE BLOCK 

CLEAR FILEMARK FLAG 



ci'Yniof.0 

CPY01070 
CPY01080 
CfYOlOOO 
Cl'YOlIOO 
CPYOmO 
Cl Y01120 
Cl Y01121 

CPY01122 

Ct'Y0U23 
CI'Y01130 
CPY0H40 

CIY01150 



CCY01160 

■ * CCY0H70 

CPY01180 

CPY01190 

CPY01200 

CPY01210 

CPY01220 
CPY01230 

C|>Y01240 

CPY01250 
CPYOi?bO 

CPY01270 
CPY01280 
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0180R 


4180 




0D7CR 


oietR 


CAEP 




0001 


O188R 


03DE 




FFFF 


018CR 


07BB 


018ER 


E120 




02A0R 


0192R 


<*83t 




0000 


0i96R 


«»H30 




029ER 


019AR 


C<t30 




FFFE 


019LR 


<*53«» 




0001 


01A2R 


H280 




0f>H0R 


01A6R 


0893 


01A8R 


"♦090 




0B36R 


OlACR 


1090 




0852R 


01BOR 


<+A90 




029FR 


01B<*R 


2791 


0J86R 


i+OgO 




0838R 


OIBAR 


<+090 




0854R 


OIBFR 


0722 


OICOR 


OflDD 


01C2R 


233F 


oictR 


C6F0 




0F56R 


01C8R 


3BE 




0000 


01CCR 


C&BO 




00<»1 


oinoR 


233<t 


01D?R 


«U10 




0896R 


01O6R 


2305 


011J8R 


C8R0 




FFFF 


01DCR 


40B0 




0F56R 


OlEOR 


E120 




02A0R 


01E4R 


4SB0 




OF20R 


01E8R 


2333 


OlEAR 


C8<»0 




083AR 


OlEER 


«»8E0 



CP2 



CP3 



CPf 



BAL 

AHI 

LB 

XHR 
SVc 

LH 

SH 

n»l 

CLH 
BL 

LHR 

SjH 

STH 
AH 

SIS 
STH 



- OS COPY O*-0S6A13 PflGf 

RTN.PROC PROCESS COMMAND 
FROM.l(NUMBER) BUMP TO OPERAND 
NUMBTRt-itFROm PICK OP ttEXT LENGTH 



R11.R11 
2»FETCH 

R3,0(LASTAD» 

R3«RECSIZ 

R3*X*FFF€> 

R3»H«LASTAO) 

MEMERR 

R9,R3 
R9,RDHLK+«» 

R9.WRBLK+* 

R9.RECSIZ 

R9.1 
R9«R0BLK + f, 



STH R9.WRBLK+6 



CP5 



xttR — RrcRps~; R E c R us 

LHR NUMBER. NUMBER 

BZS CP 4 * 

LHI TO. QUANT 

LB Rll.O(FROM) 

CLHI Rll.X'tl' 

BES CP3 

BAL LlNK.xLATOB 

RS CP>J 

LHI Rll.-l 

STH Rll, QUANT 

SVc 2. FETCH 

LH Rll.VARFLG 

BZS CP5 

LHI LASTAD.RDBLK+8 FIXED LENGTH OPNS 

L"H FROfUCLRVAL CtEA« VfttUt 



CLEAR FILE COUNTER 
FETCH POINTER 

CTOP 

RECORD SIZE 

"HA1.FWORO- ftOtmOARY 

compare to utop 
less = memory full 

prime i/o block 
prime i/o mlock 
calc rec end 

PRIME I/O bLOCK 

PRIME I/O BLOCK 

CLOR~ RECORDS COUNTER 

DEFAULT ? 

YES 

SET RECEIVER 

GET OPERAND 

CHECK FOR 'ALL* 

TRANSLATE DECIMAL TO BINARY 

SET FLAG FOR 'ALL' 
SAVE NO. FILES 
FETCH CONTAB POINTER 
CHECK VARIABLE LENGTH FLAG 



CPY01290 
CPY01300 

crYOisre- 

CPY01320 

CPY01330 

CPY01331 

CPY01332 

€PY1>133» 

CPY0133H 

CPY01335 

CrY013"»0 
CPY01350 

CPY0j3 6 

C|<Y01370 

CPY01380 
CPYO139O 

CpYOmOO 

CPT01410 
CPY0m30 
CPYOlttO 

cprttmno 

CPY01H60 
CPY01470 

cpYomeo 

CPY01<*90 

CPY01500 
CPY01510 

CPY01520 

CPY01530 

CPYOlStO 

CPY013SO 
CPY01560 

CPY01570 
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GF4CR 


niFpn 


innn 




n^9f u 


niFfcx 


4«fo 




0836K 


OlFAR 


4110 




092AR 


OlFER 


•4110 




07F2K 


0202R 


48R0 




OF50R 


0206R 


4210 




0292R 


020AR 


4230 




0272R 


020ER 


48B0 




0F4ER 


0212R 


4330 




0266R 


0216R 


48RF 




0000 


021AR 


CSBO 




2F2A 


021ER 


4330 




0272R 


0222R 


C5B0 




2F26 


0226R 


4330 




028CR 


022AR 


2621 


022CR 


48B4 




FFFE 


0230R 


4ORO 




0854K 


0234R 


4110 




083AR 


0238R 


48BF 




0000 


0?3cR 


C5nO 




2050 


0240R 


4230 




01EER 


0244R 


4B8F 




0002 


0248R 


C5B0 




4155 


024CR 


2036 


024ER 


48BF 




0004 


0252R 


C5B0 




5545 


0256R 


203R 


0258R 


4890 




0F56R 


025CR 


2113 


025ER 


4110 



CP6 



CP7 



CP7A 



LH 


NUMBER tHECSIZ 


LH 


TOiHDHLK+4 


BAL 


LINK, CLEAR 


BAL 


LlNKiREAD 


LH 


Rll,FMKFLG 


BM 


CPEOV1 


BNZ 


CPE OF 


LH 


Rll.CLRVAL 


BZ 


CP8 


LH 


Rll.OtTO) 


CLHI 


Rll,C>/*» 


BE 


CPEOF 


CLHI 


Rll»C»/*» 


BE 


CpEoV 


AIS 


RECRDS.i 


LH 


Rll»-2(LASTAD) 


STH 


Rll.WRBLK + t, 


BAL 


link. write 


LH 


Rll.O(TO) 


CLHI 


Rll.C' P' 


BNE 


Cp5 


LH 


Rll.2(T0) 


CLHI 


Rll.C'AU' 


BNES 


Cp7A 


LH 


Rll.4(T0) 


CLHI 


Rll,C*SE» 


BNES 


Cp7A 


LH 


R9, QUANT 


BMS 


CP7B 


BAL 


LlNKtHALT 



RECORD SI7E 

SET KECFIVLR AOORTSS 

CLEAR BUFFER APPROPRI ATELY 

READ A RECORD 

CHECK FILEMARK FLAG 

MINUS = TWO FILEMARKS 

NOT ZERO = ONE FIlEmARk 

BINARY 

GET HALFWORD FROM RUFFER 

EOF 7 

EOV ? 

INCREMENT RECORD COUNTER 
PICK UP RECORD SIZE 

PRIME I/O BLOCK 

WRITE A RECORD 

GET HALFWORD FROM BUFFER 

PAUSE ? 

SKIP PAUSE HALT 



CHECK QUANTITY 

SKIP PAUSE HALT 
HALT 



riYnmno 

n-Y01.fi90 
CPY01600 

CPYOifcio 

CPY01620 
CPY01630 
CPY01640 
CPY01650 
CPY01660 
CPY01670 
CIY01680 
CPY01690 
CPY01700 
CPY01710 

CPY01720 
CPY01730 

CPY01740 

C( Y01750 

CPY01760 

O'Y01770 

CPY01780 

CPY01790 

CPY01800 

CPY01810 
CPY01820 

CPY01830 

CPY01840 
CPY01650 

CPY01860 
CPY01870 
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0262R 

0266R 

026AR 

026FR 

0272R 
027«»R 

0278R 

027CR 
027ER 
0280R 
0282R 
028«*R 

0288R 

O28CR 
028ER 

0292R 
029«tR 

0298R 
029AR 

D29ER 
029CR 
02A0K 



02A4R 

02A8R 

02ACR 

D2B0R 

02B4R 

02B8R 
02BAR 

02RER 

02C2R 

02C6R 
02C8R 



QD64R 
U300 

oieeh 

0E36R 
"♦300 
028CR 
"♦300 

022AR 
2*32 

<U10 

05ECR 

<*8B0 

0F56R 

0335 

2115 

27B1 

0335 

tOBO 

0F56R 

i*300 

01EER 

2*32 

«U10 

05ECR 

2«*32 

"♦110 

05ECR 

0305 

0002 

0003 

0000 

0005 
000<t 



C890 

0048 

D290 

0832R 

0290 

03FCR 

C8A0 

2020 

^OAO 

OFHER 

2307 

C890 

0058 

0290 

0832K 

0290 

03FCR 

0799 

H090 



CP7B 

cr« 



hal 



CPEOF 



CP10 



CPU 
CPEOV 

CPEOV1 

GETCOR 

RECSIZ 
RELCOR 
FETCH 



LIS 
BAL 

LH 

BZR 
BMS 
SIS 

BZR 

STH 

B 

LIS 
BAL 

LIS 

BAL 

BR 
DC 

OC 

EQU 

DC 



CP5 

RTN,VOLCHK 

CPEOV 

CP7 

R3,2 
LlNK.wFMK 

Rll.OUANT 

comand 

CPU 
«11»1 
COMANO 
RllfQUANT 

CP5 

«3«2 
LlNK.WFMK 

R3»2 

LlNK.WFMK 

COMAND 
2.R3 



GETCOR+2 
5.LASTAD 



VERA 



VERIFY 
LHI R9,X»*8' 



VERB 



VERIFY 



STB 

STB 

LHI 

STH 

BS 
LHI 

ST B 
STB 

XHR 
STH 



R9tRDBLK 
R9.RDBLK2 

ttnriXr2o2irT 

RIOiCLRVflL 

VERIFY 
R9,X»58» 

R9.RDBLK 
R9.R0BLK2 

R9.R9 

R9*FMKFL<5 



CONTINUE 

CHECK FOR LNDVOL 

END OF VOLUME RETURN 

CONTINUE 

SET LOGICAL UNIT 
WRITE A FILEMARK 

PICK UP NO. FILES 

DONE 

MINUS = ALL 

DECREMENT COUNTER 

DONE 

NO 

CONTINUE 

SET LOfclCAt UNIT 
WRITE A FILEMARK 

SET LOGICAL UNIT FOR ALT. ENTRy 



ASCII READ 



tTLtrffRTNG VALUT 

save clear value / flag 

binary read 

binary read proceeo 

clear filemark flag 



CPY01880 

CPY01B90 

CPY01900 

CPY0191« 

CPY01920 
CPY01930 

CPY0i9<t0 

CPY01950 
CPY01960 
CPY019TO 
CPY01980 
CPY01990 

CPY02000 

CPYej^!* 
CPY02020 

CPY02fr25 
CPY02030 

CPY020«»0 
CPY02050 

CPY02060 
CPY02070 
CPY02080 

.* CPY02090 
CPY02100 
CPY02H0 

CPY02120 

CPY02130 

CPY021«F0 

CPY02150 

CPY02160 
CPY02170 

CPY02180 

CPY02190 

CPY02200 
CPY02210 
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0F50R 


02CCR 


4180 




0D7CR 


02D0R 


CAED 




0001 


02D4R 


03DE 




FFFF 


0208R 


E120 




02AOR 


02OCR 


4834 




OOOO 


02E0R 


4B30 




029ER 


02E4R 


C430 




FFFE 


02E8R 


4534 




000* 


02ECR 


4280 




0540R 


02fOR 


•4030 




0836R 


02F4R 


4A30 




029ER 


02F8R 


2731 


02FAR 


4030 




0838R 


02FER 


E120 




02A0R 


0302R 


4634 




0000 


0306R 


«*B30 




029FR 


030AR 


4B30 




029EH 


OsOER 


C43<> 




FFFE 


O3I2R 


4534 




0004 


0316R 


4280 




H540R 


031AR 


4030 




0400R 


031ER 


4 A 30 




029ER 


0322R 


2731 


0324R 


4030 




0402R 


328R 


0722 


032flR 


OUDD 


032CR 


233F 


032ER 


H3RE 




0000 


0332R 


C5B0 




0041 


0336R 


2336 


0336R 


C8F0 



VR2 



BAL 


RTN.PROC 


PROCESS COMMAND 


AHI 


FROM.l(NUMBER) 


BUMP TO NEXT OPERAND 


LB 


NUMBER. -l(FROM) 


PICK UP LENGTH 


SVC 


2, FETCH 


FETCH POINTER 


LH 


R3»0(LASTAD) 


CTOP 


SH 


R3.RECSIZ 


SUB TRACT RECORD SIZE 


NHI 


K3»X»FFFE» 


HALF WORD BoUNBARY 


CLH 


R3.41LASTAD) 


COMPARE TO UTOP 


BL 


memerr 


LESS = MEMORY FULL 


STH 


R3.R0BLK + t > 


PRIME I/O BLOCK 


AH 


R3.RECSIZ 


CALCULATE BUFFER END 


SIS 

STH 


R3.1 
R3.RDBLK+6 


ENO ADDRESS 


SVC 


2, FETCH 


FETCH POINTER 


LH 


R3,0<LASTAO> 


CTOP 


SH 


R3.RECSIZ 


SU B TR/vcT RECORD SIZE 


SH 


R3,RECSIz 


FIRST RECORD 


NHI 


R 3 »X»FFFE' 


HALF WORD BOUNBARY 


CLH 


R3.MLASTAD) 


COMPARE TO UTOP 


BL 


MfMERR 


LESS = MEMORY FULL 


STH 


R3.R0BLK2+4 


PRIME I/O BLOCK 


AH 


H3.RECSIZ 


CALCULATE BUFFER END 


S*S 
STH 


H3,l 
R3,RDBLK2+fa 


END ADDRESS 


XHR 


RECRDS.RECRDS 


CLEAR RECORD COUNTER 


LHR 


NUMBER. NUMBER 


DEFAULT? 


BZS 
LB 


VR5 
Rll.O(FROM) 


YES 

PICK UP OPERAND BYTE 


CLHI 


RlltX'Hi* 


•ALL* ? 


BES 
LHI 


VR3 

to.quant 


YES 

SET RECEIVER 



CPY02220 

CPY02230 

CPY02240 

CPY02250 

CPY02251 

CPY02252 

CPY02253 

CPY02254 

CPY02255 

CpY02260 

CPY02270 

CPY02280 
CPY02290 

CPY02300 

CPY02301 

CPY02302 

CPY02303 

CPY02304 

CPY02305 

CPY02306 

CPY02310 

CPY02320 

CPY02330 
CPY02340 

CPY02370 
CPY02380 
CPY02390 
CPY02400 

CPY02H10 

CPY02420 
CPY02430 
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QF56R 
033CR <»110 

0896R 
0340R 2305 
03«»2R C8B0 VR3 

FFFF 
0346R HOBO VR4 

OF36R 
034AR 48F0 VR5 

0836R 
03HER <*8D0 

029ER 
0352R <t8E0 

0F4FR 
0356R 4110 

092AR 
035AR 48F0 

0400R 
035ER "U10 

092AF 
0362R 4110 

07F2R 
0366R 4800 

OF50R 
036AR 4210 

0B84R 
036ER 4230 

030CK 
0372R 48B0 

0F4ER 
0376R 4330 

03F0R 
037rtR 48b0 

0836R 
037ER 48AR 

0000 
0382H C5A0 

?F2A 
03flf.R 4330 

0828k 
038AR CSAO VR6 

2F26 
038ER 2133 
0390R 4300 

0B1FK 
0394R 2621 VR7 
0396R E110 

03FCR 
039AR 4800 

03FER 
039ER 233D 
03A0R C300 

0800 
03A4R 2134 
03A6R C300 

1000 



BAL LlNKtXLATDB 



TRANSLATt UECIMAL TO BTNnRY 



HS 
LHI 


VR5 

Rll»-1 


STH 


RlltQUANT 


LH 


To»RDBLK+t 


LH 


NUMBER>RecS*2 


LH 


FROM.CLRVAL 


BAL 


link, clear 


LH 


TOtRDBLK2+<* 


BAL 


LlNKiCLEAR 


BAL 


link, read 


LH 


R11.FMKFL6 


HM 


NOFNO 


HNZ 


VREOF 


LH 


RlltCLRVAL 


BZ 


VR10 


LH 


Rll.RDBLK+H 


LH 


RlO.O(Rll) 


CLHI 


RlOtC'/** 


BE 


RDEOF 


CLHI 


RlO,C»/S« 


BNES 
R 


VR7 

RDEOV 


AIS 

SVC 


RECRDS.i 
1.R0BLK2 


LH 


R0«RDBLK2+2 


B2S 
THI 


VR« 
RO.X'SOO' 


BNZS 
THI 


FLGCHK 
RO.X'1000* 



SET QUANTITY 
SET RECEIVER 
SET R E C ORD --sreg 
CLEARING VALUE 
CLEAR BUFFER 
SET RECEIVER 
CLEAR BUFFER 
READ A RECORD 
CHECK FILeMaRK FLaG 

end of volume 

end of file 

test clearing value 

pick up buffer address 

unit record eof 7 
set eof flag 
unit record eov ? 



SET EOV FLAG 

INCREMENT RECORD COUNT 
READ A RECORD 

CHECK STATUS 

OK - VERIFY 
CHECK FOR EOF 

YES - CHECK FLAG 
CHECK FOR EOM 



CPY02440 

CPY02450 
CPYO2<*60" 

CPY02470 

C|Y02480 

CPY02490 

CPY02500 

CPY02510 

CPY02520 

CPY02530 

CPY02540 

CPY02550 

CPY02560 

CPY0^570 

CPY02580 

CPY02590 

CPY02600 

CPY02610 

CPY02620 

CPY02630 

CPY02640 

CPY02650 
CPY02660 

CPY02670 
CPY02680 

CPY02690 

CPY0?700 
CPY02710 

CPY02720 
CPY02730 
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336 

48P.0 

0F50R 

H330 

09A2R 

<*300 

03«tAR 

•♦800 

0836R 

?<*E1 

•♦eFo 

0838R 
<»8A0 
0<*00R 
03RA 

0000 
Dt B D 

0000 
•♦230 

09A2R 

26A1 

ClDo 

03C6R 

t300 

03tAR 

4BR0 

OF 56R 

0335 

2115 

27B1 

0335 

«»0B0 

0F56R 

<*300 

039«»R 

<*180 

0E36R 

4305 

0000 

4300 

0394K 

0002 

0000 

0000 

0000 



0404R C890 

00<»8 
0408R 0290 

0832R 
040CR C890 

2020 
OtlOR 2306 
0412R C890 

0058 



03AAR 
03ACR 

03BOR 

03BHR 

03B8R 

03BCR 
03BER 

03C2R 

03C6R 

03ca« 

03ce;r 

03D2R 
030HR 

03D8R 

3DCr 

O^EOR 
03e2R 
03E4r 
03E6R 
03E8R 

03E.CR 

03F0R 

03F4R 

03F8R 

03FCr 



HZR 
FLGCHK LM 

B2 

B 

LH 



VR8 



VR9 



VVJOF 



LIS 
LH 

LH 

LB 

CLb 

BNE 

AIS 
RXLE 

B 
LH 



VKEOFp B2R 
B MS 

sis 

B2R 
STH 

VRE0F3 h 

VR10 BAl 

B 

H 

rDH L K2 DC 



ERROR 
Rll.FMKFLG 

NONVER 

VR5 

NU«BER«RDBLK+H 

FROM.l 
T0»R0ftLK+6 

R10«RDBLK2+t 

Rll«0<RlO) 

R11,0<NUMrER> 

NONVER 

RlOtl 

NUMBER, VR9 

VR5 

R11»«UANt 

COMAND 
VRE0F3 
Rll.l 
COMAND 
Rll, QUANT 

VR7 

RTN»V0LCHk 

(COHAND) 

VR7 

2,0,0,0 



NO - ERROR 



CONTINUE 

ADDRESS OF BUFFER ONE 

INCREMENT 

END OF BUFFER ONE 

ADDRESS OF BUFFER TWO 



COMPARE CONTENTS 
NOT EQUAL 

CONTINEU COMPARING 

NO, OF FILES 

FINISHED 

ALL = CONTINUE 

OECrEMEnT COUNT 

DONE 

CONTINUE 

CHECK FOR ENDVOL 

OONE 

CONTINUt 



* 
DSPA 



DISPLAY 
LHI R9,X»U8» 



DSPH 



STB 

LHI 

BS 
LHI 



R9.RDBLK 

R9,X»2020« 

Dsl 
R9,X'58» 



ascii read 

Clearing value 
binary read 



CPY02740 
CPY02750 

CPY02760 

CPY02770 

CPY02780 

CPY02790 
CPY02800 

Ct Y02P10 

CPY02820 

CPY02830 

CPY02840 

CPY02850 
CPY02860 

CCY02870 

CPY02880 

CPY02890 
CPY02900 
CPY02910 
CPY02920 
CPY02930 

CPY029U0 

CPY02950 

CPY02960 

CPY02970 

CPY02980 



•♦ CPY02990 
CPY03000 
CPY03010 

CPY030?0 

CMY03030 

CPY03040 
CPY03050 



INTERDATA COPY UTILITY 
STb 



omfcR 


: D290 




0832R 


041AR 


0799 


OtlCR 


t090 




OFfER 


0<+20R 


0799 


0422R 


"♦090 




0F50R 


0426R 


0722 


0428R 


«tl80 




007CR 


0«»2CR 


E120 




02A0R 


0«»30R 


1R3t 




0000 


o«»3<tR 


«*H30 




029ER 


0«*38R 


CH30 




FFFE 


0«»3CR 


«»53«» 




000<* 


Oifi+OR 


<»280 




05«f0R 


04H«»R 


1*890 




029ER 


0<»H8R 


H030 




0836R 


ottcR 


CA39 




FFFF 


Ot50R 


1030 




0838R 


0«f5«*R 


07BB 


0456R 


CAEO 




0001 


0«»5AR 


D3DE 




FFFF 


Ot5ER 


0800 


0460R 


233D 


0t62R 


D3BE 




0000 


Oi»66R 


C8F0 




0F56R 


0«*6AR 


C5B0 




oom 


0«t6ER 


2331 


0«f70R 


H110 




0896R 


o<»7«*r 


2305 


0«f76R 


C8B0 




FFFF 


OI+7AR 


tOBO 




0F56K 


0<»7ER 


E120 




02A0R 


0482R 


18A0 




0F20R 



DSl 



DS6 



DS7 



XHR 
STH 

XHR 
STH 

XHR 
BAL 

SVC 
LH 

SH 

NHI 

CLH 

BL 

LH 

STH 

AHI 

STH 

XHfT 
AHI 

LB 

LHR 
BZS 
LB 

LHI 

CLHI 

BES 
BAL 

BS 
LHI 

STH 

SVC 
LH 
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R9.RDBLK 

R9.R9 
R9.CLRVAL 



page n 



R9.R9 
R9,FMKFLG 

RECROS.RECROS 
RTN,PROC 



2. FETCH 

RSfOtLASTAD) 

R3«RECSI2 

RS.X'FFFE* 

R3,«HLASTA0) 

MeMERR 

R9.RECSIZ 

R3.RDBLK+H 

R3.-KR9I 

R3.RDBLK+6 



CLEAR FILEMARK FLAG 

CLEAR RECORDS COUNT 
PROCESS COMMAND 

FETCH POINTER 

CTOP 

SUB TRACT RECORD SI2L 

HALF WORD BOUNBARY 

COMPARE TO UTOP 

LESS = MEMORY FULL 

GET STORAGE 

PRIME I/O BLOCK 

BUMP FOR BUFFER END 

PRIME END ADDRESS 



RITVRII 

FROM.KNUMBER) BUMP TO NEXT OPERAND 

NUMBER t-KFR©m PICK UP LENGTH ATTRIBUTE 
CHECK FOR DEFAULT 
CHECK FOR 'ALL' 
SET RECEIVER 



NUMBER, NUMBER 

DS7 

Rll,0<FROM) 



TOtQUANT 
Rll.X'Hl* 

DS6 
LINK.XLATOB 

Ds7+«» 
Rll.-l 

Rll»QUANT 

2, FETCH 

RlO.VARFLG 



YES 

translate 

get contab pointer 
set value negative 

save value 

get contab pointer 

check var . fixed flag 



CPY03060 

CPY03070 
CPY03080 

CPY03090 
CPY03100 

CPY03110 
CPY03120 

CPY03130 

CPYtJ3131 

CPY03132 

CPY03133 

CPY0313** 

CPYO3135 

CPY03150 

CPY03160 

CPY03170 

CPY03180 

CPY03190 
CPY03200 

CPY03210 

CPY03220 
CPY03230 
CPY03210 

CPY03230 

CPY03260 

CPY03270 
CPY03280 

CPY03290 
CPY03300 

CPY03310 
CPY03320 
CPY03330 
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0486R 


2333 


0488R 


C840 




083AR 


048CR 


4110 




0332R 


0490R 


mo 




OT66R 


0494R 


•♦110 




07F2R 


0498R 


48B0 




0F50R 


049CR 


4230 




0516R 


04A0R 


4880 




0F4ER 


04A4R 


•♦330 




0534R 


04A8R 


48B0 




0836R 


04ACR 


•»8AB 




opoo 

C5 A 


04f|OR 




2F2A 


04B4R 


4330 




0828R 


0i»B8R 


C5A0 




2F26 


04BCr 


4330 




081ER 


04C0R 


2621 


0i»C2R 


4894 




FFFE 


O4C6R 


4B90 




0836R 


04CAR 


2691 


04CCR 


4110 




07D2R 


OtfDOR 


C8E0 




0F48R 


04D4R 


C8F0 




06F8R 


04D8R 


4020 




0F48R 


04DCR 


4110 




096CR 


04F.QR 


48E0 




0836R 


04E4R 


C8A0 




0020 


04E8R 


059A 


04EAR 


238B 


04ECR 


08A9 


0*EER 


4110 




077ER 


04F2R 


C530 




0038 



DSfl 



DS9 



DSiO 



DSn 



BZS 
LHI 

HAL 

SVC 

BAL 

LH 

BNz 

LH 

BZ 

LH 

LH 

CLHI 

BE 

CLHI 

BE 

AIS 
LH 

SH 

AIS 

BAL 

LHI 

LHl 

STH 

BAL 

LH 

LHI 

CLHR 
BNLS 
LHR 
HAL 



DS8 VARIABLE 

LASTAD.ROBLK+8 SET FOR FIXED LENGTH RFCOROS 



LlNK.HEUPRT 

l.SKIPLN 

LlNKtREAO 

Rll.FMKFLG 

OSCHEK 

RlltCLRVAL 

OslS 

Rll.ROBLK+4 

R10«0(R11> 

RlOtC'/*' 

RDEOF 

RlOtC 1 /*' 

RDEOV 

RECRDS,! 
R9«-2(LASTAD) 

R9»RDBLK + i» 

R9tl 

LlNK.CLRLNE 

FROMtWORK 

TO.PRTBUF 

RECRDS, WORK 

LINKiXLaTBD 

FROH,RDBLK + i» 

Rl0.X»20« 

R9»R16 
DS13 
Rl0iR9 
LiNK.LINE 



CLHI R3tX»38» 



PRINT HIAULRS 
SKIP A LINE 
READ A RECORD 
CHECK FILEMARK FLAG 
DETERMINE IF FINISHED 
CLEARING VALUE 
CHECK FOR LNDVOL 
ADDRESS BUFFER 

UNIT RECORD EOF 

UNIT RECORO EOV 



BUMP RECORD COUNT 
PICK UP LAST BYTE 

calculate length 

zero relative 
clear printline 

set sender 

set receiver 

record number 

translate to decimal 

sender address 

print line length 

check record lcn6th 
print a full line 
set index for small line 
print line 

check line count 



CPY03340 
CPY03330 

CPY03360 

CPY03370 

CPY03380 

CPY03390 

CPY03400 

CPY03410 

CTY03420 

CPY03430 

CPY03440 

(-PY03450 

CPY03460 
CPYO^i+70 

CPY03480 

CPY03490 
CPYO35OO 

CPY0.5510 

CPY03520 
CPY03530 

CPYO354O 

CCY03550 

CPY03560 

CPY03570 

CPY03580 

CPY03590 

CPY03600 
CPY03610 
CPY03620 
CPY03630 

CPY03640 
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04F6R 
04F8R 

04FCR 

0500R 
0502R 
0504R 

0508R 

050CR 
050ER 

0512R 

0516R 

051AR 
051CR 
051ER 
0520R 
0522R 

0526R 
052SR 
052AR 

052ER 
0530R 

0334R 

0538R 

053CR 

0540R 

0544R 
0546R 

054AR 



0552R 



2183 

4110 

0552R 

4300 

0494R 

OB9A 

2233 

4110 

077ER 

C530 

0038 

2183 

"♦110 

05S2R 

4300 

04E4R 
4890 

0F56R 

2116 

0335 

2791 

0335 

4090 

0F56R 

08BB 

0215 

4110 

0552R 

0722 

•♦300 

0494R 
418Q 

0E36R 

4305 

0000 

4300 

04C0P 

C120 

0546R 

0305 

0007 

0008 
4D45 

4D20 
4655 

4C4C 



0332R D090 
0EA8t> 

0556R 4010 
0S8ER 

055AR 4110 

07D2R 
055ER C8F0 



DS12 
DS13 



OLS 
BAL 

B 

SHR 
B2S 

RAL 



BLS 
BAL 

DSiSA B 

DSCHEK LH 

BMS 
B?R 
SIS 
HZR 
STH 



OS14 



DS14A 
DS13 



LHR 
BHR 
HAL 

XHR 
B 



BAl 

a 

B 

MEWERR SVC 

BR 
MEMWSG DC 



MEn 



DC 



0S12 
LINK.MEDPRT 

OS9+4 

R9.R10 

DS12 

t INK, LINE 



CLHI R3,X«38» 



OS13A 
LINK,HE0PRT 

DSll 

R9, QUANT 

0S14 

COMAND 

R9.1 

CohAnO 

R9.0UANT 

Rll.Rll 

COWAND 

link.hedprt 
RecRos.recRds 

DS9 + 4 

RTN.VOLCHk 
O(COMAND) 
OS10-2 

2.WEMMSG 

COMANO 
7.MEMEND-WEM 

C«MEM-FULL» 



NEW PAGE 

CONTINUE 

DECREMENT RECORD SIZE 

DONE 

PRINT FULL LfNe 

page check 
continue 

PRINT HEAOERS, TOF ETC. 

CONTINUE 

CHECK NUMHER OF FILtS 

ALL - 

ENO WITH ONE FILE 

DECREMENT COUNT 

DONE 



CHECK FILEMARK FLAG 

END 

PRINT HEADERS 

CLEAR RECORD COUNT 
CONTINUE 

CHECK FOR ENOVOL 



CONTINUE 



MEMEND EOU * 

* HEADER PRINT 
HEDPRT STM R9»SaVE4 



STh LINK.HEORTN 
BAL LlNK.CLRLNE 
LHI TO»PRTRUF 



SAVE REGS 
SAVE RETURN 

SET RECEIVER 



CPY03630 
CPY03660 

CPY03670 

CPY03680 
CPY03690 
CPY0*700 

CPY03710 

CPY03720 
CPY03730 

CPY03740 
CPY03750 

CPY03760 
CPYO377O 
CPY03780 
CPY03790 
CPY03800 

CPY03810 
CPY03820 
CPY03830 

CPT03B40 
CPY03850 

CPY03860 

CPY03870 

CPV03880 

CPY03881 

CPY03882 
CPY03863 

CPY03884 



CPY03885 
.* CPY03890 

CPY03900 
CPT03910 

CPYOS'SZO 
CPY03930 
CPY03940 
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0362R 

0566R 

056AR 

056ER 
0570R 
0572R 

0576R 

057AR 

57ER 
0580R 

0584R 

0588R 

058CH 
058ER 
0590R 



06F8R 

C8E0 

0590R 

C8D0 

0028 

mio 

090ER 

27D8 

2fcE8 

CAFO 

0028 

4110 

090ER 

E110 

076ER 

24 34 

4110 

06RAR 

EllO 

0766R 

[)190 

OEAflR 

4300 

0000 

52i»5 

4 34f 

4F 20 

2020 

3020 

3120 

3220 

3320 

3420 

3520 

3620 

3720 

3820 

3920 

4120 

4220 

•♦320 

4420 

•♦520 

4620 



05B8R 



O5B8R 0815 
05BAR D330 

0F35R 
05HER C730 

30 
05C2R C530 

0005 
05C6R 0387 
05C8R D230 



LHI 

LHI 

BAL 

SIS 
AIS 
AHI 

BAL 

SVC 

LIS 
BAL 

SVC 

L* 

DC 
HUlRTN DC 
M ADER OC 



FROMiHEADER 

NUMBER, HEDEnD-HEADEr 

LINK.MOVE MOVE HEADER 

NUMBERS 

FROM. 8 

TO.HEDENO-HEAOER 

LINK. MOVE MOVE SECOND HALF 

l.FORM FORM FEED 

R3.4 LINE COUNTLR 

LlNK.PRlNT PRINT HEADER 

l.SKIPLN SKIP A LINE 

R9.SAVE4 SAVE REGS 

X»4300« RETURN 



C'RECNO 0i23«»56789ABCDf F 



HtDENH EQU » 

* .... _. 



* 

RlVD 



RWND 



REWIND 

LHR LINK.COMAND 

LB R3.0PRAND+1 

XHI R3,C«0« 

CLHI R3.5 

BNLR CmOER 

STB R3.REWINO+1 



SET RETURN 

GET LOGICAL UNIT 

DE-ASCII-IZE 
VALIDATE 

SET LOGICAL WfT 



CPY0S95O 

CPY03960 

CIY03970 

CPY03980 
CPY03990 
C I •> Y 4 

Cf Y04010 

CPY04020 

CPY04030 
CpY04040 

CPY04050 

CPY0U060 

CPY04070 
CPY04080 
CPYOt»090 



CPY04100 
-* CPY°4110 
CPY04120 
CPYO413O 
CPY04140 

CMY04150 

CPY04160 

CPY04170 
CPY04180 
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05D9R 
05CCR E110 
OfiDflR 

o5noi< uaoo 

05DAP 
0504R 0311 
05D6R 0306 
0SD8R COOO 

0000 



SVC 

LH 



l.REWINO 

ro,re:wino+2 



05DCR 
05DER 

05E2R 

05E6R 

05EAR 
OSECR 

05F0R 
05F«*R 

05F8R 
05FAR 
05FCR 



0600" 

0604K 

0608R 

060CR 
060ER 

0612H 
0614R 
0616R 

061AR 

061ER 

0622R 

0626R 

062AR 
062CR 

0630R 



0815 
D33O 

0F35R 

C730 

0030 

C530 

0005 

0387 

D230 

05FDR 

EllO 

05FCR 

•♦800 

05FER 

0311 

0306 

8800 

0000 



D330 

0F35R 

C730 

0030 

C530 

0005 

0387 

D3D0 

0F36R 

0815 

OBDD 

t330 

063ER 

C8E0 

0F37R 

C8F0 

0F52R 

D39E 

0000 

C590 

0041 

2134 

C810 

0652R 

2307 



BNMR LINK 
BR ERROR 
REWIND OC X»COOO»,0 



REWINO - 
CHECK STATUS 
RETURN 



* 
WFM 



WRITE FILE MARK 
LHR LINK.COMANO 
LB R3.OPRAND+I 

XHI R3,C»0» 

CLHI R3t5 



BNLR 
STb 


CmDER 
R3fWRTFMK+l 


SVc 


l.WRTFMK 


LH 


R0.WRTFMK+2 



wFMK 



HNMR LINK 
BR ERROR 
WRTFMK DC X»8800».0 



SET RETURN 

GET LOGICAL UNIT 

OE-ASCU-IZE 

VALIDATE 

SET LOGICAL UNIT 
WRITE FILEMARK 
CHECK STATUS 
RETURN 



SKP 



SKIP FILEMARK 

LP. R3|OPRANO+1 

XHI RstC'O* 

CLHI R3,5 

BNLR CMDER 

LB NUMBER, OPRAND+2 

LHR LINKiCOMANO 

LHR NUMBER. NUMBER 

BZ SKIP 

LHI FROM,OPRAND+3 

LHI To.SKPNO 

LB R9,0(FROM) 

CLHI Rg.X'tfl' 

f*NES SKPl 

LHI LINK.SKPALL 

OS SKIP 



get logical uwit 
clear ascii bits 
check validity 

get no. files 

set return 

check for default 

set sender 

set receiver 

get a character 

check for all 

no - translate 
yes - set return 



CPY04190 

CPY04200 

CPY04210 
CPY04220 
CrY0H23O 

■* C\y0t2H0 
CPY04230 
CPY0H260 
CPYO427O 

CK Y04280 

CpY0429{» 

CPY04300 
CPY04S10 

CPYO432O 

CPY04330 

CPY0*t3#0 
CPY04350 
CPY04360 

-* CPY 01 *370 
CPY04380 
CPY04390 

CPY0«»400 
CPY04410 

crYO«m?o 

CPY04430 
CPYO444O 

cpyotmso 

CPY04460 
CPY04470 
CPY04480 
CPY04490 

CPYO145OO 

CPY04510 
CPY04520 

CPY04330 



INTERDATA 



0632R 

0636R 

063AK 

063ER 

06t2R 

06H6R 
0648R 
064AR 
06«»CR 
0fei»ER 
0650R 
0652R 

0656R 

065AR 

065ER 

066?R 

0666R 

066AR 
066CR 

067<*R 

0678R 

067CR 

06O0R 

0684R 
06Sfel< 
068PR 

068CR 
068ER 
0690R 

0694R 

0698R 

069CR 



mio 

0896R 

4890 

0F52R 

C810 

06<*8R 

0230 

0675R 

C110 

0674R 

0301 

0899 

0335 

2791 

335 

2209 

0230 

066DR 

E110 

066CR 

4800 

066EN 

C300 

0800 

4330 

OftSElt 

4110 

0&A4R 

030S 

i»800 

0000 

0F48R 

0F40R 

8400 

0000 



D330 

0F35H 

C730 

0030 

CS30 

0005 

0387 

0815 

nsno 

0F36R 

U«DO 

233B 

CflEO 

0F37R 

C8F0 

0F54R 
4110 
0896R 
C810 



COPY UTILITY 

SKP1 BAL 

LH 

LHI 

SKIP STB 

SVC 
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LlNK.XLATOB TRANSLATE DECIMAL TO BINARY 
R9.SKPN0 GET SKIP COUNT 
LINK.SKP2 
R3,SKIPFM+1 
l.SKIPFM 



SKP2 



BR 

LHR 

BZR 

SIS 

BZR 

BS 

skpall sth 

SVC 

LH 
THI 
BZ 
BAL 



LINK 
R9,R9 
COMANO 
R9,l 

COMANO 

skip 

R3tSKPRU+l 

1,SKPRD 

R0.SKPRD+2 

R0«X«0800» 

SKIP 

LiNK.BkSP 



SET LOGICAL UNIT 

SKIP FM 

RETURN 

CHECK SKIP NO. 

DECREMENT COUNTER 

DONE 

CONTINUE SKIPPING 

SET LOGICAL UNIT 

READ A RECORD 



CHECK FOR FM 
NO - CONTINUE 
BACKSPACE 



SKPRD 



BR 
DC 



SKIPFM DC 



COMANO 

X' 1*80 0" . 0, WORK « WORK + 5 



X'8400» .0 



* 

* 

bsp 



BACKSPACE FILEMaRK 

LB R3iOPRANO+1 

XHI K3.C»0» 

CLHI R3.5 

BNLR CnOER 

LHR LlNK.COMAND 

LB 



GET LOGICAL UNIT 

DE-ASCII-IZE 

VALIDATE 

SET RETURN 



NUMBER, OPRAND+2 GET NO. FILEMARKS 



LHH 
BZS 
LHI 

LHI 

BAL 

LHI 



NUMBER » NUMBER 

BKSP 

FROM.OPRANO+3 

TO«BKNO 

LlNKtXLATDB 

LINK^BSP2 



DEFAULT 7 

YES 

SET SENDER 

SET RECEIVER 

TRANSLATE DECIMAL TO BINARY 



CPY04540 
CPY04550 
CPY04560 
CPY04570 

cpyo45so 

CPY04590 
CpY04f>00 
CPY04610 
CPY04620 

ci'YOufiaO 

CPY04640 
CpY04fcS0 

CPY04660 

CPY04&70 

CPY04680 

CPY04690 

CPY04700 

CPY04710 
CPYOi+720 

CPY04730 

•* CPY°474° 
CPY04750 
CPY04760 

CPY04770 

CPY04780 

CPY04790 
CPY04800 
CPY04810 

CPY04fli>0 
CPY04830 
CPY04K40 

CPYOi+BbO 

CPY04860 

CPY04870 
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06A0R 

06A4R 

06A8R 

06ACR 
06AER 
06B0R 
06B2R 
06B4R 
06H6R 



OfcAER 

«*890 

0F5HR 

0230 

D6B7R 

E110 

06B6R 

0301 

0899 

0335 

2791 

2206 

8200 

0000 



06BAR 

06BER 

06C2R 

06C6R 

06CAR 
06CCR 
06CER 
06D0R 
06D2R 

0606R 

06DAR 

06DER 
06E0R 

06E<*R 

06E8R 

06ECR 
06EER 
06F0R 



06F8R 
076«tR 
076«»R 
0766R 



076ER 



D090 

0EB8R 

C890 

0020 

C8A0 

0764R 

D3BA 

0000 
27A1 
059B 
223<t 
26A2 
«»0A0 
06F6R 

nio 

06F0R 

4800 

06F2R 

0216 

<*010 

06EER 

«U10 

07D2R 

D190 

0EB8R 

t300 

0000 
2803 

0000 

06F3R 

076«tR 



2020 

2803 

0000 

0776R 

0777R 

2803 

0000 



HKSP 



LH 

STB 

SVC 



BSP? 



PR 
LHR 
BZR 
SIS 
BS 
BACKSP DC 



R9.8KM0 

R3,BACKSP+1 

1. BACKSP 

LINK 

R9,R9 

COMAND 

R9il 

BKSP 

Xt8200'«0 



SET LOGICAL UNIT 

BACKSPACE 

RETURN 

CHECK NO. FILE HARKS 

DONE 

DECREMENT 

CONTINUE 



PRINT 



PRNT1 



PRINT LINE 
STM R9i SAVES 



LHI 
LHI 
LB 



R9,X»0020» 
R10.PRTEND 
RllfO(ftiOt 



SIS R10.1 

CLHR R9*R11 

BES PRNTl 

AIS Ri0,2 

STH R10.PRTBLK+6 



SVC 

LH 

BUR 
STH 

BAL 

LM 

DC 

PRTN DC 
PRTBLK DC 



PRTBUF DS 
PRTEND EQU 

DC 
SKIPLN DC 



1, PRTBLK 

ro.prtblk+2 
error 

LINK, PRTN 

LlNK.CLRLNE 

R9.SAVE5 

X»«f300« 


X*2*t»S» ,0,PRTBUF. PRTEND 



106 

* 

X«2020' 
X^SOS'tO.PRTi.PRTl + i 



FORM DC X'2803«,0,PTOF,PTOF*5 



CPY04880 

CPY04O90 

CPY0«»900 

CPY0«*910 
CPY0*»920 
CPY0<»930 
CPY0«*9H0 
CPY0<*950 
CPY04960 

•* CPYO497O 
CPY04980 
CpY0«*99O 

CPY05000 
CPY05010 
CpY 050*0 

CPY05030 
CPYOSOfO 
CPY05050 
CPY05060 
CPY03070 

CPY05080 

CPY0S090 

CPY05100 
CPY05110 

CPY03120 

CPY05130 

CPY05D40 
CPY05150 
CrY0316t>~ 



CPY05170 
CPY051S0 
CPY05190 
CPY05?00 



CPY05210 
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077811 
077DR 
0776H ()1)20 
0778R oCOO 
0000 
0000 



077ER 

0*8 2R 

0786R 
0788R 
078AR 

078ER 

0792R 

0796R 

079AR 

079ER 
07A0R 
07a2r 



C8F0 

0700R 

UOlO 

07A2R 

2633 

080A 

<U10 

08CCR 

«*110 

06BAR 

<»110 

093ER 

<UlO 

06BAR 

E110 

0766R 

OAEA 

t»j00 

0000 



07A1R C800 
FFFF 

07A8R i+OOO 
0F20H 

07ACR 0305 



07AER 0700 
07bOR <»000 

0F20R 
07BtR 0305 



07d6R E120 
07RCR 

07BAR 0305 

07RCR 0007 
0008 

07cOR «f3«tD 
<*H20 
<»352 
5220 

07C8R 



07C8R E120 
089<»R 



I'MTl DC X»0D20« 

proF nc x»ocoo« »x»oooo» tX«oooD« 



cmeno 



EOU 



ri'YOb??U 
CPY0't?30 



* . „ „ CPY0524 

* LINE GENERATOR CrY05?50 
LINE LHI TO,PRTBUF+S SET INDEX CPY05260 

STH LlNKtLNRTN SAVE RETURN LINK CPY0S270 

AIS R3.3 BUMP LINE COUNTER CIY05280 

LHR NUMBER, RIO COUNT CPY05290 

BAL LINK.XLATEH TRANSLATE TO ASCII HEX CPY05300 

BAL LlNKtPRlNT PRINT LINE CPY05310 

BAL LINK.xLAtEC T«AN S LAtE TO CHARACTER CPY05320 

BAL LlNKtPRlNT PRINT LlNt CPY0<S330 

SVC l.SKIPLN SKIP A LINE CpY053<«0 

AHR FROM.RlO BUMP POINTER CPY05350 

DC X»H300» RETURN CPY05360 

LNRTN DC CPY05370 

* „ C ( >y°5380 

* HALT VARIABLE FUNCTION CPY05390 
NVR LHI Ro,-l CPY05400 

STH RO.VARFLG SET FLAG CPY05410 

BR COMAND CIY05420 

* >_■ — ---._.__» ..... .... * cpy05H30 

* SET VARIABLE FUNCTION CPY05440 
VAR XHR R0,R0 CPY05450 

STH RO.VftRFLG UNSET FLAG CPY05U60 

BR COMAND CPY05H70 

t _ — ........... ........... . ....... _ _ — „ CPY05180 

* COMMAND ERROR CPY05t90 
CMDERR SVc 2,C«DMSG ERROR MESSAGE CPY05500 

BR COMAND CPY05510 

CMDMSG DC 7.CMEND-CMSG CPY05520 

C"SG DC C'CMD-ERR* CPY05530 



« 
PAWS 



PAUSE 
SVC 2, PAUSE 



PAUSE 



CPY05540 
•* CPY°5550 

CPY05560 
CPY05570 
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07CCR 0305 



07CER E130 
0000 



070PR Do90 
0L78K 

07D6R CflDO 
006C 

07DAR C8E0 

2020 
07DER C8F0 

06F8R 
07E2R <*010 

07F0R 
07E6R <U10 

092AR 
07EA R 0190 

0E78R 
07EER «t300 
07F0R 0000 



07F2R 0090 

0C98R 
07F6R C890 

7FFF 
07FAR t090 

0831R 
07FER E110 

0832H 
0802H tflOO 

0834P 
0806R 2116 
OSOflR <*000 

0F5OR 
080CR D190 

0E98R 
0810R 0301 
0812R C300 

0800 
0816R 2139 
0818R C300 

1000 

081CR 0336 

081ER C890 

FFFF 

0822R <*090 

Of SOU 
0826R 220D 
0828R <t890 

0F50R 
082CR 2037 
082ER 2<*9F 



BR 



COMAND 



* 
EMD 



056A13 

RETURN 
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TERMINATION 
SVC 3,0 



* CLEAR PRINTLINE 
CLRLNE STM R9.SAVE 



LHI NUMBER, PRTEND 

LHI FROM.X«2020« 

t-MI To*PRTf*UF 

STH LINK.CLROUT 

8AL LINK, CLEAR 

L* R9.SAVE 



OC X'(»300» 
CLROUT DC 

* READ ROUTINE 

READ STM R9.SAVE3 



SAVE REGS 
•PRTBUF 

clearing value 
rece iver- 
save return 
clear buffer 

RESTORE R fGs 
RETURN 



RDl 



STM 

LHI 
STH 
SVC 

LH 



BMS 
RDEXIT STH 



RD3 



RDCHK 



LM 

8R 
THI 



R9,X»7FFF» 

R9,RDBLK+2 

l.RDBLK 

R0,RDBLK+2 

RDCHK 
RO.FMKFLG 

R9.SAVE3 

LINK 

ROiX'eoo 1 



BNZS RDEOF 

THI Ro.X'lOOO* 



ROEOV 

RD? 

RDEOF 



BZR 
LHI 



ERROR 
R9.-1 



STH R9,FMKFLG 



US 
LH 



RD3 
R9.FMKFLG 



BN2S ROEOV 
LIS R9.1S 



SAVE REGS 

SET STATUS VALUE 

READ 

CHECK STATUS 

ERROR 

CLEAR FILE MARK FLAG 

RESTORE REGS 

RETURN 

ENO OF FILE 7 

YES 

ENO OF MEDIUM ? 



SET EOV 

EXIT 
CHECK FLAG 

LAST = FILEMARK 
NO, SET FLAG 



CPY05590 

-* CPY05591 

CPY05600 

CPY05610 

-* CPY05620 
CPY03630 
Cf'Y096«»0 

CPY05650 

CPY05660 

CPY056T0" 

CPY05680 

CPY05690 

CPY05700 

CPY05710 

CPY05720 

•* Cpy05730 

CPY037«»0 
CPY05750 

CPY05760 

CPY05770 

CPY05780 

CPY05790 

CPY05800 
CPY05810 

CPY05820 

CPY05830 
CPY058«»0 

CPY05850 
CPY05860 

CPY05870 
CPY05880 

CPY05890 

CPY0b900 
CPY0S910 

CPY05920 
CPY0S930 
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pake ?n 



0830R ?207 

na3?R oooi 
oooo 
oooo 

0000 



083AR D090 
0E98P 

083ER £110 
OflHEK 

0842R 4800 
0850R 

OSHfcR 0236 

0BU8R 0190 
0E9BR 

08HCR 0301 

084ER 0002 

OOOO 

OOOO 

OOOO 



0«56R 
0858R 

Ofl'iCR 

0660R 

0864R 
0866R 

ORfeAR 

086ER 

0872R 
0B74R 

0878R 

087CR 
087ER 
0880R 

0884R 



0B94R 
0894R 



24D2 
4000 
OFtflR 

cflto 

Of'tBR 

C8F0 

088ER 

0891 

4110 

OBCCR 

f 120 

0880R 

E1120 

0894R 

2794 

4090 

G87ER 

D190 

0E98R 

4300 

OOOO 

0007 

0010 

492F 

4F20 

4552 

S220 

?iA20 

2 020 

2020 

2020 

0001 



Rf)HLK 



* -- 

WRITE 



WRBLK 



* 

* 
ERR 



ERxlT 
ERRR 



HS 

nc 



KD? 

X'OOOl* «0,0,0 



URITE ROUTINE 
STM R9.SAVE3 



SVC 
LH 



l.WRBLK 
RO.WRBLK+2 



HNZR ERROR 

L M R9«SAVE3 

BR LINK 

DC 2,0.0.0 



SAVE REGS 

WRITE 

CHECK STATUS 

RESTORE REGS 
RETURN 



ERROR ROUTINE 
LIS NUMBER, 2 
STH Ko,WORK 

LHI 
LHI 



LHR 

raL 

SVC 
SVC 

sis 

STH 

LH 

DC 
DC 
DC 



ENRMSh DC 



FROM. WORK 

TO.ERRMSG+10 

Rg.LINK 
LINK.XLATEM 

2, ERRR 
2, PAUSE 

R9.H 
R9.ERXIT 

R9.SAVEd 

X»^300» 


7.ERMEND-ERRMSG 

C»I/0 ERR « 



TRANSLATE HEX TO ASCII 



CPY05940 
CPY05950 



.* ci'Y059fc0 
CPY05970 
CPY059B0 

cpyo«i990 

CPY06000 

CPYOfcOlO 
CPY06020 

CPY06030 
CPY06040 



.* C |i Y 0fe0h0 
CPY06060 
CPY06070 
CPY06080 

CPY06090 

CPY06100 

CPYOfellO 
TPY06120 

C.PY06130 
CPYOftmO 

CpY0fel50 
CPY06160 

CPY06170 

CpY06180 
CrY06190 
CPY06200 

CPY06210 



LRMEND EOU * 
PAUSE DC 1 



CPY06220 
CpY06?30 
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0896R 

089AK 

089ER 
OflAOR 
08A2R 
08A1FJ 

08A8R 

08ACR 
08AER 
08B0R 
08R2R 
OBBtR 
08B6R 
08B8R 
08BAR 
08BCR 

08C0R 

08CHR 
08C6R 
08C8R 



OflCCR 

0BO0R 

08D<tR 

08D8R 

08DCR 

OflEOR 
08E2R 

08E6R 

08EAR 
08ECR 
08EER 
08F0R 

08F2R 
08FHR 
08F6R 

08FAR 



DOAO 

0E78K 

C5Df) 

0006 

2389 

07BB 

2tCA 

030E 

0000 

CBOO 

0030 
0217 

090C 
0387 
OCAC 
OABO 
26E1 
2701 
203B 
UOBF 
0000 
DlAO 

0E78R 

0301 

08DD 

1330 

OBBCR 



* translate - decimal 
xlatob stm rio, save 



D090 

0L78H 

C890 

003A 

D3AE 

0000 

D3BE 

0000 

ECAO 

0004 

90BC 

CAAO 

0030 

CABO 

0030 

0SA9 

2182 

26A7 

05B9 

218? 

26B7 

D2AF 

0000 

D2BF 
0001 



Xl)l 



XB2 



XU3 



XH1 



CLHI 


NUMBER, 6 


BNLS 


XB2 


XHR 


Rll.Rll 


LIS 


R12.10 


LB 


RO.O(FROM) 


SHI 


R0,X»30» 


BMR 


CnoER- 


CHR 


Ro,Ri2 


BNLR 


CMDER 


MUD 

rrrtf\ 


Rie.Ri2 


AHR 


RlliRO 


AIS 


FROM.l 


SIS 


NUMBER, 1 


BNZS 


XB1 


STH 


RlliO(TO) 


LM 


Rio. save 


BR 


LINK 


LHR 


NUMBER, NUMBER 


BZ 


XM3 



ascii to internal 
save registers 

check operand length s = max 



CLEAR MULTIPLICAND 

MULTIPLIER 

GET A CHARACTER 

INTERNALIZE 

lLLEGftL C H A R ACT fft 
HIGH LIMIT CHECK 
ILLEGAL CHARACTER 
DEeiMAt+ZE 

BUMP SENDER FIELD 
DECREMENT tEftOT+i COUNTER 



RESTORE REGISTERS 

RETURN 

IF LENGTH IS ZERO - RrTURN 



* TRANSLATE - INTERNAL 
XLATEH STM Rg.SAVE 



TO ASCII HEX 
SAVE REGISTERS 



LHI 


R9,X»3A» 


LB 


RIO.O(FROM) 


LB 


Rll.OtFROttT 


SRL 


RIO.t 


SRLS 
AMI 


R11.12 
R10.X«30» 



AHI 



Rll»X»30« 



XH2 
XH3 



CLHR R10.R9 

BLS XH2 

AIS Rl0,7 

CLHR Rll*R9 

OLS XH3 

AIS Rll,7 

STB RlOtO(TO) 



STB 



Rll.l(TO) 



GET A BYTE 



SPLIT BYTE 

ASCII-IZE 

ASCII-IZE 

GREATER THAN 9 7 

NO 

YES - ADJUST ASCII VALUE 

SECOND CHAR GREATER THAN 9 ? 

NO 

YE - ADJUST 

STORE CHARACTER 

STORE SECOND CHARACTER 



-* CPY06210 
Cr>Y06?50 
CPY06260 

CPY06270 

CPY06280 
CPY06290 
CPY06300 
CPY06310 

CPY06320 

er>ire6U30~ 

CPY063tO 

CPY06350 

ePY0*36» 

CPY06370 

CPY06380 

CPY 06390 

CPY06UOO 

CPY06«*lO 

CPY06<*20 

CPY06H30 
CPY06440 
CPY06«*50 

■« C^yOSUGO 
CPY06170 
CPY06H80 

CPY06<+90 

CPY06500 

CPY06510 

CPY06520 

CPY06330 
CPY06540 

CPY06550 

CPY06360 
CPY06570 
CPY06580 
CPYO659O 
CPY06600 
CPY06610 
CPY06620 

CPY06630 
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08FER 26F2 
0900R 26E1 
0902R 27D1 
090«tR «»230 

0604R 
0908R 0190 

0E78R 
090CR 0301 



090ER 

0912R 
09l«tR 
0916R 

091AR 

091ER 
0920R 
0922R 
0924R 

0928R 



092AR 

092ER 

0932R 
0934R 
0936R 
093SR 

093CR 

093ER 

09«*2R 

09H6R 

09«»Ar 
09tCR 

0950R 

0954R 
095&R 
0958R 

095CR 
095ER 
0960R 



O0C0 

0E88R 

2701 

2118 

D3CE 

0000 

02CF 

0000 

26E1 

26F1 

2208 

DlCO 

0E88R 

0301 



DoDo 

(1E88R 

D2EF 

0000 

26F1 

2701 

203<* 

O1O0 

0E88R 

0301 



O0A0 

0E78R 

03fiE 

0000 

C5q0 

0020 

2383 

C8f30 

0020 

C5B0 

0060 

2182 

2205 

02BF 

0001 

26F2 

26E1 

2701 



* 
HOVE 

Ml 



M2 



CLEAR 
Cl 



AIS 

AIS 
SIS 
GHZ 

LM 

BR 



TO. 2 
FROM,l 
NUMBER, 1 
XH1 

R9iSAVE 

LINK 



BUMP INDEX 
BUMP SENDER 
DECREMENT COUNT 
CONTINUE 

RESTORE REGISTERS 

RETURN 



MOVE 
STM R12fSAVE2 



SIS 

BMS 
LB 

STb 

AIS 
AIS 

BS 

LM 

HR 



NUMBER, 1 

M2 

R12.0<FROM) 

R12tO(TO> 

FR0M.1 

To.l 

Ml 
Rl2,SAVE2 

LINK 



SAVE REGISTERS 

DECREMENT COUNT 

DONE 

GET BYTE 

STORE BYTE 

BUMP SENDER 
BUMP RECEIVER 
CONTINUE 
RESTORE REGISTERS 

RETURN 



CLEAR 

STM NUMBER, SAVE2 

STb FROMiO(TO) 

AIS T0.1 

SIS NUMBER, 1 

BNzS Cl 

LM NUMBER, SAVE2 



BR 



LINK 



save registers 

STORE BYTE 

BUMP RECEIVER FIELD 
DECREMENT COUNTER 
CONTINUE 
RESTORE REGS 

RETURN 



* TRANSLATE - INTERNAL 
XLATEC STM RlO.SAVE 



XC1 

XC2 
XC3 

xc<* 



LB Rll.O(FROM) 

CLHI R11,X'20' 

HNLS XC3 

LHI Rll, X '20» 

CLHI Ril,X»60« 



BLS 

BS 

STB 



XC«t 
XC2 
Rll,l(TO) 



AIS TO, 2 
AIS FROM.l 
SIS NUMBER , 1 



TO CHARACTER 
SAVE REGISTERS 

GET A CHARACTER 

GRAPHIC 7 

YES 

NO - REPLACE WITH A • • 

GRAPHIC 7 

YES 

NO 

STORE CHARACTER 



BUMP SENDER 
DECREMENT COUNT 



CPY06640 
CPY06650 
CPY06660 
CPY06670 

CPY06680 

CPY06690 

-* C('Y0fe700 

CPY06710 

CPY06720 

CPY06730 
CPY0b7<»0 
CPY06750 

CPY06760 

CPY06770 
CPY067B0 
CPY06790 
CPYOf.800 

CPY06810 

-* Cf>y06fl?0 

CPYOf.830 

CPY068U0 

CPY06850 

CPY06860 
CPY06870 
CPYOf.880 
CPY0S.B90 

CPY06900 
■* Cpy06910 

CPY06920 
CPY06930 

CPY069tO 

CPY06950 

CPY06960 
CPY06970 

CPY06980 

CPY06990 
CPY07000 
CPY07010 

CPY07020 
CPY07030 
CPY070«»0 



INTERDATA 

0962R «»230 
0942R 

0966R D1A0 
0E78R 

096AR 0301 



096CR 

0970R 
0972R 

0976R 
0978R 

097CR 
097ER 

0982R 

098&R 
0988R 
098AR 
098CR 
098ER 
0990R 
0992R 

0996R 
0998r 



09A2R 

09A6R 

09AAR 

09AER 

09R2R 

09B6R 

09BAR 

09BER 

09C2R 

09C6R 
09C8R 



OOAO 

0E78R 

21C8 

*f8BE 

0000 

07AA 

«t8DC 

0998K 

ODAO 

C780 

0030 
D2BF 

0000 

26F1 

27C2 

08BA 

203B 

08CC 

2219 

D1A0 

0E78U 

0301 

0001 

000A 

0061* 

03E8 

03E8 



E120 

OAltR 

"♦110 

0552R 

D190 

0A22R 

0090 

06F8R 

•♦110 

06BAK 

C8B0 

09ECR 

<*8E0 

0836R 

<+890 

0838R 

%B90 

0836R 

2691 

C8A0 
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LM RIO, SAVE RESTORE REGISTERS 

BR LINK RtTURN- 
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TRANSLATE - INTERNAL TO DECIMAL ASCII 



XLATBO STM RIO, SAVE 



LIS Rl2,8 

LH Rll»OtFft©m 

XHR RIO, RIO 

LH Rl3,X03tR12l 

DHR R1CR13 

XHI Rll,X'30» 



XD1 



XD2 



XD3 



STB R11,0(T0) 



AIS 

SIS 

LHR 

BNZS 

LHR 

BNMs 

LM 

BR 
DC 



TO,l 

R12.2 

Rll.RlO 

XD1 

R12,R12 

XD2 

R10.SAVE 



SAVE REGISTERS 
DIVISOR INDEX 

oivieewe 



PICK UP" POWER OP TEn 

ASCII-IZE 8UOTIENT 

STORE 

BUMP STORAGE INDEX 

DECREMENT SENDER INDEX 

SET REMAINDER AS QUOTIENT 

CONTINUE 

FIVE PLACES ? 

PAD ZEROES 

RESTORE REGISTERS 



LINK RETURN 

1,10,100,1000,1000 



* NON-VERIFY 
NONVER SVC 2,V£RMSG 



NV 



BAL 


LlNK.HEDPRT 


LM 


R9.INREC 


STM 


R9,PRTBUF 


BAL 


LINK, PRINT 


LHI 


R11.NV3 


LH 


FROM.RDBLK+4 


LH 


R9.RDBLK+6 


SH 


W«ROBtK**— - 


AIS 

LHI 


R9,l 
Rlff,X*20» 



ISSUE NON VERIFY MESSAGE 

INPUT RECORT 
MESSAGE 

PRINT .INPUT RECORD. 



END ADDRESS 
CALCULATf-tCNGTH 

ZERO RELATIVE-IZE 
PRINT LINt LENGTH 



CPY07050 

CpY07060 

CPYOTOTtr 

•* CPYO7O8O 

CPY07090 

CpYOTtOO 

CPY07110 
CPY*7l**- 

CPY07130 
CpY071%0 

CPY07150 
CPY07160 

CPY07170 

CPY07180 
CPY07190 
CPY07200 
CPY07210 
CPY07220 
CpY0723O 
CPY072«tO 

CPY07250 
CPY07260 



• * CPY07270 

CPY07280 
CPY07290 

CPY07300 

CPY07310 

CPY07320 

CPY07330 

CPY073«K> 

CPY07350 

CPY07360 

CPY07370 

CPY07371 
CPY07380 
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0020 










09CCR 


059A 


NVO 


CLHR 


R9»R10 


COMPARE FOR SHORT RECORD 


09CER 


2385 




BNLS 


NV2 


NO 


09D0R 


08A9 




LHR 


RlO,R9 


YES SET SIZE 


09D2R 


4110 
077ER 




B At 


LINK, LINE 


FORMAT S PRTNT A LINE 


09D6R 


030B 


NV1 


BR 


Rll 


GET OUTPUT RECORD 


09D8R 


0B9A 


MV2 


SHR 


R9.R10 


DECREMENT LENGTH 


09DAR 


033B 




BZR 


Rll 


DONE 


09DCR 


4110 
077ER 




BAL 


LINK, LINE 


PRINT A LINE 


09EOR 


C530 
0038 




CLHI 


R3.X«38' 


LINE COUNTER CHECK 


09E4R 


208C 




BLS 


NVO 


CONTINUE 


09E6R 


4110 
0552R 




BAL 


LINK.HEDPRT 


NEW PAGE 


09EAR 


220F 




BS 


NVO 


CONTINUE 


09ECR 


4110 
0552R 


NV3 


BAL 


LlNKtHEDPRT 


PRINT HEADER 


09F0R 


0190 
0A30R 




LM 


R9.0UTREC 


OUTPUT RECORD 


09F4R 


0090 
06F8R 




STM 


R9.PRTBUF 


SET RECORD MSG 


09p8R 


4110 
06BAR 




BAL 


link. print 


print Record 


09FCR 


4890 
0402K 




CH 


R9,RDBLK2+r> 




OaOOR 


46E0 
0400R 




LH 


FR0M.RDBLK2+4 


BEGIN ADDRESS 


0A04R 


0B9e 




SHR 


R9,FR0M 


RECORD LENGTH 


0A06R 


2691 




AIS 


R9,l 


ZERO RELATIvE-IzE 


0A08R 


41B0 
09C8R 




BAL 


Rll,NV 


CONTINUE 


OaOCR 


4110 
0D64R 


NV4 


BAL 


LlNK.HALT 


HALT PROCESSING 


0A10R 


4300 
034AR 




B 


VR5 


CONTINUE 


0A14R 


0007 
OOOA 


VERPtSG 


DC 


7»VERMNO-VERM 




OaIAR 


4E4F 
4E2D 
5645 
5249 
4659 


VERM 


DC 


C'NON-VLRIFY' 




0A22R 




VE'RMNU 


EOU 


* 




0A22R 


494E 
5055 
5420 
5245 
434F 
5244 


INRF.C 


DC 


CiINPUT RECORO* 




0A2ER 


2020 




DC 


c. • 




0A30R 


4F55 
5450 
5554 
2052 


OUTREC 


DC 


C 'OUTPUT RECORD 


t 



CPY07390 
CPY07400 
CPY07410 
CPY07420 

CHY07430 
CPY07440 
CPY07450 
CPY07460 

CPY07470 

CrY07480 
CPY07490 

CPY07500 
CPY07510 

CPY07520 

CFY07530 

CPY07540 

CPY07550 

crY075to 

CPY07570 
CPY07571 
CrY07580 

CPY07590 

CPY07600 

CPY07610 

(-.PY07620 



CPY07630 
CPY076H0 



CPY07650 
CPY07660 
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HM1 
44?n 



0A3ER C890 LSTA 

0048 
0A«»2R DlEO 

0D1CP 
0A46R OOEO LSt 

0836R 
0A4AR tllO 

07D2K 
0A4ER D1CO 

0B24R 
0A52R DOCO 

06F8I? 
0A56R 4110 

06BAR 
0A5AR D?90 

0832R 
0A5ER O3D0 

0F34K 
0A62R 08DD 
0A64R 0337 
0A66R D390 

0F35K 
0Af>Al< C490 

0003 
OAfcER D290 

0833R 
0A72R 0799 
0A74R 4090 

0F50" 
0A78R 4110 LST1 

7F2R 
0A7CR 4890 

OF50R 
OAHOR 4210 

0B84R 
0A84R 0390 

0832R 
0A88R C590 

0048 
OAflCR 4230 

OABOW 
OA90R 4890 

06F8R 
0A94R C590 

2A2A 
0A9flH 4230 LST2 

0A78K 
0A9CR 01CO 

06F8R 
OAAOR 4110 

07D2R 



LIST LABELS 

LHI R9,Xiif8* 

LM FROM.LSTBUF 

STM FR0M,RDBLK+4 

BAL LlNK.CI.RLNE 

L« R12«LftB£L^ 

STM Ri2,PRTBUF 

bal Link. print 

stb r9.r0blk 

lb number. oprand 

lhr number, number 

hzr cmoer 

LB R9.0PRAN0+1 

NHI R9.3 

STB R9.RDBLK+1 

XHR Rg,R9 

STH R9.FMKFLG 

BAL LINK. READ 

LH R9.FMKFLG 

BM NOFND 

LB R9.R0BLK 

CLHI Rg.X^B* 

BNE LST3 

LH Rg.PRTBUF 

CLHI R9,X'2A2A« 

HNE LsTl 

LM R12.PRTBUF 

BAL LlNK.CLRLNE 



ASCII READ 
BUFFER LIMITS 
PRIME I/O BLOCK 
CLEAR PRINT LINE 
tA6€L HEA6CR 
SET PRINT LINE 
PRINT LINE 
PRIME I/O BLOCK 
LU SPECIFIED 7 

NO = ERROR 
GET VALUE 

MAX VALUE 

SET I/O BLOCK 

FILEMARK FLAG 

READ A RECORD 

CHECK FLAG 

END 

ASCII OR BINARY 7 

BINARY 

ASCII - CHECK FOR •**• 



LABEL 

CLEAR PRINT LINE 



• ♦ Cry07f.70 
CPY07680 
CPY07690 

CPYflTTM 

CPY07710 

CPY07711 

erY0772* 

CPY07730 

CPY07740 

CPY07TSO 

CPY077feO 

CPY07770 
CPY07780 
CPY07790 

CPY07800 

CrY07«10 

CPY07820 
CPY07830 

CpY07840 

CPY07850 

CPY07860 

Cry07870 

CPY07880 

Ct-Y07890 

CPY07900 

CPY07910 

CPY07920 

CPY07930 

CPY07940 
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0AA4R 


DOCO 




06FBR 


0AA8R 


1110 




06BAR 


OAACR 


4300 




0A78R 


OABOR 


•1890 




06F8R 


0AB4R 


C590 




FFFF 


0AB8R 


<4230 




0A78R 


OABCR 


24DC 


OABFR 


48E0 




06FCR 


0AC2R 


C8F0 




06FCR 


OAC6R 


4110 




0D3ER 


OACAR 


27EF 


OACCR 


?03A 


OACER 


07cc 


OADOr 


0733 


0AD2R 


41Bo 




OD50H 


OAD6R 


"♦"A3 




OFlflK 


OADAr 


2632 


OADCR 


C530 




0006 


OAEOR 


?037 


OAE2R 


4180 




0E36R 


0AE6R 


4300 




OBOAR 


OAEAR 


tllO 




07D2R 


OAEER 


0100 




(JF1BR 


0AF2R 


DODO 




06F8R 


OAF6R 


4110 




06BAR 


OAFAR 


4300 




0A78R 


OAFER 


C090 




0058 


0B02R 


01EO 




0B20R 


OR06R 


4300 




0A46R 


OBOAR 


4110 




07O2R 


OBOER 


DIDO 




0F18R 


0R12R 


DODO 



LST3 



LST3A 



LST4 



LSTH 



LST5 



STM 


R12.PRT13UF 


RESTORE LABEL 


BAL 


LINK. PRINT 


PRINT LABEL 


B 


LST1 


CONTINUE 


LH 


R9.PRTBUF 




CLHI 


R9.-1 


CHECK SEONUM FOR - 


BNt 


LSTl 


NO - CONTINUE 


LIS 

LH 


NUMBER, 12 
FROM.PRTRUF+4 


SET FOR SUBROUTINE 


LHI 


TO.PRTRUF+4 


SET FOR SUBROUTINE 


BAL 


LINK.XTRACT 


GET LOADER ITEM 


SIS 

BNZS 
XHR 
XHR 
BAL 


FR0M.15 

LST3A 

R12.R12 

R3»R3 

Rll.LDRWD 


label iteh ? 

Clear counter 
extract a halfu0rd 


STH 


RlO,LBLSAV(R3) 


SAVE LABEL 


AIS 
CLHI 


R3.2 
R3.6 


BUMP INDEx 

Six CHARACTERS ? 


BNES 
BAL 


LST4 
RTNtVOLCHK 


NO - CONTINUE 
CHECK FOR ENDVOL 


B 


LST5 




BAL 


LINK.CLRLNE 


CLEAR PRINTLINE 


L H 


NUMBER«lHlSAV 


LABEL 


STM 


NUMBER, PRTBUF 




BAL 


LlNKiPRINT 


PRINT LABEL 


R 


LsTl 


CONTINUE 


LHI 


R9.X«S8' 


BINARY READ 


LM. 


FR0M»LSTBFB 


BUFFER EXTENTS 


fl 


LST 


CONTINUE 


BAL 


LINK.CLRLNE 


CLEAR PRINTLINE 


LM 


number, lblsav 


LABEL 


STH 


NUMBER » PRTBUF 





CPY07950 

ClY079feO 

CPY07970 

CPY07980 

CPY07990 

CPYOoOOO 

Cl'YOflfUO 
CTY08020 

CPYO0O3O 

C('Y08040 

CPY080SO 
CPYOSOfeO 
CPY08070 
CpYOBOSO 
CPY08090 

CPYOfllOO 

CpYoeno 

CPY08120 

CPY06130 
crY08131 

CIY08132 

CPYOflmo 

CPY08150 

ci'Yoaifco 

CPY08170 
CPY08200 
C.PY08210 
CPY08220 
CPY08230 
CPY08231 
CPY08232 
CPY0«?33 
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06F8R 
0B16R mm 

06RAR 
0B1AR 0305 
0B1CR 06F8R 

0747R 
0B20R 06F8R 

0763R 
0B2<+R 20«*C 

«»5«»c 

533A 



Sftt LlNK.PRTWT 



PRIMT- tTNC- 



0p2cR 

0R30R 
0B32R 

0B36R 

0B3AR 

0B3ER 

0B12R 
OBttR 
0R46R 

OB^AR 
0B4CR 

0B50R 
0R54R 

0B58R 

0B5CR 

0B60R 
0B&2R 
0B64R 

0BG8R 

0B6CR 

OB70R 
0B72R 

0B76R 

0B7AR 

0B7ER 
0B80R 



•♦010 

0B82H 

2tD8 

C8EQ 

2020 

C8F0 

0F18R 
*110 
092AR 
D3DO 

0F3«tR 

08DD 

0337 

C5Do 

0009 

0387 

C8E0 

0F35R 

C8F0 

0F18R 
*U10 

090ER 

CAEO 

0001 

D3DE 

FFFF 

08DD 

0337 

D39E 

0000 

C490 

0003 

D290 

0833R 

0799 

4090 

0F50R 

tllO 

07F2K 

«*890 

0F50R 

2113 

•fSOO 



BR COMAND RETURN 

LSTBUF OC PRTfcUF fFRTBUF-rT^ 

LSTBFB DC PRTBUF .PRTBUF+107 

LABELS DC Ct LABELS: t 



* 

FIND 



FNOl 



STH LINKiFNdRTN 

lis number, 8 
lhi from,x«2020» 

lhi to.lblsav 

bal link, clear 

lb number .opr and 

lhr number. number 

bzr cmder 

clhi number, 9 

bnlr cmder 

LHI FroM,oPRAnD+1 

lhi t0,lblsav " 

bal link. move 

ahi from, k number) 

lb number .-1 (from) 

lhr number.number 

B*R CMDER 

LB R9,0(FROM) 

NHl R9,X»03» 

STB R9.RDBLK+1 

XHR R9.R9 

STH R9.FMKFLG 

BAL LINK. READ 

LH Rg.FMKFLG 

BMS NOFND 

DC X»«»30t» 



save return link 
label length 

SPACES 

CLEAR LABEL STORAGE AREA 

CLEAR BUFFER 

PICK UP LftBEL 

LABEL ENTERED ? 
NO - ERROR 
LENGTH CHECK 

NOT LESS = ERROR 
SENDER ADDRESS 

RECETVER ADDRESS 

MOVE LABEL 

BUMP TO LU 



LU ENTERED 7 
NO - ERROR 
GET LU 

MAX VALUE 

PRIME LU 

CLEAR FILEMARK FLAG 

READ A RECORD 

CHECK FLAG 

MINUS = END OF VOLUME 
RETURN 



tPYTJS23ir 

CPY08235 
CPYOBgi+O - 

C|>Y08250 

CPY08260 



•* CPY°827<> 
CPY08280 

CPY08290 
CPY06300 

CPY08310 

CPY08320 

CPY©833« 

CPY083t*0 
CPY08350 
CPY08360 

CPY08370 
CpY08380 

CPY08390 
CPYOB400 

cPYOsmo 

CPY08U20 

CPY08430 
CPY08'»«»0 
CPY08H50 

cryos'jfeo 

CPY08170 

CPY08«»80 
CPY08490 

C|'Y08500 

CPY08510 

CPY08520 
CPY08530 



INTEROATA 


COPY Uf 


ILITY 


- OS COPY 03-05( 


0B82R 


0000 


FNDRTN 


DC 





0B8<»R 


E120 


NOFNO 


SVC 


2, NFNDMG 




0B8AR 








0B88R 


0305 




BR 


CoMAND 


0B8AR 


0007 
0008 


NFNDMG 


DC 


7.NFEN0-NFN0 


0B8ER 


«»C<t5 
20^5 
HEW 


NFNO 


DC 


C'FILE END* 


0B96R 




NFEND 


EQU 


* 




* 


FIND 


ASCII FILE NAME 


0B96R 


DIEO 

0B1CR 


FNDA 


LM 


FROMrLSTBUF 


DB9AR 


H050 
0BE8R 




STH 


COMAND, FNDRNA 


0B9ER 


DOEO 
0836R 




STM 


FROM.RDBLK+i* 


0BA2R 


0390 
0F35R 




LB 


R9.0PRAN0+1 


0BA6R 


Cb90 
002A 




CLHI 


R9,X«2A« 


OBAAR 


0237 




BNER 


CMDER 


OBACR 


C890 
00H8 




l_Hl 


R9,X»H8» 


OBBOR 


0290 
0832K 




STB 


R9.RDBLK 


OBBHR 


mm 

0B2CR 




BAL 


LINK, FIND 


OBB8R 


0799 


FNOAl 


XHR 


R9,R9 


OBBAr 


D3E9 
06F8R 




lb 


FR0M«PRTBUF<R9> 


OBBER 


D3F9 
0F18R 




LB 


T0,LBLSAV(R9) 


0BC2R 


05EF 




CLHR 


FROM, TO 


OBC»»R 


2136 




BNES 


FnOA2 


OBC6R 


2691 




A1S 


R9,l 


OBC8R 


C590 
0008 




CLHI 


R9,8 


OBCCR 


2335 




BES 


FNDA3 


OBCER 


220A 




BS 


FfgDAl+2 


OBDOR 


mio 

OCi»AR 


FWDA2 


BAL 


LlNK.FND 


OBDfR 


220E 




BS 


FNDAl 


OBD&R 


E120 
OBEAR 


FNDA* 


SVC 


2,PGMFNo 


OBDAR 


D390 
0833R 




LB 


R9,RDBLK+1 


ORDER 


D290 
0E21R 




STB 


RgtBAKREC+j 


0RE2R 


EllO 
0E20R 




SV C 


1.BAKREC 


ORE6R 


"*300 




DC 


Xti»300< 


OBE8R 


0000 


FNDRNA 


DC 





"BEAR 


0007 


PGMFNq 


DC 


7,FNDEND-FNoMSG 



PAGf 2& 



FILE END MESSAGE 



BUFFER EXTENTS 
SET RETURN ADDRESS 
PRIME I/O BLOCK 
LU 

check for star 

ascii read 
prime i/o block 
read a record 

Compare records 

if not eoual - continue 

COMPARE 

CONTINUE CHECKING 
CONTINUE LOOKING 

COMPARE 

PGM FOUND - MESSAGE 

LU 

SET LU FOR BACKSPACE 

BACKSPACE ONE RECORD 



CPY08540 
CPY08S50 

CPY08560 
CPY08370 

CPY08580 



CPY08"S90 

.* CPY0B600 

CPY08610 

CPY08620 

CPY08630 

CPY086«tO 

CPY08650 

CPY08660 

CPY06670 
CpY08680 

CPY08690 
CI'Y08700 

CPY08710 
CPY08720 

CPY08730 

CPY087"»0 
CPY08750 
CPY08760 
CPY08770 

CPY08780 
CPY08790 
CPY08800 

CPY08810 
CPY08820 

CPY08821 

CPY08822 

CPY08823 

CPY08830 
CPY088<+0 
CPY08850 



INTEROATA COPY UTILITY - OS COPY O3-056A13 



PAGE 29 



000A 

OBEER 3017 

1D20 

i6iF 

551E 
1120 
OBFBR 



0BF8H 

OrFcR 

OCOOr 

0C01R 

0C08R 

OCOCR 

0C10R 

OC1HR 

OC18R 
0C1AR 

0C1ER 
0C20R 
0C22R 
0C21R 

0C28R 

0C2CR 
0C2ER 
0C30R 

0C31R 
OC36R 

0C3AR 

0C3ER 

OC12R 

0C16R 

OClAR 

OCIFR 



OlEo 

0B20R 

DOEO 

0836R 

C890 

0058 

D290 

0832R 

1050 

0BE8R 

1110 

0B2CR 
18E0 
06FCR 
C8F0 

06FCR 

21DC 

1110 

0D3EK 

27EF 

213D 

07CC 

HBO 

0D50R 

15AC 

0F18R 

2137 

26C2 

CISCO 

0006 

2038 

1300 

0BO6R 

1110 

0C1AR 

1180 

0E36R 

1300 

0B81R 

1300 

0C1OR 

1010 

0H82K 

1300 

0B76R 



FN0MS6 DC 



FNDEND EQU 



C'PGM FOUND* 



* 
FNDB 



FIMDBO 



FNOBl 



FNDB2 



FND 



FIND BINARY FILE NAME 

LM 



FROM.LSTBFB 

STM FR0M,RDbLK+1 

LHl R9,X»58* 

STB R9.RDBLK 

STH COMAND.FNDRNA 

BA«- LlNKiFINO 

LH FR0M,PRtBuF+1 

LHI To«PRTBUF+1 

LIS NUMBER, 12 

BAL LINK,xTRACT 

SIS FROM, 15 

BN2S FNDB2 

XHR R12.R12 

BAL Ru,LDRWD 



BUFFER EXTENTS 
PRIME I/O BLOCK 

Binary read 

set return 
rcao a record 
set for subroutine 
set for subroutine 

extract loader item 
label item 7 

NO 

YES 

EXTRACT A HALFWORO 



CLH RiO,LBLSAV<Ri2> COMPARE WITH ENTERED NaME 



BNES FnDB2 

AIS Rl2,2 

CLHI R12.6 

BNES FNDBl 
B 



BAL 
BAL 

B 
B 
STH 

B 



FnOAS 

LINK, FND 

RTN.VOLCHK 

NOFND 

FNDBO 

LINK.FNqRTN 

FNDl 



not Equal 
bump index 

DONE 7 

NO - GET ANOTHER HALFWORD 
FOUND 

CONTINUE 

CHECK FOR ENDVOL 

NOT FOUND 



LABEL 



CPY08860 



CPY08870 

-* cpYfaaeo 

CPY08890 
CPY08900 

CPY08910 

CpY08920 

CHY08930 

CPY08910 

CPY089S& 

CPY08960 

CPY08970 

CPY08980 
CPY08990 

CPY09O00 
CPY09010 
CPY09020 
CPY09030 

CPY090«»0 

CPY09050 
CPY09060 
CPY09070 

CPY09080 
CPY09090 

CPY09100 

CPY09110 

CPY09120 

CPY09130 

CPY09110 

CPY09150 

•* CPY«9160 
CPY09170 
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LBLA 



0C52R 


4110 




0702R 


0C56R 


03D0 




0F34R 


OCSAR 


C5D0 




0009 


0C5ER 


0387 


OC60R 


C8E0 




0F35R 


0C64R 


C8F0 




06F8R 


0C68R 


D39E 




0000 


0C6CR 


CS90 




002A 


0C70R 


0237 


0C72R 


D39E 




0001 


0C76R 


C590 




002A 


0C7A R 


0237 


0C7CR 


4110 




090ER 


OcflOR 


DlEO 




0D1CR 


0C84R 


doeo 




n«5?i< 


ncaeR 


CS90 




2802 


ocacr 


4090 




084ER 


0C90R 


4110 




083AR 


0C94R 


0305 


OC96K 


C8D0 




006C 


0C9AR 


C8F0 




06P8R 


OC9ER 


CflEO 




2020 


0cA2R 


4110 




092AR 


0CA6R 


07EE 


0CA8R 


26FC 


OCAAR 


27DC 


OCACR 


4110 




092AR 


OCBOR 


DlEO 




0B20R 


0cr4R 


DOEO 




0852R 


OCBflR 


Cfl90 




3802 


OCBCr 


4090 




084ER 


OCCoR 


C890 



- OS COPY 03-056A13 

CLEAR BUFFLR 



LENGTH CHECK 
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LBLA1 



L B L 6 



BAL 


LINK.CLRLNE 


LB 


NUMBER. OPRAND 


CLHI 


NUMBER* 9 


BNLR 
LHI 


CMDER 
FROM.OPRAND+1 


LHI 


T0.PRTBUF 


LB 


R9.0CFROM) 


CLHI 


R9»X»2A» 


BNtR 
LB 


CMDEr 
R9«1(FR0M) 


CLHI 


R9,X'2A' 


BNEr 
BAL 


CMDEr 

link, move 


LM 


FROM.LSTbUF 


SyM 


FROM,wRHLK+«* 


LHI 


Rg'X'jaos' 


STH 


R9.WRBLK 


BAL 


link, write 


BR 
LHI 


COMAND 
NUMBER, 108 


LHI 


T0.PRTBUF 


LHI 


FROM.X»2020» 


BAL 


LlNK.CLEAR 


XHR 
AlS 
SIS 
BAL 


FROM, FROM 

T0H2 
NUMBER. 12 
LINKtCLEAR 


LM 


FROM.LSTBFB 


STM 


FROM.WRflLK+H 


LHI 


H9,X»3802» 


STH 


R9.WRBLK 


LHI 


R9,-l 



LESS = OK 

SET SENDER ADDRESS 

SET RECEIVER ADDRESS 

GET A CHARACTER 

STAR ? 

ERROR IF NOT 

GET SECONO CHARACTER 

STAR ? 

NO = ErrOr 

move file name 
buffer extents 
prime i/o block 
write ascii 
prime block 
write Label record 

BUFFER l EnGTH 

set receiver 

clear to spaces 

clear buffer 

clear value 

bump receiver 

decrement count 

clear buffer to low values 

buffer limits 

PRIMT I/O BLOCK 

write binary 
prime block 
sequence numb e r 



CPY09180 

CPY09190 

CPY09200 

CPY09210 
CPY09220 

CPY09230 

CPY09240 

Cr>Y09?50 

CPY09260 
CPY09270 

CPY09280 

CPY09290 
CPY09300 

CPY09310 

CPY09320 

CPY09330 

C|Y09340 

CPY09350 

CPY09360 
CpY09370 

CPY09380 

CPY09390 

CPY09400 

CPY09410 
CPY09420 
CPY09430 
CPY09440 

CPY09450 

CPY09460 

CpY09470 

Cf'Y09480 

CPY&9490 
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FFFF 
0CX4R t090 

06FBK 
OCCBu CflFo 

06FDP 
OCCCR C8E0 

0F35R 
OCDOR D300 

0F3<»R 
0CD4R 06Dn 
OCOfeR 0337 
OCDflR C5D0 

0007 
OCOCR 0387 
OCDER mm 

090ER 
0CE2R 2<tB6 
OcEtR 03CF 

0000 
OCEflR 90c«» 
OCFA K 02CF 

FFFF 
OCEER D3CF 

0000 
0CF2R 91CC 
OCFHR D3aF 

0001 
OCF^R 91A<* 
OCFAr 06CA 
0CFCR 9tCC 
OCFER D2CF 

0000 
OpO?R PfcFl 

nno<+R 27Ri 

0&06R 203C 
0006R D3A0 

06FCR 
ODOCR C&AO 

OOFO 
OOloR 02AO 

06FCR 
0014R D3A0 

0702R 
OOlflR C4A0 

OOFO 
0D1CR 26AE 
0D1ER 02AO 

0702R 
0D22R C8A0 

OOUO 
0OP6R O?A0 

070S'-; 
002AH CflDo 

006C 
0D2ER CSEO 

06FRR 



LBLB1 



STH 


R9.PRTRUF 


LHi 


TotPRTHUF+5 


LHI 


FROM.OPRAND+1 


LB 


NUMBER lOPR AND 


LHR 
flZR 
CLHI 


NUMBER, NUMBER 

CMDER 

NUMBERt7 


HNLR 
BAL 


CmOER 

link, move 


LIS 
LB 


Rll»6 
R12,0(TO> 


SRLS 
STB 


R12i* 
Rl2t-l(To) 


LB 


«12,0<TO, 


SLLS 

LB 


"l2«12 
R10,1<TO> 


SLLS 
OHr 

EXBR 
STB 


R10i«» 
R12.R10 
R12.R12 
Rl2«0(TO> 


AIS 

sis 

BNZS 
LB 


TOtl 

Rlltl 

LBLBl 

RlO,PRTBUF+«t 


OHI 


R10*X'FO» 


STB 


RlO»PRTBUF + i» 


LB 


RlO»PRTBUF+iO 


NHI 


R10iX»F0» 


AIS 
STB 


Rl0.1<* 
RlO,PRTBUF+lo 


LHI 


R10tX«<tO« 


STU 


RlOiPRTHUF+ll 


LHI 


NUMBER, 108 


LHI 


FROM.PRTBUF 



SET RECEIVER ADDRESS 

LABEL AOORESS 

OPERAND LENGTH 

ZERO ? 

YES . ERROR 

SIZE CHECK 

NOT LESS = ERROR 
MOVE LABEL 



PICK FIRST BYTE 

S AVE ZONE 

SAVE F Ur BITS In "UFFFr 

SET ANOTHER ByTE 

SHIFT OFF NUMERIC 
6ET ANOTHER BYTE 



FORM A BYTE 
EXCHANGE BYTES 
STORE BYTE 

BUMP SENDER/RECEIVER 
DECREMENT COUNT 

* 



SET LOADER ITEM 

GET LAST HALF BYTE 

SET L0AOCR-TTCFT To ZERO 

SET LOADER ITEM 
SET BACK rN BUFFER 

•E«M ITEM 

clear next byte 

LENGTH 

START ADDRESS 



CTY09n00 

C|>Y09510 

CPY09520 

CPYO9530 

CPY095«*0 
CPY09550 
CPY09560 

CpYO^STO 
CPY09580 

epYfl9*9e~ 
CPY09600 

CPY096te 
C t ..Y09620 

CPY09630 

CPY096tO 
CPY09650 

CPY09660 
CPY09670 
CPY09680 
CPY09690 

CPY09700 
CPY09710 
CPY09720 
CPY09730 

CPY097*© 

CPY09750 

CPY09760 

CPY0977tT 

CPY09775 
CPY09780 

CPY09790 

CmY09«00 

CPY09810 

CPY09820 



interdata 

0D32R 4110 

0E24R 
OD36R 40FO 

06FAK 
0O3AR 4300 

0C90R 



0D3ER 

0042R 

0046R 
0048R 
004AR 
0D4CR 
0D4ER 
0D50R 
0D52R 

0D56R 

0D5AR 
0D5CR 
0O5ER 
OD60R 
OD62R 



CCED 
OOOO 
C4E0 
OOOF 
27D4 
0311 
?40C 
?6F2 
0301 
2494 
48EF 
0000 

tno 

0D3EK 

91A4 

06AE 

2791 

2037 

030B 



0D64R DOOO 

0E7SR 
0D68R E120 

0D6ER 
0D6CR 0305 
0D6ER 0007 

0004 
0D72R 4841 

4C34 
0D7f.R 



0o7feR DlOO 

0E78K 
0D7AR 0301 



0D7CR 

0D80R 

0084R 
0D86R 

008AR 
0D8CR 
0D8ER 



D300 

0F34R 

C8E0 

0F35R 

2<t3l 

D230 

0833P 

08DD 

2133 

4300 

0DF4R 



COPY UTILITY - OS COPY 03-056A13 

BAL LINK.CKSUM COMPUTE CHECKSUM 
STH TOtPRTBUF+2 STORE IN RECORD 
B tBLAl CONTINUE 



f'AGF 3? 



*-----■ 
* 

x tract 



EXTRACT A LOADER ITEM 
SRHL FROM.O(NUMHER) SHIFT X HITS 



NHI 



FrOM»X»0F« 



LDKWD 
LOKWDl 



SIS NUMBER, 4 

BNMR LINK 

LIS NUMBER, 12 

AlS TO. 2 

BR LINK 

LIS R9,4 

LH FROM, (TO) 

BAL LlNK.XTRACT 

SLLS Rl0,4 

OHR RlOfFROM 

SIS Rg,i 

BNZS LDRWOl 

BR Rll 



GET ITEM 

DECREMENT BIT COUNT 

CONTINUE 

RESET RIT COUNT 

RUMP SENDER 

RETURN 

GET A HALFWORD 

EXTRACT AN ITEM 



PACK IT 

DECREMENT COUNTER 
CONTINUE 
RETURN 



* 
HALT 



HLTMSG 

HALTM 



HALT 
STM RO.SAVE 

SVC 2,H L TMSG 



hltend 

* -. 

» 
CONT 



HR 
DC 

DC 

EQU 



COMAND 
7«HLTENO-HALTM 

C'HALT' 



SAVE REGS 
HALT MESSAGE 

HALT MESSAGE 



CONTI NUE 
LM RO.SaVE 



RESTORE REGS 



PROC 



BR LINK 

LB NUMBER, OPRAND 

LHI FROMiOPRAND+1 

LIS R3,l 

STB R3«ROBLK+l 

LHR NUMBER, NUMBER 

BN2S PR1 

B PR6 



file number / label 
sender address 

SET LU 

SET READ LU 

DEFAULT ? 

NO 

CONTINUE 



CPY09830 

CPY09840 

CPY09850 

•* CPY09860 
CPY09870 
CPY09880 

CPY09P90 

CPY09900 
CPY09910 
CPY0g920 
CPY09930 
CpY09940 
CPY09950 
CPY099S0 

CPY09970 

Cr'Y09980 
CPY09990 
CPYlOOOO 
CPY10010 
CPY10020 
-* CPY 10030 
CPY10040 
CPY10050 

CpYlOOfeO 

CPY10070 
CPY1OO8O 

CPY10090 

CPY10100 

-* CPY10110 

CPY10120 

CPY10130 

CPY10140 

-* CPY10151 

CPYlOlfcO 

CPY10170 

CPY10180 
CPY10190 

CPY10200 
CPY10210 
CPY10220 
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0D92R 


C8A0 




ODFOR 


0D96R 


40AO 




013E8R 


OO^AR 


D090 




0E78R 


0D9ER 


C8F0 




OF18R 


0DA2R 


•♦110 




090ER 


ODAfeR 


D39E 




0000 


ODAAr 


C590 




0030 


ODAEp 


2389 


ODBOR 


D1E0 




0B1CR 


0OB4R 


DOEO 




0836R 


OOBftR 


4110 




0C4AR 


OOBCR 


•♦110 




0BB8R 


OOCOR 


C590 - 




0040 


0OC4R 


218B 


0DC6R 


D1E0 




0B20R 


ODCAR 


DOEO 




0B36R 


ODCEr 


4110 




0C4AR 


0DD2R 


4110 




0C10R 


OOD&R 


4300 




0DF4K 


OODAR 


C8F0 




0F48R 


ODDER 


4110 




0896R 


0DE2R 


48B0 




0F48R 


0DE6R 


4110 




063ER 


ODEAR 


27B1 


ODECR 


2033 


ODEER 


2303 


ODFOR 


D190 




0E78R 


0DF4R 


CAEO 




0001 


0DF8R 


D3DE 




FFFF 


OOFCR 


080D 


ODFER 


213C 


OCOOR 


48A0 



PR1 



PR2 



PR3 



PRH 



PR5 



PR5A 



PR6 



LHI 


R10.PR5A 


SET RETURN ADDRESS 


STH 


RlOtFNDRNA 


SET RETURN 


STM 


R9«SAVE 


SAVE REGISTERS 


LHI 


TO,LBLSAV 


RECEIVER ADORESS 


BAL 


LINK, MOVE 


MOVE LABEL 


LB 


R9«0(FR0M) 


FIRST CHARACTER 


CLHI 


R9,X«30» 


STAR 7 


BNLS 
LM 


PR2 
FROM.LSTBUF 


NO 

I/O AREA 


STM 


FROMtRDBLK+4 


SET I/O BLOCK 


BAL 


LlNK.FNO 


... 


BAL 


UlNK.FNDAl 


FIND FILE 


CLHI 


R9,X«40« 


LABEL ? 


BLS 

LM 


PR4 
FROM.LSTBFB 


NO - NO. FILES 
I/O AREA 


STM 


FROM«ROBLK*l» 


PRIME I/O BLOCK 


BAL 


LlNK.FNO 




BAL 


UINK.FNDBO 


FIND FILE 


B 


PR6 


CONTINUE 


LHI 


TO, WORK 


SET RECEIVER 


BAL 


LlNKiXLATDB 


TRANSLATE TO HEX 


LH 


Rll.WORK 




BAL 


Link, skip 


SKIP A FILE 


SIS 

BNZS 

BS 


Rll.l 
PR5 
PR 6 


DECREMENT COUNTER 
CONTINUE 


LM 


R9,SAVE 


RESTORE REGISTERS 


AHI 


FROM, 1 (NUMBER) 


SET POINTER 


LB 


NUMBER, -KFROM) 


PICK UP LENGTH 


LHR 

BNZS 

LH 


NUMBER, NUMBER 

PR9 

RlCCLRVAL 


CHECK FOR DEFAULT 

NO 

A OR R ? 



CPY10230 

CPY10240 

CPY10250 

CPY10260 

CPY10270 

CPY10280 

CpY10290 

CPY10300 
CPY10310 

CPY10320 

CpT1033tJ 

CPY10340 

CPY10350 

CPY10360 
CPY10370 

CPY1O38O 

CPY10390 

CPY10400 

CPY10410 

CPY10420 

CPY10430 

CPY10440 

CPY10450 



CPY10460 
CPY10470 
CPTI0*80 
CPY10490 

CP Yl 0510 

CPY10520 

CPY10530 
CPY10540 
CPY103S0 
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0E04R 
0E06R 

OEOAR 
OEOCR 

OEIOR 

0E14R 
0E16R 

0E1AR 

OElER 
0E20R 



0F4ER 

2334 

CflAO 

0050 

2303 

CftAO 

006C 

40A0 

029ER 

0308 

C8F0 

029ER 

4110 

0896R 

0308 

A001 

0000 



0E24R 
0E26R 

0E2AR 

0E2ER 
0E30R 
0E32R 
0E34R 



0E36R 

0E3AR 

0E3ER 

0E**2R 

0E**6R 
0E48R 

0E4CR 
0E4ER 
0E50R 
0E52R 

0E56R 

0E5AR 
0E3CR 
0E5ER 

0E62R 
0E64R 

0E68R 



OAED 
C8Fo 
FFFF 
47FE 
0000 
27e2 
2702 
2214 
0301 



0090 

0E78R 

48E0 

0836R 

C8FE 

0004 

■♦8EE 

0004 

24DC 

4110 

0D3ER 

27EF 

213E 

07CC 

41B0 

0U50R 

45AC 

0E72R 

2138 

26C? 

C5C0 

0006 

2038 

D190 

0E78R 

0308 



PR7 
PR8 

PH9 



BZS 
LHI 

BS 
LHI 



PR7 
RIO, 80 

PR8 
RIO. 108 



STH RIOiRECSIZ 



HR 
LHI 



RTN 
TO.RECSIZ 



BAL LlNK,XLATDB 



PRlO BR 
HAKRLC DC 



RTN 
X'AOOl* ,0 



B 

ASCII = 80 

BINARY = 108 

RECEIVER 

RETURN 

SET RECEIVER 

TRANSLATE 

RETURN 



* -- 

CKSUM 



CKl 



*-----■ 

* 

VOLCHK 



LNl 



CHECKSUM 
AHR FROM, NUMBER 
LHI TO.-l 



XH 



TO, 0< FROM) 



SIS FROM, 2 

SIS NUMBER, 2 

BNMS CKl 

BR LINK 



PRESET RECEIVER 

X-OR HALFWORD 

DECREMENT SENDER 
OECREMENT COUNT 
CONTINUE 
RETURN 



ENDVOL CHECK 

STM R9,SAVE 

LH FROM.ROBLK+4 

LHI T0,H(FR0M) 

LH FR0M,4(FR0M) 

LIS NUMBER, 12 

BAL LlNK,xTRACT 

SIS FROM, 15 

BNZS ENEXIT 

XHR R12,R12 

BAL Rll.LDRWD 



SAVE REGS 

INPUT BUFFER 

SET FOR SUoROUTlNE 

SET FOR SUBROUTINE 

SeT SHIFT MASK 

Extract item 

LABEL 7 

NO 

CLEAR INDEX 

GET A WORD 



CLH RiOtENOVOL(Rl2) CHECK FOR ENDVOL 



BNES EnEXIT 

AIS Rl2,2 

CLHI Rl2,6 

BNES ENl 

LM R9,SAVE 



BR 



RTN 



BUMP INDEX 
DONE 7 

NO 



RETURN 



CPY10S60 
CPY10570 

CPY10380 
CPY10590 

CPY10600 

CPYlOfclO 
CPY10f.20 

CPY10630 

CrYi0f,40 
CI'YlOf.50 

.*CPYl0fe6° 
CPY10670 
CPY10680 
CPY10690 

CPY10700 

CPY10710 
CPY10720 
CPY10730 
CPY10740 
-*CPYl0750 
CPY10760 
CPY10770 

CPY10780 

CPY10790 

CPY10800 

CrYlOBlO 
CPY10820 

CPY10830 
CPY10840 
CFY1085O 
CPY10S60 

CPY10870 

CPY10880 
CrY10890 
CPY10900 

CPY10910 
CPY10920 

CPY10930 



INTERDA 



OEMR 

OE6ER 
OE70R 
0E72R 



OE78R 

0E88R 

OE98R 

OEA8R 

0EB8R 

OFC8R 

OECfiR 

OEC8R 

OECAR 

OCCCr 

OECfR 

OEOOR 

OED2R 

OED<*R 

OED6r 

OE08R 

OEDAR 

OEDCR 

OEOER 

OEEOR 

OEE2R 

0EE4R 

OEE6R 

OEE8R 

OEEAR 

OEECR 

OEEER 

OEFOR 

0EF2R 

OEFtR 

OEF6R 

OEF8R 

OEFAR 

OEFCR 

OEfEr 

OFOOR 

0FO2R 

OFO^R 

0F06R 

OF08R 

OFOAR 

OFOCR 

OFOER 

OFlOR 

OF12r 

OFlfR 

0F16R 

OF18R 

OFlflR 



D190 

OE7BR 

2684 

0308 

««5t»E 

4<t56 

tF<»C 



TA COPY UTILITY - OS COPY 03-056A13 
ENEXIT LM R9.SAVE 



PASF 35 



2020 

2020 

?020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

?020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 



AIS 
BR 
ENDVOL DC 



SAVE OS 
SAVE2 OS 
SAVE3 DS 
SAVEH OS 
SAvE5 Ds 
BUFFER EQU 
00 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
OC 
OC 
DC 
OC 
DC 
OC 
OC 
DC 
DC 
DC 
DC 
I3UFEND EOU 
LBLSAV OS 



RTN,i+ 
RTN 

e»Ef*Dvet» 



RESTORE REGS 
RETURN 



16 

16 

16 

16 

16 

* 

*0 

X»2020» 

X«2020» 

X»2020» 

X»2020» 

X»2020« 

X»2020» 

X»2020» 

X»2020» 

X»2020' 

X>202o* 

X»2020» 

X«2020» 

X«2020« 

X»202o» 

Xt2o20» 

X«2020» 

X»202o» 

X»202U» 

X'2020' 

X»2020» 

X»2020» 

X»2020« 

X»2020» 

X'2020« 

X»2020» 

X»2020» 

X«2020» 

X«2020* 

X»202o» 

Xi202o» 

X»2020» 

X»2020» 

X«2020» 

X»2020» 

Xi2020» 

X»2020» 

X»2020» 

X»2020« 

X*2D2o» 

X»2020» 

* 

8 



CPY109<*0 

CPY10950 
CPY10960 
Cf»Y*tm© 



CvriV9*Dr~ 

CPY10990 

CPYHOOO 

cpiriiet« 

CpY11020 
CPY11030 

crrnono 

CPYH050 

CPY11050 

Cr»YllO50 

CPY11050 

CPY11050 

CPY110S0 

CPY11050 

CPY11050 

CPY11050 

CPY11050 

CPY11050 

CPY11050 

CPY11050 

CPY11050 

CPY11050 

CPY11050 

CPY11050 

CPY11050 

CPY11050 

CPY11050 

CPY11050 

CPY11050 

CPY11050 

CPYllOSo 

CPY11050 

CPYH050 

CPY11030 

CPY11050 

CPY11050 

CPT1103O 

CPY11050 

CPY11050 

CPY11090 

CPY11050 

CPY11050 

CPYH050 

CPY11050 

CPY11050 

CPT11050 

CPY11050 

CPY11060 

CPY11070 
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0F20R 


* 


SPCEND 


EQU 


* 


0F20R 


FFfF 


• VAKFLG 


OC 


-1 


0F22R 


0000 

0000 

0000 

0000 

06BAR 

OQOOK 

08p.6H 

7S6R 

0000 


RtGSAV 


DC 


0,0 tO, 


0F34R 




CLRBEG 


EQU 


* 


0F3HR 




OPRANO 


DS 


20 


0F«»8ft 


0000 


WORK 


DC 





OFtAR 




WORK? 


DS 


1 


OFHER 


0000 


CLRVAL 


DC 





0F50R 


oooo 


FMKFLG 


DC 





0F52R 


0000 


SKPNO 


DC 





0F5«tR 


0000 


BKiMO 


DC 





OF56R 


0000 


QUANT 


DC 





0F58R 




CLREND 


EQU 


* 


0F58R 






END 


OSCOPY 



0, 0,0,0. PR INT, OSCOPYi ERR »CMDERRtO 



CPY11080 
CPY110S0 
CI'YlllOO 



CfYllllO 
CPY11120 
Cl>Y11130 
CPY11140 
CPY11150 
CPY11160 
CPY11170 
CPY11180 
CPY11190 
CPY11200 
Cl Y11P10 



INTEROATA COPY UTILITY 

NO ERRORS 



OS COPY 03-056A13 
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BACkSP 


06B6K 


RAKRFC 


0E20R 


BKNO 


OFStR 


BKSP 


06AHR 


BSP 


0678R 


BSP? 


06AEH 


BUFEND 


0F18R 


BUFFER 


0FC8R 


CI 


092ER 


CK1 


0E2AR 


CKSUM 


0E24R 


CLEAR 


0«??AH 


CLRBF.G 


0F31K 


CLREND 


OF^fiR 


CLRLNE 


07H2R 


CLROUT 


07F0R 


CLRVAL 


OFtEK 


cum 


0038R 


CMD2 


3EK 


CMU3 


OOtIK 


CMO 1 * 


OObttR 


CHD5 


OOSCK 


CM06 


0080R 


CMD7 


OOACR 


CMDBLK 


OOCOK 


CMDENO 


Ol^R 


CMDER 


0007 


CMDERR 


07B6R 


CMDLST 


00C8R 


CMDI"SG 


07BCR 


CMEND 


07C8R 


CMSt, 


07C0H 


COMAMD 


0005 


COMO 


0026R 


CONT 


0D76R 


COPY 


0170R 


CP10 


027CK 


CPU 


0288N 


CP2 


oi8"»R 


CP3 


01D8R 


CP4 


01E0R 


CP5 


01EER 


CP6 


0216K 


CP7 


022AR 


CP7A 


02H0R 


CP7B 


0262K 


CP8 


0266R 


CPEOF 


0272R 


CPEOV 


028CH 


CPEOV1 


0292R 


CPYA 


015ER 


CPYB 


016CR 


DS1 


011CK 


DS10 


0fC2R 


DS11 


OtFtK 
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DS12 


0<*FCR 


DS1S 


0500R 


DS13A 


0512R 


DS1H 


0526R 


OSl<*A 


0S30R 


0S15 


053«*K 


0S6 


0H76R 


DS7 


047AR 


DS8 


0<*8CR 


0S9 


0490R 


OSCHEK 


0516K 


OSPA 


OfO'+R 


DSPB 


0H12R 


EN1 


0E32R 


END 


07CER 


ENDVOL 


0E72R 


ENEXIT 


0E6AR 


ERMENO 


089<*R 


ERR 


0856R 


ERRMSG 


088«*R 


ERROR 


OOOfe 


ERRR 


onooK 


ERXIT 


087ER 


FETCH 


02A0R 


FIND 


0B2CR 


FLGCHK 


03ACR 


FMKFLG 


0F C 30H 


FND 


0C*AR 


FND1 


0B76R 


FNDA 


OB9&R 


FNOA1 


0BB8R 


FNDA2 


OBDOR 


FNDA3 


OBD6R 


FNDB 


0BF8R 


FNOBO 


OCIOR 


FNDB1 


0C21R 


FNDB2 


0C3AR 


FNDEND 


OBF8R 


FNDMSG 


OREER 


FNDRNA 


0BE8R 


FNORTN 


0B82R 


FORM 


076ER 


FROM 


000L 


GETCOR 


029AH 


HALT 


0061R 


HALTM 


0D72K 


HEADER 


0590R 


HEDEND 


05B8R 


HEDPRT 


0552R 


HEORTN 


058ER 


HLTEND 


OD76R 


HLTMSG 


0O6ER 


INREC 


0A22R 


LABELS 


0B2<tR 


LASTAD 


OOOf 


LBLA 


0C52R 
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i.HL Hi 


QC90H 


i al;- 


0C96H 


:.. '<!.!■ 1 


GCFER 


LOLS-v 


OF1CR 


:. nRwr- 


0050K 


LT/SWhl 


0D52K 


•..IK-L 


77ER 


I. I NK 


aooi 


LNRT!\' 


07A2R 


LST 


OA46k 


LST1 


0A78R 


L S T 2 


0A98K 


i. S T 3 


OAROR 


LST 3 A 


0AB8R 


i. s r i+ 


0AD2R 


I ?T5 


OBOAU 


LST A 


0A3ER 


LSTH 


OAFER 


LSTfiFR 


0B20R 


lsi pur 


OftlCR 


mi 


Q912H 


pi 2 


09?4H 


i^TH 


OStAR 


«EMf ;vu 


0552H 


«*£MfRR 


0540R 


MrMMSC 


054feR 


MOVE 


090EK 


NAPIBLK 


0152R 


ma pit: 


01ER 


NAHFNn 


015ER 


NAMST 


0156K 


NFCNP 


0n9bR 


NFwn 


OH6ER 


'MFNUMfi 


OBAAR 


NOFiMD 


OB8HR 


NONVEK 


09A2R 


NUMBER 


OOOO 


MV 


09C6R 


NVO 


09CCR 


NV1 


0906R 


NV2 


09D8R 


MV3 


09ECR 


"V<+ 


OAOCR 


mvr 


07A4R 


OPRAMD 


0F34R 


OSCOPY 


OOOOK 


OUTREC 


0A30R 


PARSER 


007CK 


PAUSE 


0S9tR 


PAwS 


07C8R 


PGMFNf) 


OBEAK 


PP1 


0D92R 


FRIG 


0E1ER 


PR? 


ODCOR 


PR 3 


0DD6R 


PR!* 


ODDAR 
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PR5 


0DE6K 


PR5A 


ODFOR 


PR6 


ODFfR 


PR7 


OEOCR 


PR8 


OEIOR 


PR9 


0E16R 


PRINT 


06BAR 


PRNT1 


06C6R 


PROC 


0D7CR 


PRT1 


0776K 


PRTBLK 


06F0R 


PRTBUF 


06F8K 


PRTEND 


076<*R 


PRTN 


06EER 


PTOF 


0778R 


OUANT 


0F56K 


RO 


0000 


RIO 


000A 


Rll 


000B 


R12 


OOOC 


R13 


000D 


R3 


0003 


R9 


0009 


ROl 


0802R 


RD2 


0822H 


Rns 


OflOCH 


RDBLK 


0832K 


RDBLK2 


03FCR 


RDCHK 


0812R 


RDEOF 


0828R 


RDEOV 


081ER 


RDEXIT 


OBOBR 


READ 


07F2R 


RECRDS 


0002 


RECSIZ 


029EH 


REGSAV 


0F22K 


RELCOR 


029CR 


REWIND 


05D8R 


RTN 


0008 


RWD 


05B8K 


RWND 


05C8H 


SAVE 


0E78R 


SAVE2 


0E88R 


SAVE3 


0E90R 


SAVE«t 


0EA8R 


SAVE5 


0EB8R 


SKIP 


063EK 


SKIPFM 


0674R 


SKIPLN 


0766R 


SKP 


0600R 


SKP1 


0632R 


SKP2 


0648R 


SKPALL 


0652R 


SKPNO 


0F52R 


SKPRD 


066CR 


SPCEND 


0F20R 
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TO 


OOOF 


VAR 


07AER 


VARI 1 r. 


or; j m< 


vera 


fl2A«4l( 


veru 


02I1AR 


VERIFY 


0?C6H 


VERM 


0A18K 


VERP1ND 


0A22R 


VERMSG 


0AX*K 


VOLCHK 


0E3bR 


VRIO 


03F0M 


VR2 


0200R 


VR3 


0342R 


VR«» 


0346R 


VR5 


03<»AR 


VR6 


03«AK 


VR7 


039tK 


VR8 


03H8R 


VR9 


03C6R 


VREOF 


osncR 


VREOF2 


03E0R 


VREOF3 


03ECR 


WFM 


OSDCR 


WFMK 


05ECR 


WORK 


OF16R 


WORK2 


0F4AR 


WRBLK 


081ER 


WRITE 


083AK 


WRTFMK 


05FCR 


XB1 


08A4K 


XB2 


0800H 


XB3 


OSBCR 


XC1 


0942k 


XC2 


094CK 


XC3 


0950R 


XC<t 


0958H 


XD1 


0976k 


xn2 


097ER 


X03 


0998k 


XH1 


OBU4-R 


XH2 


08F0R 


XH3 


08F6R 


XLATDD 


096CK 


XLATOR 


0896R 


XLATEC 


093ER 


XLATEH 


08CCR 


XTRACT 


OD3ER 
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OS/16 AIDS 
PROGRAM MANUAL 



INTRODUCTION 



OS/16 AIDS (Automatic Interactive Debugging System) is a comprehen- 
sive debugging program design to provide the user with a variety 
ot debugging tools. Operating under one of the INTERDATA operatina 
systems (BOSS or DOS) , OS/16 AIDS accepts directives to provide 
cell/register manipulation in hexadecimal, decimal, character, 
floating point and assembly formats . Additionally , OS/16 AIDS provides 
the user with eight snapshot, trace and break-points to allow a 
total of twenty-four sentinel points for execution checkpointing. 
The built-in interpretive processor allows the user to protect up 
to eight cells and registers. When the contents of the protected 
cells or registers is altered, OS AIDS notifies the user of the 
instruction responsible for alteration. The dump formats (decimal 
hexadecimal with character translation, binary, floating point, 
disassembly and loader format) are available individually through 
directives and may also be specified under the snapshot option. 

1.1 Configuration Requirements 

OS/16 AIDS requires the following minimum configuration: 

any 16-bit Processor 

- BOSS or DOS 

- 8KB memory over and above the OS 
a console device (CRT or TTY) 

1.2 Configuration Options 

OS/16 AIDS requires a floating-point instruction set or an OS with 
software traps for floating-point format operations. Record- 
oriented devices supported by the OS may be used for list and dump 
operations. ^ 
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Terminology 

The term cell refers to a halfword (sixteen bit) memory loca- 
tion or register. 

An open cell or register is one that is currently available 
for modification. To operate on a cell or register in mem- 
ory, it must be made the current open cell. Floating point, 
assembly and character options may operate on multiples of 
cells . 

Directives are instructions to OS/16 AIDS and consist of one or 
more characters that may be followed by operands . The char- 
acters, in most cases, represent the first letter of the type 
of operation or option desired; ex. = Open, H = Hexadecimal, 
D = Dump, etc. Where possible the meaning of each character 
remains constant for each of the directives. 

The operands may be addresses (relative or absolute), registers, 
data, instructions or special functions (i.e., increments or 
counters) . Leading zeroes are not required and defaults are 
permitted in some cases. An illegal combination of directives 
or operands causes the response 'CMD-ERR' to be typed on the 
operator's console. OS/16 AIDS ignores an illegal directive and 
waits for another. 

The delimiters used in the directive statements are flexible - 
with the exception of a required 'space' separating the direc- 
tive and its operand(s). OS/16 AIDS recognizes a hyphen, open 
parenthesis, close parenthesis, comma, period, quote or space 
as separators (delimiters) between operands. This feature has 
most significance when entering data in assembly format. A 
normal assembly statement might be entered as RA LH 7,300(2). 
A faster version, eliminating the parentheses and upper case 
characters, could be entered as RA A LH A 7 a 300 A 2 or RA,aLH a 7 ,300 ,2 
etc. Multiple delimiters are treated as single delimiters when 
entered contiguously. 

The relative addressing feature provided by the Bias (BI) com- 
mand and the assembly directives permits the user to reference 
program relative addresses and instructions when using the Cell 
Examination and Modification directives. Program Utility direc- 
tives require absolute address operands. 

References to the next ' logical ' cell etc. are based upon the 
length of the current open cell (s) . The length of the data 
in the cell as determined by the display format is responsible 
for the logical length. For example, floating point values 
are full words, instructions may be full words or half words 
and character strings are variable in bytes. 
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Note that data may be displayed and replaced in decimal, 
hexadecimal, character and floating point formats. The 
formats are similar to INTERDATA Assembly constants except 
the 'DC' and single quotes are not required. 

A Floating Point number consists of the following: 

1. An optional leading plus or minus sign. 

2. One or more decimal digits that may include a 
decimal point. 

3. An optional 'E' character followed by an optional 
plus or minus sign and one or two decimal digits 
denoting a power of ten. 
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3. Description of Operations 

There are three classes of directives: 

1. Environment Control 

2. Cell Examination and Modification 

3. Program Utilities 



The directive characters are always separated from the 
operands by one or more spaces. Environment control com- 
mands and utility dump operations respond with the message 
OS AIDS to indicate completion of the operation. In the 
examples, the user entered directive statement is underlined 
and the OS AIDS response is not. When directive statements 
are entered via the operator's console keyboard, the normal 
operating system control characters * $ ' , •#', and ' +• • provide 
(respectively) the ability to pause, (under DOS) , ignore a line 
and ignore a character. The carriage return (65) is utilized 
only for operator console command input. ^"^ 

3.1 Environment Control 

LU Logical Unit Selection 

OS AIDS is initialized with the command input device, list 
device and binary output device accessed through logical units 
1, 3 and 5, respectively. Frequently, the user program being 
debugged utilizes one or more of these logical units. To pre- 
vent such conflicts, OS AIDS can change its logical units before 
debugging begins through the use of the 'LU' directive followed 
by the new logical units. 



Example: LU A 6, 4, A (CRJ 

OS AIDS 



In this example, commands are read from the device assigned to 
logical unit 6, listed data written to logical unit 4 and binary 
data written to logical unit A. A pause (directive '?') at this 
point returns the user to the operating system where the user 
should assign the desired physical devices to the defined logical 
units. The normal operating system CONTINUE command returns the 
user to OS AIDS. 



BI Bias Definition 

The relative addressing feature permits the user to reference 
addresses indicated in his program listing when debugging relo- 
catable programs. The bias is usually set relative to the first 
location within a program, i.e., a program loaded at X'4500' would 
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set the bias to X'4500' to achieve memory and listina a ddrP„ 
correspondence Cells opened after the establishment off 
di^lay e fS?mat! latlVe t0 ^ *^^* bia. re.TrTlefs 0% the 

Example: BI A 5100 (j5l^) 

OS A AIDS sets the bias to X'5100' 

BI A 6r) 

OSAAIDS sets the bias to zero 

Note: The bias is initially set to 



zero. 



Pause 



The pause directive causes an exit to the operating system 
Ss^Dr^A?? SyS ^ m C0NTINUE co ™ and ^ be used ?o return to 
re'maifin 2J fect?^ ' " Wl1 "" the b±aS and °Pe* cell/reg? 

Example: P (^r) 

PAUSE Pause OS AIDS 

EN End 

The end directive terminates OS AIDS, restores special SVC 
pomters and restores all sentry points. s P e cia± SVC 

Example: EN 



E0J Ends OS AIDS 



Note: Prior to dumping a user program it is recommended that 
n»i v naP S°^' ^ aCe and Breakpoint sentries be removed? A 
quick method of accomplishing this is to utilize the end (EN) 

format 1Ve Durina a no °* i*?Z ™? dUmp the pr °* ram in tlTdeiired 
fhT^t' Durin g. norm al debugging this is not required - provided 

^ASI'BSSSi? 88 lnSSrted X,E1E °"' X ' E1E2 '' °* X lE lE4^s lded 



3.2 Cell examination and Modificati 



on 



and d ^?Jf iVeS described in thi * section provide memory cell 
rSrma?^ examinatlon and modification in the following 

1 H' - Hexadecimal Format 

'D' - Decimal Format 

' C - Character Format 

'F| - Floating Point Format 

J A' - Assembly Statement Format 

'B' - Biased Assembly Statement Format 
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Care should be exercised when replacing data with the 
Character, Floating Point and Assembly formats. Floating 
point format generates a fullword, Assembly format may 
generate a fullword and character format allows string 
replacement (variable length) . Judicious use will avoid 
inadvertent overlaying of adjoining cells or registers. The 
length of the data being accessed will be used to calculate the 
next logical cell except where the preceding cell is requested 
(defaults to the preceding halfword always) . 

Open Cell/Register 

OS/16 AIDS provides the user with an extremely flexible system for 
cell modification and display. The '0' directive is immediately 
followed by a second character that determines the format for 
displaying specified cells or registers. All addresses speci- 
fied are relative to the BIAS. 

Hexadecimal format causes two bytes to be opened and displayed 
in four hex characters. 

Example: OH A 300Q Cr) Open cell X'3000' 

4 30 contents in hex format 

Decimal format causes the contents of the specified memory 
location to be converted to decimal and displayed in 5 digits. 

Example: ODa3000 (qr) Open cell X'3000' 

17152 contents in decimal format 
X'4300' = 17152 1Q 

Character format causes the cell contents to be displayed in 
printer graphics. When the contents of the cell are non- 
printing characters, periods (.) are substituted. 

Example: OCa300 <£r ) Open cell X'3000' 

C. contents in printer graphics 

Floating point format displays a fullword in hex format 
followed by the corresponding value in floating point ASCII 
format. The Floating point registers (0,2,4,6,8,10,12 and 14) ^ 
must be opened as memory locations X'0, X'4', X'8', X'C, X'10', 
X'14 1 , X' 18' , and X'lC . 

Example: OF A 3000 6r) Open fullword at X'300 0' 

43004000 4 Contents in floating point format 

The Assembly statement format causes the first byte of the 
cell to be converted into its corresponding mnemonic and either 
a halfword or fullword statement created. When an invalid OP 
code is encountered, the halfword is displayed as a defined 
constant with its character translation in the comment field. 
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Example: OA 4 3000 (£r) Open cell X'3000' 

3000 43004000 BFC 0,4000 

OA A 4000 <QR) Open cell X'4000' 

4000 5148 DC X'5148' C=PH 

When a bias has been set, a given cell may be displayed as 
a biased assembly statement. 

Example: BI43000 6r) Set bias to X'3000' 
OS AIDS 

OB & • (£r) Open Biased Assembly cell X'3000 
0000R 43001000R BFC 0,1000 

OA q (cr) 

3000 43004000 BFC 0,4000 

Note: When opening cells, an option is available to open con- 
secutive logical cells. To open 'n' cells follow the address 
with a ',n' where 'n' is a decimal value. 

Example : OH ia 3000,4 (CR> 
4300 
4000 
D71E 
5000 

The current open cell is the last cell opened. 

OR Open Register 

The 'R' directive allows user registers to be opened. The 
display format is forced to hexadecimal. After opening, the 
register may be modified in the same manner as a cell. 



Example: OR a A (CR) Open register 10 
0100 contents in Hex 

Note: Use caution when modifying Registers in Floating Point, 
character or assembly formats due to the possibility of operand 
lengths in excess of 16 bits. 

R Replace 

The replace directive, 'R' , permits the user to change an 
opened cell or register's contents with a specified value. 
The 'R' directive is immediately followed by a second character, 
H,D,C,F,A or B, which describes the format of the operand portion 
of the replace statement. Replacement in character format may be 
done with strings of 6 or less characters. 



Example: 



RH A 4 8D0 CCR) 
RD A 10000 (Ql 
RC A TEXT MESSAGE 
RF A 12.lE-45 <££) 
RA A LHI A C,4000 (9) 
RB A LHI^C,10 (9) 




Replace Cell/Reg with X'48D0' 
Replace Cell/Reg with X'2710' 
Replace Cells with text string 
Replace Cells with Floating Point 
Replace with instruction 
Replace biased instruction 



Note: In all cases the appropriate internal data, as specified 
in the operands, is placed into memory. Fullwords and variable 
length data are generated where applicable. (Floating Point, 
assembly statement and character strings) . 



N Next Cell 

The next logical cell is opened, but not displayed, when the 

'N' directive is entered. The location counter is incremented by 

the logical length of the last open cell. 



Example: 



N 



(© 



The current open Cell/Reg is closed and 
the next logical Cell/Reg is opened. 



@or (SPACE) 



Open Next Cell 



Example: avC_ 



The use of a carriage return, (cr) , when entering directives 
through the operator's console keyboard or a space when entering 
from another device is interpreted as the directive requesting 
display of the next logical Cell/Reg. The secondary character 
may be omitted and the Cell/Reg is opened in the format last 
specified. If the default option is not desired, any valid 
secondary character used with the open directive may be applied. 
When a secondary character is specified, the primary directive 
must be a space. 

Opens next Cell/Reg in previously 
established format 

Opens next Cell/Reg in previously 
established format 

Opens next Cell/Reg in Hex format 

Opens next Cell/Reg in Decimal format 

Opens next Cell/Reg in Character format 

Opens next Cell/Reg in Floating Point 
format 



aH_£D 
aD (cr) 
gC (CR) 
aF (CR) 
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aA (£R) Opens next Cell/Reg in Assembly State- 

ment format 

4Bj£R) Opens next Cell/Reg in Biased Assembly 
Statement format 

O Reshow 

The ability to reshow an open cell/register in a different 
display format is provided by the Open '0' directive with a 
default operand. By specifying the Open. '0' directive in con- 
junction with one of the secondary characters without an operand 
address, the current open Cell/Reg is re-displayed in the speci- 
fied format. The operand address is defaulted. The secondary 
character may also be defaulted to reshow the open Cell/Reg in 
the previously established format. 

Preceding Cell 

The Cell/Reg immediately preceding the current open Cell/Reg 
may be displayed using the '-' directive. The secondary character 
may be defaulted to the previous format or may specify any of the 
secondary characters that are valid for the Open, '0' directive. 

Open preceding in established format 

Open preceding in Hex format 

Open preceding in Decimal format 

Open preceding in Character format 

Open preceding in Floating Point format 

Open preceding in Assembly Statement format 

Open preceding in Biased Assembly Statement 
format 

Note: In some instances, with floating point and assembly state- 
ment formats, two Preceding Cell directives may be required for 
logical fullword alignment. The Preceding Cell directive decre- 
ments the current open cell address by the length of one halfword 
cell only. 

J Jump to Address Contained in Open Cell/Reg 

OS AIDS opens the Cell/Reg specified by the contents of the 
current open cell when the Jump, 'J' directive is entered. The 
inclusion of a secondary character (H,D,C,F,A,B or R) causes the 



Example : 


-<£R) 




-H$R> 




-D (CRJ 




-C© 




-F <£R) 




-A (QR) 




-b£r) 
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Cell/Reg to be displayed in a given format. When the secondary 
character is not entered, OS AIDS defaults to the previously 
established format. 

Example: If the current open cell contains X'4100', location 
X'4100* is opened and displayed by the following 
directives : 




A 



Defaults to previous format 

Opens in Hex format 

Opens in Decimal format 

Opens in Character format 

Opens in Floating Point format 

Opens in Assembly Statement format 

Opens in Biased Assembly Statement format 

Opens register in Hex format 

If the current open cell contains a value less than 
X'10', the user may wish to interpret the value as 
a register. In this case the 'JR CR' directive 
would open the appropriate register. 

Add to Contents 



The Add directive, 'A 1 , permits the user to increment an 
open cell/reg with a given value. The secondary directives 
(H, D & F) all use values expressed in hexadecimal, decimal 
or Floating Point. 



Example : 

OH*4000 CR 
2A18 

AH*1A00 CR 



ODa4000 CR 
17432 

AD A 256 CR 



OF CR 



Open cell as Hex 

Open cell content = X'2A18' 

Add Hex value 

Open cell contents = X'4418' 

Open cell as Decimal 

Open cell contents = X'4418' 

Add decimal value 

Open cell contents = X'4518' 

Open cell as Floating Point 



4000 45180000 98304 Open cell contents = X' 45180000' 



AF4100000 CR 



AF*1E5 CR 



Add Floating Point value 

Open cell centents = X'451A7100' 

Add Floating Point Value 

Open cell contents = X'451CE200* 
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S Subtract from Contents 

The Subtract directive, 'S', provides the capability of 
decrementing an open cell/reg with a given value. The secondary 
directives (H, D & F) allow use of values expressed in hexedecimal, 
decimal or Floating Point. 

Example : 

OH 4000 (CR) Open Cell as Hex • 

701c Open cell contents = X'701C' 

SH lAOOCgg ) Subtract Hex value 

Open cell contents = X'461C 



OD 



975" 



Open Cell as Decimal 



SD 256 <£&) Subtract Decimal value 

Open cell contents = X'451C 

??iJ*^L, --. 0pen Cel1 as Floating Point 

4UUU 451CE200 118304 Open cell contents = X , 451CE200' 

SF 1E4 (Cr^ Subtract Floating Point value 

Open cell contents = X*451A7100' 

SF lOOOOfCR; Subtract Floating Point value 

Open cell contents = X 1 45180000* 

3.3 Program Utilities 

The directives contained in this section provide a two- 
fold purpose. First, they provide a means of viewing an exe- 
cuting program as well as allowing changes during a logical halt. 
Secondly, they provide general purpose utilities for creating 
assembly type listings, absolute loader format program files 
and binary program files. 

The bias defined in Environment Control applies only to the 
biased assembly output , DB«. All applicable operands are assumed 
to be absolute addresses (i.e., the user must use absolute addresses 
as operands for OS AIDS Utility directives) . 

D Dump 

The 'D' directive causes OS AIDS to output the contents of a 
section of memory defined by the specified low and high limit oper- 
ands. The format of the dump and the device dumped to are dictated 
by the required secondary characters. The directive conforms to 
the following format. 

D(+option) (Low Addr) , (High Addr) 
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Th e only exception to the above is the utility dump (DU) that 
displays the location of Snapshot, Trace, and Breakpoint Sentries 
as well as the cells and registers that are currently protected. 

Example: DH A 3000 , 3A90 (c^) Binary dump to binary output 

device 

DD A 3000,3A90 (ciy Decimal dump to list device 

(See Appendix 4) 

DC A 3000,3A90 (CR) Hex character dump to list 
'~~~" device (See Appendix 6) 

" *'<>■> a. f/"*f r"*^ -^DL-3000, 3A90(C£> Loader format dump to binary 
Cea To lie 7 ' " device 

DF A 3000,3A90 (cr) Floating Point format dump to 

list device 
(See Appendix 5) 

DA A 3000 , 3A90 (cr) Assembly type dump to list 
~~" device (See Appendix 2) 

DB A 3000 , 3A90 (cr) Biased Assembly type dump to 

list device 
(See Appendix 3) 



DU (CR) Sentry locations and protected 

^ cell/registers to list device 

(See Appendix 7) (no address 
operands) 

Note: All dumps return to the command mode and log 'OS AIDS' 
on the operator's console upon completion. 

'Final' versions of Assembly format dumps and Loader format 
dumps should reflect only the program modifications made by the 
user. The existence of active sentinels within user programs 
causes erroneous dumps. Therefore, sentries should be eliminated 
by the user through the ZAP directives before dumping. 

The 'Loader' format dump is an absolute program capable of 
loading and executing under an operating system. The 'Binary' 
dump may be loaded by the '50 Sequence' or an SVC 1. 

I Insert Sentry 

Sentries may be one of 4 program logic control mechanisms : 

1) X - BREAKPOINTS 

2) T - TRACE POINTS 

3) S - SNAPSHOT POINTS 

4) P - PROTECT POINTS 
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The 'I' directive, when modified by a secondary character 
(X,T,S or P) causes OS AIDS to insert a sentry (SVC 14) into 
the user program and retain the original instruction, etc., 
within an internal table. The sentry should always reside in a 
user execution path and although it is a legal instruction, its 
presence is logically transparent to the executing program. In 
every case, the instruction replaced by the sentry is executed 
interpretively by OS AIDS before the function is performed. 

The insertion of the Breakpoint (X) and Trace (T) sentries is 
at the operand addresses specified. The insertion of the 
Snapshot (S) sentry is accomplished at the current open cell and 
is not dependent upon the operands. The Protection (P) sentry 
allows cells and registers specified by the operand address to be 
protected. If a protected cell or register's contents change as 
a result of user instructions, OS AIDS notifies the user of the 
offending instruction's location. When protection is specified, 
the entire user program is executed interpretively until all pro- 
tected cells or registers are released (Zapped) . 



Example : IX <a 32F0 (CR) 
OS AIDS 



Inserts Breakpoint sentry at 
X'32F0' 



Example: 



BRK: 32F0 Execution of the sentry logs this 

message to the operator ' s console. 
The current open cell is set to 
the next logical instruction. 
OS AIDS is now in the command mode, 
The 'GO' directive with no operand 
address causes processing to con- 
tinue in line. 

ITa3100,316a(cr) Inserts a Trace sentry at X'3100' 
OS AIDS and lists the execution thread 
through X'316A' 





TRC: 3100 




3102 




3104 




3108 




310A 




etc. 


Example : 


IPa375E 



OS AIDS 



Execution -of the sentry will 
cause listing of instruction 
addresses after they are execu- 
ted. When execution exceeds 
the high address, tracing stops 
and execution continues in line 
without interpretation. 

Initiates protection of cell X'375E' 



IPRaA 
OS AIDS 



Initiates protection of 
register 10. 
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PRO: 375E 36F2 



Example: 



OHa3F1C (CR) 
48c6 



IS* ^3000,3100,10 (gR> 

* = CHOICE OF: 

H - Binary dump - Binary 

device 
C - Hex with Character - 

List device 
D - Decimal dump - List 

device 
F - Floating Point - 

list device 
L - Loader format dump - 

Binary Device 
A - Assembly statement 

dump - list device 
B - Biased Assembly 

Statement dump - 

list device 



After restarting the user program 
through the 'GO' directive, a modi- 
fication of the protected cell or 
register will cause this message 
indicating the cell or register 
affected and the effecting instruction 
location. OS AIDS is in the command 
mode. 

Open the cell where a Snapshot is to 
be inserted. 

When the sentry inserted at the 
current open cell is executed 
10 times, a dump of memory between 
X'3000 1 and X'3100' occurs. The dump 
format is specified by a third 
character. The executions between 
dumps (third operand) is specified 
in decimal and may not exceed 255. 
The third operand may be defaulted 
in which case the dump occurs upon 
every execution of the sentry. See 
Appendices for dump formats . 



Note: Multiple sentries should not be placed in the same memory 
location. i.e., a snapshot sentry and a breakpoint sentry should 
not be placed in the same cell. Sentries may be placed in a 
'Trace' path but should not be entered in the first cell of the 
path. 

Nested (overlapping) Trace extents would present a confusing picture 
of the execution path. To preclude this possibility, OS AIDS rejects 
a Trace insertion with overlapping extents. 

The 'Protect' capability is effective for user registers only after 
the user program has established the initial register contents. It 
is recommended that Protection be established after the exection of a 
Breakpoint sentry. At this time, the user will have his registers 
loaded. 

The protection feature is effective when the user issues the 'GO' 
directive. Protection is pre-empted by Snapshot, Tracing and 
Breakpoints and is not active during the execution of sentries or 
trace extents. 



Z Zap Sentry 

Breakpointing, Tracing, Snapshoting, and Protecting require entries 
in OS AIDS tables and instruction changes within user programs. 
When individual sentries or entire sentry operations 
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are no longer required, they may be eliminated with the ZAP 
instruction which in turn restores the original cell contents. 
The use of the 'Dump Utility Locations' directive (DU) provides 
a list of all individual sentries which may be useful prior to 
'Zapping' them. All sentries within the same function may be 
'Zapped' by defaulting the address operand. 



Examples : ZX A 3000 (£R) 



OS 


AIDS 




zx 




<££> 


OS 


AIDS 




ZT A 3FA0 


(CR) 


OS 


AIDS 




ZT 




<£r) 


OS 


AIDS 




ZSa' 


J1B2 


© 


OS 


AIDS 




ZS 




£r) 


OS 


AIDS 




zpa: 


3806 


<f5> 


OS 


AIDS 




ZPRaE 


® 


OS 


AIDS 




ZP 




<a>, 



Zap Breakpoint at X'300 0' 

Zap all Breakpoints 

Zap Trace at X'3FA0' 

Zap all Tracing 

Zap Snapshot at X'41B2' 

Zap all Snapshots 

Zap protection of cell X'3806 1 

Zap protection of register 14 

Zap all protection 



OS AIDS 



GO 



GO Execute 



The 'GO' directive may be used to start and return processing 
to the user program with the status and condition code restored 
to its in-line or initial value. The current open cell is used 
as the execution address when the address operand is defaulted. 



Example: GO A 3000 (gR) 

OH ^3 ICE (CR) 
4800 

GO (cR) 



Begin execution at X'3000' 

Open cell established as X'31CE' 



Execution begins at X'31CE' 



Note: When a Breakpoint or Protected Cell/Reg causes an operator 
message, the current open cell has automatically updated to the 
next executable instruction in the user's logic path. Use of the 
'GO' directive with a defaulted address will return processing in 
line. 
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4 . Operating Procedures 

4 . 1 Loading Procedures 

OS AIDS is a relocatable program in Loader format and can 
be loaded using the 'LOAD' directive in the operating system 
or via the OS Library Loader. 

4.2 Starting Location 

The starting location for OS/16 AIDS is the first instruction in 
the program. If OS'/16 AIDS were loaded at X'3000' the starting 
address would be X'3000'. 

Restarting OS/16 AIDS does not affect any of the established 
sentries or table entries. The restart address is also the 
first instruction. 

OS/16 AIDS has a transfer address for operating systems (DOS, BOSS) 
that utilize the 'START' command with a defaulted address. 

4.3 Program Size 

OS/16 AIDS occupies approximately 6.5KB of memory. When memory 
is critical, functions of OS AIDS may be overlaid. The directives 
that pertain to the overlaid functions should not be used. See 
Appendix 8 for OS AIDS Memory Map. 

When functions are overlaid, the End 'EN' directive should not 
be utilized to terminate OS AIDS. The overlaying of OS AIDS 
lists would cause erroneous instruction/sentry restoration. The 
sentries still intact, should be individually 'Zapped' and the 
Pause 'P' directive used to return to the operating system. 

4.4 Device Selection 

OS AIDS is initialized to use logical units 1, 3 and 5 as 
the command input, list and binary output devices (respectively) . 
Batch operation is provided by assigning the command input device 
to other than the operator's console keyboard. Additionally, 
the list device may be assigned to a disc, tape etc. and be 
printed at a later date through the facilities of OS COPY or 
the DOS copy directive. All cell/register examination and 
modification output is forced to the operator's console in an 
assumed interactive mode. 
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4.5 Error Conditions 

Format errors or illegal functions presented as directives are 
rejected with the message 'CMD-ERR' logged to the operator's 
console . OS AIDS returns to the command mode and awaits further 
communication. 

Device errors cause the message 'I/O - ERR: XXPU' to be 
logged to the operator's console (XX = status, PU = physical 
unit device address) . OS AIDS then enters the command mode in 
anticipation of operator correction. 

Illegal SVC 14 ' s (OS/16 AIDS Sentries) will be brought to the 
user's attention by logging the message 'ILL: NNNN' on the 
operator's console (NNNN = address of illegal SVC 14). OS AIDS 
returns to the command mode. 



APPENDIX 1 
OS/16 AIDS - SUMMARY OF DIRECTIVES 



ENVIRONMENT CONTROL 



INPUT 

\ LU J 



LU 



P (CR 

EN (C 

BI A (ADDR) (C 





BINARY^ ^~ 
LU J (CP>) 

/ Set logical units 



Pause 

END 

Set bias 



CELL/REGISTER EXAMINATION & MODIFICATION 



OH ^ (ADDR) 
OD A (ADDR) 
OC 4 (ADDR) 
OA A (ADDR) 
OB A (ADDR) 
OF & (ADDR) 
OR A (REG) 
N (CR) 

/JH <CR> 



flA ^CR) 
A B (CR) 



(CR) 
CR) 



OPEN CELL AS HEXADECIMAL 

OPEN CELL AS DECIMAL 

OPEN CELL AS CHARACTER 

OPEN CELL AS ASSEMBLY STATEMENT 

OPEN CELL AS BIASED ASSEMBLY STATEMENT 

OPEN CELL AS FLOATING POINT 

OPEN REGISTER (HEX FORMAT) 

NEXT LOGICAL CELL/REG (NO DISPLAY) 

OPEN NEXT CELL/REG (PREVIOUS FORMAT) 

OPEN NEXT CELL/REG AS HEX 

OPEN NEXT CELL/REG AS DECIMAL 

OPEN NEXT CELL/REG AS CHARACTER 

OPEN NEXT CELL/REG AS ASSEMBLY 

OPEN NEXT CELL/REG AS FLOATING POINT 

OPEN NEXT CELL/REG AS BIASED ASSEMBLY 
STATEMENT 



Al-1 



- ICR 



OPEN PRECEDING CELL (IN ESTABLISHED FORMAT) 



~ H (CR/ 0PEN PRECEDING CELL AS HEX 



~ D (CR^ 0PEN PRECEDING CELL AS DECIMAL 

~ C (3) 0PEN PRECEDING CELL AS CHARACTER 

~ A (3; OPEN PRECEDING CELL AS ASSEMBLY STATEMENT 

" B @ OPEN PRECEDING CELL AS BIASED ASSEMBLY 

"~* STATEMENT 

_F @ OPEN PRECEDING CELL AS FLOATING POINT 

0H @ RESHOW CELL/REG AS HEX 

00 (OR) RESHOW CELL/REG AS DECIMAL 

00 @> RESHOW CELL/REG AS CHARACTER 

0A @) RESHOW CELL AS ASSEMBLY STATEMENT 

0B (OP; RESHOW CELL AS BIASED ASSEMBLY STATEMENT 

0F @) RESHOW CELL/REG AS FLOATING POINT 

(§) RESHOW CELL/REG IN PREVIOUS FORMAT 

RH^HEX VALUE) (CR> REPLACE CELL/REG WITH HEX VALUE 

RD 4 (DEC VALUE) @ REPLACE CELL/REG WITH DECIMAL VALUE 
RC^CHAR STRING) (65) REPLACE CELL/REG WITH CHARACTER STRING 

RA a( ASSEMBLY 

STATEMENT) (CR) REPLACE CELL/REG WITH ASSEMBLED STATEMENT 

RB^ASSEMBLY 

STATEMENT) @ REPLACE CELL/REG WITH BIASED, ASSEMBLED 

STATEMENT 

RF 4 (FLOATING 

POINT NO.) (CR) REPLACE CELL/REG WITH FLOATING POINT NO. 

JH @ JUMP TO ADDRESS IN OPEN CELL/REG & OPEN AS HEX 

HD (CRJ JUMP TO ADDRESS IN OPEN CELL/REG & OPEN AS DECIMAL 

JC @ JUMP TO ADDRESS IN OPEN CELL/REG & OPEN AS CHARACTER 



.1-2 



JA (CR 



JB (CR) 



JF (CR 



J <CR> 
JR @) 



JUMP TO ADDRESS IN OPEN CELL/REG & OPEN AS ASSEMBLY 
STATEMENT 

JUMP TO ADDRESS IN OPEN CELL/REG & OPEN AS BIASED 
ASSEMBLY STATEMENT 

JUMP TO ADDRESS IN OPEN CELL/REG & OPEN AS FLOATING 
POINT 

JUMP TO ADDRESS IN OPEN CELL/REG & OPEN IN PREVIOUS MODE 
OPEN REGISTER SPECIFIED IN OPEN CELL/REG 



AH 4 (HEX VALUE) (§} 

AD 4 (DEC VALUE) (CR) 

AF A ( FLOATING 

POINT NO.) (cS) 

SH 4 (HEX VALUE) (£r) 

SD A (DEC VALUE) (a 



SF^ (FLOATING 

POINT NO. ) (CR 



ADD VALUE (HEX) TO OPEN CELL/REG 
ADD VALUE (DEC) TO OPEN CELL/REG 

ADD VALUE (FLOATING POINT) TO OPEN CELL/REG 
SUBTRACT VALUE (HEX) FROM OPEN CELL/REG 
SUBTRACT VALUE (DEC) FROM OPEN CELL/REG 



SUBTRACT VALUE (FLOATING POINT) FROM OPEN 
CELL/REG 
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PROGRAM UTILITIES 



^ 



@ 



DU (cr) 



DH^dow addr) , (high addr) 

DB^CLow addr) , (high addr) (cr) 

DA A (low addr) , (high addr) (£R) 

DC 4 (low addr) , (high addr) (CR) 



DL^(low addr) , (high addr) 

DD A (low addr) , (high addr) 

DF /3 (low addr) , (high addr) 

IX4 (ADDR) @> 

IT^dow addr) , (high addr) 

ISH 4 (low addr) , (high addr) 
(count) (CR) 

ISA A (low addr) , (high addr) 
(count) (6rN 

ISB^dow addr) , (high addr) 
(count) ^) 



ISC&(low addr) , (high addr), 
(count) (£R) 

ISL A (low addr) , (high addr) , 
(count) (St) 

ISD A (low addr) , (high addr) , 
(count) <£T 



ISFatlow addr) , (high addr) , 
(count) @> 

IP a (ADDR) 

IPR G (REG) 



DUMP UTILITY SENTINEL & PROTECTION 
LOCATIONS 

DUMP IN BINARY FORMAT (BINARY DEVICE) 

DUMP IN BIASED ASSEMBLY FORMAT 
(LIST DEVICE) 

DUMP IN ASSEMBLY FORMAT 
(LIST DEVICE) 

DUMP IN HEX WITH CHARACTER TRANS- 
LATION (LIST DEVICE) 

DUMP IN LOADER FORMAT (BINARY DEVICE) 

DUMP IN DECIMAL FORMAT (LIST DEVICE) 

DUMP IN FLT. PT. FORMAT (LIST DEVICE) 

INSERT BREAKPOINT 

INSERT TRACT 

INSERT SNAPSHOT - BINARY DUMP 

INSERT SNAPSHOT - ASSEMBLY DUMP 



INSERT SNAPSHOT - BIASED ASSEMBLY 
DUMP 



INSERT SNAPSHOT - HEX and CHAR DUMP 

INSERT SNAPSHOT - LOADER DUMP 

INSERT SNAPSHOT - DECIMAL DUMP 

INSERT SNAPSHOT - FLT. PT . DUMP 
INITIATE PROTECTION (CELL) 
INITIATE PROTECTION (REG) 
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ZX (CRJ 
ZX^(ADDR) <CR) 

zt (ciy 

ZT^ADDR) (cp) 
ZS (cjji 
ZSzi(ADDR) (CR) 

ZP (cr) 

ZPR d (REG) @) 

ZP fl (ADDR) (CR) 

GO a (ADDR) (cr) 
GO (CR) 



ZAP ALL BREAKPOINTS 

ZAP BREAKPOINT AT ADDR 

ZAP ALL TRACE 

ZAP TRACE AT ADDR 

ZAP ALL SNAPSHOTS 

ZAP SNAPSHOT AT ADDR 

ZAP ALL PROTECTION 

ZAP PROTECTION OF REG 

ZAP PROTECTION OF ADDR 

GO EXECUTE AT ADDR 

GO EXECUTE AT CURRENT OPEN CELL 



A1-5/A1-6 



APPENDIX 2 
ASSEMBLY FORMAT DUMP 



f>ono 


c fl i n o n p o 


LHI 


1 


.0020 


e 0'i 


0777 


XHR 


7 


.7 


500A 


U0705r c >A 


STH 


7 


»5C9A 


?ooa 


FllCSRHM- 


SVC 


1 


»5BD4 


5 F 


fii 5rpc 


SVC 


1 


.5R0C 


5012 


«*0 5»nE 


LH 





»5PDE 


C (H£ 


<+23'l50(=>A 


BTC 


3 


»506A 


501 A 


CP702020 


LHI 


7, 


2020 


501F 


407A5CAA 


STH 


7, 


5CAA 


50?? 


4070SCAC 


STH 


7, 


5CAC 


5 2* 


07AA 


XHR 


A, 


A 


5021 


P37A ir iCH0 


LB 


7< 


5CB0(A) 


f 0?C 


C570000D 


CLHI 


7< 


ooon 


5G30 


23?9 


RFFS 


3, 


Q 


50*2 


C5A00004- 


CLHI 


A, 


0004 


50^A 


2303 


BFFS 


e, 


3 


5 33 


D27fl5C\A 


STB 


7, 


5CAA( A) 


503C 


26M 


A IS 


A, 


1 


5P3F 


0571 


CLHR 


7, 


1 


50<40 


2 3C 


RTBS 


3, 


C 
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APPENDIX 3 
BIASED ASSEMBLY DUMP 



npnnR Cflionnpo lhi i«0020 

n004R 0777 XHR 7.7 

nOf)f,R 4P70nC9AR STH 7.0C9A 

OOOAR UllOOPDHK SVC 1.0BD4 

OOOFP L'llOORDCK SVC 1.0BDC 

(>ni?R 4Hi)iinnn£K lh o t oDDE 

POIf-R U230006AK BTC 3,006A 

001AR C670203U LHI 7t2020 

P01FR 40700CAAR STH 7.0CAA 

OP??R 4P7P0CACK STH 7»CCAC 

P0 26R 7Afl XHR A, A 

POPPt? 037AOCROK LB 7tOCRO(A) 

P02CR r57f)00nu CLHI 7.000D 

GO?ni< ?3?9 BFFS 3»9 • 

00 32R C5A()0nrm CLHI A. 0004 

003£R 23*5 RFFS fl,3 

0P3PR H27A0CAAR STB 7,0CAA(A) 

3CR ?^M A IS A.l 

003FR 0571 CLHR 7«1 

P04Pf! 20*C RTRS 3«C 
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APPENDIX 4 
DECIMAL FORMAT DUMP 



5000 


c a i o = 


51216 


0020 = 


00032 


0777 = 


01911 


4070 = 


16496 


*aop 


5C9A = 


23706 


fcllO = 


57616 


5RD4 = 


23508 


F110 = 


57616 


501 


5unc= 


23516 


4800 = 


18432 


5BDE= 


23518 


4230 = 


16944 


50 IP 


50fcA = 


2 586 


C870 = 


51312 


2020 = 


08224 


4070 = 


16496 


50?0 


5CAt> = 


23722 


4070 = 


16496 


5CAC = 


23724 


07AA= 


01962 


5 0?° 


r:37/\ = 


54138 


5CB0 = 


23728 


C570 = 


50544 


000D= 


00013 


5030 


23 49 = 


09017 


C5A0 = 


50592 


0004 = 


00004 


2383= 


09091 


•^O?' - 


n?7A = 


536«2 


5CAA = 


23722 


26A1 = 


09889 


0571 = 


01393 


^O'+O 


203C = 


03252 


4P70 = 


18544 


5CAA = 


23722 


4880 = 


18560 
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APPENDIX 5 
FLOATING POINT FORMAT DUMP 



^Cnp cainonjfO -.26A44E1 so OH 07774070 .10799E-68 

?008 5C9AE110 .31413E35 500C 5BD4E110 .26985E34 

*01 n SBDC4A00 .2792E34 5014 5BDE4230 .28174E34 

*01P 5PfeAC*70 .76945E2 501C 20204070 .37023E-39 

50?n 5CAAMP7U .34531E35 5024 5CAC07AA .34891F35 

^0?^ 037A5CHU -.3611HE2H 502C C570000D -458753 

C C^0 ?339C«iA0 ,27l£,4E-35 5034 00042383 q 
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APPENDIX 6 
HEXADECIMAL WITH CHARACTER TRANSLATION DUMP 



... .. a. \. ..[.,. * 
c.h.c.bop... a. * 
\.a.\...*.\....« * 

#9. •••#••« \«&*». * 

5040 ?03C 4'<70 5CAA 4fi80 5CAC 0799 4579 5B7A * <H ,\ .H. \ . . .E . C . * 



■?oon 


caj o 


002U 


0777 


1070 


5C9A 


El 10 


5BD4 


E110 


* 


c 010 


5HDC 


4P0 


5BDE 


4230 


506A 


C870 


2020 


4070 


* 


Bcpn 


r )CAA 


<»070 


5CAC 


07AA 


D37A 


5CH0 


C570 


000D 


* 


?o*n 


2339 


r s a o 


0004 


2303 


D27A 


5CAA 


26A1 


0571 


* 
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APPENDIX 7 
SENTRY POINT DUMP 



BRK: 


7000 


7AF0 


TRC: 


8100 




SNP: 


9 ADC 


A20F 


PRO: 


A41C 


A42E 


OS AIDS 







6884 6888 721C 



A504 
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OSAIDS 



DUMP 



UTIL 



TRACE 



SNAP 



PROTEK 



XLATEU 



MSDEND 



Appendix 8 
OS/16 AIDS Memory Map 



Directives : 

Open, Replace, Next, Preceding, 
Jump, Add, Subtract, LU, Bias, 
Pause, & GO 

Formats : 

Hexadecimal, Decimal, Character 

& Floating Point. 



DUMP DIRECTIVES 



BREAKPOINT DIRECTIVES 



TRACE DIRECTIVES 



SNAPSHOT DIRECTIVES 



PROTECTION DIRECTIVES 



ASSEMBLY DIRECTIVES 



Note: User should reference the OS/16 AIDS Assembly listing to 
correspond symbolic locations with relative addresses to calcu- 
late the amount of overlaying required and its resultant limitations, 
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os Ains - automatic interactive debugging system 03-053 cai.i 

* COPYRIGHT INTERDATA, INC. MAY, 1973 

* AUTHOR: J. PRATT 



oooor 

0001 
0002 
0003 
0004 

noos 

0006 
0007 
0008 
0009 
000A 
000(1 
0O0E 
000F 
0000 
0001 
000? 
000.5 
0004 
000b 
0006 
0007 

oooe 

0009 
00 A 
OOOH 
OOOC 
OOOD 
OOOE 
OOOF 



OOOOR 

0004R 

OOOflR 

OOOCR 

0010R 

00J.4R 

0018K 

001CR 

0020R 

0024R 
0026R 



H200 

001CR 

C800 

0100 

6100 

OOOOR 

D1E0 

00B6 

DOEO 

0A4AR 

C800 

1150K 

"♦000 

00B8 

C800 

0026R 

<4000 

00H6 

E10F 

4800 

0096 



LINK 

LINKS 

BIAS 

OPEN 

VALUE 

CliUER 

LF NGTH 

MODE 

OUTPUT 

INPUT 

NUMBER 

FROM 

TO 

RO 

Rl 

R2 

R3 

R4 

R'j 

Rfc 

R7 

Rfl 

R9 

RIO 

Rll 

R12 

R13 

R14 

R15 



OSAiDS 



OS 



0S1 



ENTRY 

LOU 

EQU 

tQU 

LOU 

EQU 

EOU 

LQU 

EOU 

LOU 

f OU 

LOU 

LQU 

EQU 

EQU 

EQU 

EOU 

LOU 

LOU 

EQU 

EQU 

LQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 



OSAIUS 

1 

2 

3 

4 

b 

f> 

7 

8 

9 

10 

13 

14 

15 



1 

2 

3 

4 

b 

6 

7 

6 

9 

10 

11 

12 

13 

14 

15 



SET UP VALUES AND OUTPUT NAME 
NOP OS ONE TIME SWITCH 



LHI R0.256 



AHM 


RO.OSaIDS 


LM 


FROMtX'BG* 


STM 


FROM.PSWSAV 


LHI 


R0»SVC14 


STH 


R0»X«B8» 


LHI 


RO.Osl 


STH 


R0.X«B6» 


DC 


X'ElDF' 


LH 


R0,X»96» 



OP COOE TOGGLE 

THROW SWITCH 

SVC POINTERS 

SAVE PsWS 

SVC 14 HANDLER ADDR 

STORE IN PSW FOR SVC 

SET SVC RETURN AOORESS 



SVC 13 

GET OLD STATUS / CC 



A ID00030 
AID00040 
AIO00050 
AIDOOOfeO 
AIU00070 
AID00080 
AID00090 
AID00100 
AI000110 
Ain00120 
A (1100130 
AIO00140 
AID00150 
AIU00160 
AID00170 
A11100160 

a run oi 90 

AIU00200 
AID00210 
AID00220 
AJU00230 
AIII00210 
AI000250 
A I 000260 
AJD00270 
A]UOO?fiO 
AID00290 
A T n 3 
AJU003J0 
AIO00320 
AJD00330 
AIO00340 
A1O00350 
AlljOOSfaO 
AIU00370 
AID00380 

AID00390 

AID00400 

AI000410 

AID00420 

AIO00430 

AIIJ00440 

AIO0O450 

AID00460 

AID00470 
AID00480 
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002AR 
002ER 
0032R 
00S6R 
003AR 
003ER 
0042R 
0046R 
00<fAR 

004ER 

0052R 

0056R 

005AR 

005ER 

0062R 
0064R 

0066R 
0068R 
OO^AR 
006CR 

0070R 

0074R 
00T6R 

007AR 
007CR 
007ER 

0082R 

0086R 
0088R 

008CR 
008ER 

0092R 
0094R 



C400 

7FFF 

4000 

OFCOR 

C400 

7E00 

4000 

00H2R 

4000 

0FB2R 

C200 

0042R 

0000 

0046R 

0100 

OAEOR 

E120 

0B20R 



4110 

07CAR 

DlOO 

OAEOR 

D300 

0A4ER 

C8C0 

0011 

040C 

0A06R 

2331 

27C1 

2214 

0306 

OACC 

481C 

0A1BR 

C310 

0001 

0331 

C8B0 

007CR 

07CC 

26C1 

U30C 

0A4DR 

C5C0 

0028 

0331 

C500 

OOOD 

0331 

C500 

0020 

023B 

CflBO 



NHI R0.X»7FFF« 

STH ROtCCSAVE 

NHI ROtX^TEOO' 

STH R0.0S2 

STH RoYEXIT 

LPSW 0S2 

0S2 DC OiLDREG 

LOREG LM RO.AIDSAV 

NAME SVC 2, TITLE 



IN 



CHK1 



CHK2 



CHK2A 



CHK3 



reset wait bit 

retain old cc / status 

remove protection 

prime psw location 

set psw for" interpreter exit 



LOAD UTILITY REGISTERS 
OUTPUT NAME 



GET 

bal 

LM 

LR 

LHI 

CLb 

BEs 
SIS 

BNMS 
BR 
AHR 
LH 



A PARAMETER / DIRECTIVE AND PROCESS 
LINK.ROIN READ INPUT 

ROtAIDSAV RESTORE REGISTERS 

RO .BUFFER CHECK CMD 

R12.CMCREN-CMDCHR FIRST CMD CHARACTER TABLE 

R0.C«OCHR(R12> CMD CHARACTER IN TABLE 7 



YES 

NO, CHECK ANOTHER ENTRY 



CHK2 

R12«1 

CHKl 

CMDER LAST ENTRY = ERROR 

R12,R12 CREATE INDEX FOR VECTOR TABLE 

LINK.CM0TBHR12) LOAD VECTOR ADDRESS 



THl LINK.l 



BZR 
LHI 

XHR 
AIS 
LB 



LINK 
R11,CHK3 



BREAK DOWN OPERANDS 7 

NO - BRANCH TO HANDLER ROUTINE 
SET EXIT 

RESET INDEX 



R12.R12 

R12*l 

R0.BUFFER-KR12) GET A CMD CHAR 



CLHI R12,BUFEND-BUFFER BLANK OPERAND 7 



CHK3A 



BER 
CLHI 

BER 
CLHI 

BNER 
LHI 



LINK 
RO.X»OOOD» 

LINK 

R , X • 2 • 

Rll 

Rll. PARSER 



YES - GO TO HANDLER 
CRLF 7 

YES - GO TO HANDLER 
SPACE 7 

NO 

YES - SET TO FIND VALID CHARS 



AID00490 

AID00500 

... AID00510 

AID00520 

AI000530 

AID00540 

AID00550 

AID00560 

AID00570 

•• AID00580 
AIO00590 
AI000600 

AID00610 

AID00620 

AlD00fc30 

AIO00640 

AlDOOfcSO 
AID00660 
AI()00f>70 
AID00680 
AID00690 
AI000700 

AlDOOViU 

AI00072C 
AID00730 

AID007'tO 
AJD00750 
AID00760 

AI000770 

AIU007B0 
AID00790 

AIDOOPOO 
AIDOOAIQ 

AID00820 
Airi00830 
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0098R 
009AR 
009CR 
009ER 

00A2R 
00A"»R 

00A8R 

OOACR 

OOBOR 

OOBUr 
OOBfcR 
OOBflR 
OOBAR 
OOBCr 

OOCOR 
00C2R 

00C6K 
00C8R 
OOCAR 
OOCCR 
OOcER 

00D2R 
OOD'*R 

00D8R 
OODAr 



OODER 

00E2R 
OOEHR 
00E6R 

OOEAR 

OOEER 
OOFOR 

00F«»R 

00F8R 
OOFAR 

OOFER 
0100R 



009AR 

220E 

07FF 

0777 

D30C 

OAHOR 

26C1 

C5C0 

0027 

<*380 

00C6R 

C8B0 

0008 

DfOB 

0A3AR 

2339 

27B1 

2214 

26F1 

020F 

0A78R 

2671 

•♦300 

009ER 

08EF 

0877 

2335 

0BE7 

D27E 

0A78R 

26F1 

C5C0 
0027 
0381 
•♦300 
009CR 



D3D0 

0A78R 

08DD 

0336 

C8E0 

0A79R 

C8F0 

080AR 

0700 

020F 

0001 

tl20 

0<+<*CK 

OAED 

D3DE 

0000 

08DO 

0336 



BS 
PARSER XHR 
XHR 

CHK4 LB 

AIS 
CLHI 

BNL 

LHI 

CHK5 CLB 

BES 

SIS 

BNMS 

AIS 

STB 

AIS 

B 

CH K 6 L.HR 
LHR 
B2S 
SHR 
ST B 

AIs 
CHK7 CLHI 

BNLR 
B 



LU 



CHK3 CONTINUE SCAN 

TOtTO OPERAND INDEX 

LENGTH, LENGTH RESET OPERAND LENGTH 
R0,BUFFER-1(R12) GET A CHARACTER 

R12.1 

R12.BUFEN0-BUFFER-1 CHECK FOR END OF BUFFER 

CHKb INSERT FINAL LENGTH ATTRIBUTE 

Rll.OELEND-DELIM SET OELIMITER TABLE EXTENTS 
R0»DELIM(R11) COMPARE TO DELIMITERS 

IF EQUAL - CHECK FOR END 



CHK6 

R11U 

CHK5 

T0.1 

ROtOPRANO(TO) 

LENGTH, 1 
CHK«* 

FROMtTO 

LENGTH, LENGTH 

CHK7 

FROM, LENGTH 



scan entire table 
bump operand pointer 
save character 

increment length 
continue 

get current pointer 
check for clear 

subtracg operand length 



LENGTH. OPRaND(FROM) STORE LENGTH ATTRIBUTE 

T0,1 BuMP OPERAND INDEX 

Rl2,BUFEND-BUFFER-l CHECK FOR END 



LINK 
CHK"*-2 



BRANCH TO HANDLER 
CONTINUE 



LOGICAL UNIT PRIMER 

LB NUMBER, OPRAND 

LHr NUMBER, NUMBER 

B2R CMDER 

LHI FROM.OPRAND+1 

LHI TO.CMDINP 

XHR RO,RO 

STB RO,1(TO) 

BAL LINKS, XLATHB 

AHR FROM, NUMBER 

lb number, o(FROM) 

LHR. NUMBER, NUMBER 

B2R CMDER 



OPERAND LENGTH 

IF ZERO - ERROR 

SET SENDER FIELO 

SET RECEIVER ADDRESS 

CLEAR REG 
CLEAR LU 

TRANSLATE TO BINARY 

BUMP OPERAND POINTED 
OPERAND LENGTH 

IF ZERO - ERROR 



AID00840 
AID00850 
AID00860 
AID00870 

AID00880 
AID00890 

AID00900 

AID00910 

AIO00920 

AID00930 
AID009H0 
AID00950 
AID00960 
AID00970 

AID00980 
AID00990 

AID01000 
AID01010 
A1D01020 
AIDO1O3O 
AID01040 

AID01050 
AID01060 

AID01070 
AlDOlOBO 

AID01090 
AID01100 
AID01110 

AID01120 
AI001130 
AID01140 

AI001150 

AIDOllfcO 
AID01170 

AID0H80 

AID01190 
AID01200 

AIOO121O 
AID01220 
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0102R 
0104R 

0J.08R 

010CR 

0110R 
0112R 

0116R 
011SR 
011AR 

niiER 

0122R 
0124R 

0128R 



012CR 

0130R 

0134R 
0136R 

013AR 
013CR 
013ER 

0H2R 
0146R 
014AR 
OlItR 
0152R 



26E1 

C8F0 

090CR 

D20F 

0001 

1120 

04HCR 

OAED 

030E 

0000 

08DD 

0336 

C8F0 

08BCR 

D20F 

0001 

26E1 

•♦120 

OHCR 

1300 

004AR 



D3B0 

0A4FR 

C5B0 

0019 

0236 

03DO 

0A78R 

08DD 

0336 

C8E0 

0A79R 

4000 

0A96R 

C8F0 

0A96R 

1120 

044CR 

4830 

0A96R 

4300 

004AR 



0156R D3B0 

0A4FR 
015AR C5B0 

00«tE 
015ER 0236 
0160R 01EO 

0A4AR 
0164R DOEO 

00B6 
0168R C800 



BYAS 



* 
TERM 



AIS 
LHI 


FR0M,1 
TO.LSTBLK 


BUMP TO SENDER FIELD 
SET RECEIVER ADDRESS 


STB 


ROtl(TO) 


CLEAR LU 


BAL 


LINKS, XLATHB 


TRANSLATE TO BINARY 


AHR 
LB 


FROM, NUMBER 
NUMBER, (FROM) 


BUMP OPERAND POINTER 
OPERAND LENGTH 


LHR 

BZR 
LHI 


NUMBER, NUMBER 

CuDER 

TO.BINBLK 


IF ZERO - ERROR 

SET RECEIVER ADDRESS 


STB 


RO, KTO) 


CLEAR LU 


AIS 
BAL 


FR0M,1 

Links, xlathb 


BUMP TO SENDER FIELD 
TRANSLATE TO BINARY 



NAME 



OUTPUT NAME AND GET ANOTHER DIRECTIVE 



BIAS <BI> HANDLER 

LB Ril,BUFFER+l 

CLHI RH,C*I» 

BNER CmDER 

LB NUMBER, OPRAND 

LHR NUMBER, NUMBER 

BZR CMDER 

lhi fr0m,0pran0+1 

sth number, opsave 

lhi to, opsave 

bal links, xlathb 

lh bias, ops ave 

b name 



SECOND CHARACTER 

CHECK FOR •!• 

NO - ERROR 
OPERAND LENGTH 

CHECK FOR VALUE 
BLANK - ERROR 
SENDER ADDRESS 

CLEAR WORK AREA 

RECEIVER ADDRESS 

TRANSLATE HEX ASCII TO BINARY 

SET BIAS REGISTER 

ISSUE NAME X READ DIRECTIVE 



END <EN) HANDLER 

LB Rll,BUFFER+l 

CLHI Rll.C'N* 

BNER CMDER 

LM FROM,PSWSAV 

STM FROM »X» 1*6' 

LHI R0,-256 



SECOND CHARACTER 

CHARACTER 'N' ? 

NO - tRROR 
RESTORE PSWS 

OP CODE UN TOGGLE 



AIO01230 
AID01240 

AIU01250 

AI001260 

AIO01270 
AID01280 

/\IU012Sf0 
AID01300 
AID01310 

AIO01320 

AIO01330 
AI001340 

AIO01350 

■* AIO°1360 
AID01370 
AID01380 

AI001390 

AIO01400 
AI001410 

AI001420 
AID01430 
AID01440 

AIO01450 

AID01460 

AIO01U/U 

AI001480 

AID01490 

.* AID01500 
A1D01510 
AID01520 

AID01530 

AID01?)40 
AID01?)50 

A TOO 1560 

AIU01^70 
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I'AOf 



FFOO 
016CR 6100 

OOOOh 
0170R 070D 
0172R 4120 

12281' 
0176K 1120 

145CR 
017AK 4120 

1506R 
017tR 1120 

1352K 
0182R E130 

0000 



0186R 

018AR 

018ER 
0190R 

0l9"*R 

0198R 
019AR 

OjgER 

01A2R 

01A6R 

01AAR 

OIAEr 

01H2R 

01H6R 
01B8R 
01BAR 
OiBCR 

01C0R 

01C4R 
01C6R 

OlcAR 

01CER 

01D2R 



D3D0 
0A78R 
CflEO 
0A79I? 

oann 

4330 

01C6D 

40DO 

0A96U 

2472 

C8F0 

0A96P 

4120 

044CR 

1840 

0A96R 

D3D0 

0A78R 

C8E0 

0A79R 

D3DE 

0000 

C8F0 

0220R 

2&E1 

oeoo 

2336 
1+120 

04B2R 

48D0 

0220R 

27D1 

40D0 

0220R 

4040 

0A96R 

D300 

0A4FR 

C500 

0052 



* 
01' IN 



OPl 
0P1A 



AHM ROtOS/VlOS 

XHR NUMBER, NUMBER 

UAL LINKS. ZAPBRK 

BAL LINKS, ZAPSNP 

BAL LINKS, ZAPPRO 

BAL LINKS, ZAPTRC 

SVC 3,0 



RESET SWITCH 

SET ALL INDICATOR 
ZAP BREAKPOINTS 

ZAP SNAPSHOT POINTS 

ZAP PROTECTION 

ZAP TRACE POINTS 

EOJ 



OPEN (0) HANOLER 
LB NUMBER, OPRAND 

LHI FROM.OPRAND+1 



LH 

SIS 
STH 

sTh 

LB 
CLHI 



GET OPERAND LENGTH 
ADDR OF OPERAND 



lHr 


NUMBER, NUMBER 


IF ZERO - RESHOW Cf LL / REG 


HZ 


OPl 


YES 


STh 


NUMBER, OPSAVE 


CLEAR WORK AREA 


LIS 


LENGTH, 2 


SET CELL SIZE 


LHI 


TO, OPSAVE 


ADDR FOR RESULTS 


BAL 


LINKS, XLATHB 


TRANSLATE TO BINARY 


LH 


OPEN. OPSAVE 


LOAD CURRENT CELL / REG 


LB 


NUMBER, OPRAND 


OPERAND LENGTH 


LHI 


FROM, OPRAND+1 (NUMBER ) 


LB 


NUMBER, O(FROM) 


OPERAND LENGTH 


LHI 


TO.OPCONT 


COUNTER ADDRESS 


AIS 


FROM.l 


BUMP SENDER ADDRESS 


LHR 


number, number 


BYPASS 7 


BZS 


OPl 




BAL 


LINKS, XLATDB 


TRANSLATE TO HEX 



NUMBER, OPCONT GET VALUE 



NUMBER, 1 
NUMBER. OPCONT 

OPEN, OPSAVE 

RO.BUFFER+1 

R0,C»R» 



ZERO RELATIVE 

STORE IN OPEN COUNTER 

STORE OPEN CELL ADDR 

SECONDARY MODIFIER 

REGISTER 7 



AIO01580 

AID01590 
AID01600 

AID01610 

AID01620 
A1D01630 
AID01640 

-* AI()01650 
A1O01660 
AID01670 

AID0lfc80 

AH101690 
A1P01700 

AID01710 

AIU01720 
AIU01730 

AIDO174O 

AID01750 

AID01760 

AIU01770 

AI001760 

A I DO 1790 

AIU01800 
AID01810 
AID01820 
AID01830 

A1D01840 

AID01850 
AID01860 

AID01870 

AIU01880 

AI001890 
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01D6R 
01D8R 
01OAR 

01DER 

01E2R 
01E4R 
01E6R 
01E8R 

01ECR 
OlEER 

01F2R 
01F4R 

01F8R 
OlFAR 
OlFCR 
01FER 
0200R 

0204R 
0206R 

020AR 

020ER 
0210R 

0214R 
0216R 
0218R 

021CR 

0220R 



2139 

0A44 

CA40 

0A98R 

C540 

0AB8R 

0386 

0B43 

230B 

C500 

0020 

2337 

C500 

0000 

2334 

C500 

OOOD 

2132 

0808 

08E3 

0AE4 

C4E0 

FFFE 

24D2 

C8F0 

0844R 

4120 

097AR 

0129 

teoo 

0220R 

033A 

2701 

40D0 

0220R 

4300 

0284R 

0000 



BNES 0P2 

AHR OPEN, OPEN 

AHI OPEN.REGSAV 



NO 

INDEX = 2 

INDEX REGISTER SAVE AREA 



0222R 0A47 
0224R 030A 



0226R 

022AR 

022ER 
0230R 

234R 
0236R 

023AR 



D3B0 

0A4FR 

C5B0 

00<t6 

2338 

C5B0 

0043 

2335 

C810 

0264R 

4300 

0076R 



0P2 



0P3 
0P4 



OPCQNT 



CLHI 0PEN,REGSAV*32 REGISTER LIMIT CHECK 



BNLR CMDER 

SHR OPEN, BIAS 

BS 0P4 

CLHI R0,X«20« 

BES OP 3 

CLHI Ro,0 

BES 0P3 

CLHI RO,X«OD« 

BNES 0P4 

LHR RO.HODE 

LHR FROM, BIAS 

AHR FROM, OPEN 

NHI FROM,X»FFFE» 



LIS 

LHI 



NUMBER, 2 
T0,0UTBUF+2 



BAL LINKS, TaBa 

KALr LINKS, OUTPUT 

LH NUMBER, OPCONT 

BZR INPUT 

sis number«1 

sth number, opcont 

B NEXT 

DC 



LESS s OK . 

SET SAVE AREA AS OPEN CELL 

SECOND OPTION = DEFftULT 7 

YES 

CHECK FOR DEFAULT 



CR = DEFAULT ALSO 



USE PREVIOUS MODE 

ADO BIAS - IF ANY 

SET CELL AS ADDR OF OPERAND 

EVEN BOUNDARY 

SET COUNT FOR TRANSLATION 
SET OUTPUT 

LOOK UP OPERATION A PERFORM 

PRINT RESULTS 
CHECK COUNTER 

SKIP MULTIPLE OPEN 
DECREMENT COUNTER 



OPEN NEXT LOGICAL CELL 



* NEXT (N) HANDLER 

NEKST AHR OPEN, LENGTH 
BR INPUT 



BUMP OPEN CELL 

GET ANOTHER COMMAND 



* REPLACE <R> HANDLER 
RPLACE LB R11,BUFFER+1 

CLHI R11,C»F» 

BES RPl 
CLHI R11,C»C« 



HES 
LHI 



RPl 
LINK.RP4 

CHK2A 



GET SECOND CHARACTER MODIFIER 

CHECK FOR FLOATING POINT 

YES - DO NOT PARSE 
CHARACTER FORMAT 

YES 

SET RETURN AOORESS 

PROCESS INPUT LINE 



AID01900 
AID01910 
AID01920 

AID01930 

AID01940 
AID01950 
AID01960 
AID01970 

AIU01980 
AI001990 

AID02000 
AID02010 

AID02020 
AID02030 
AID02040 
AID02050 
AID02060 

AID02070 
AID02080 

AIO02090 

AID02100 
AID02110 

AIP02120 
AI002130 
AID02140 

AID02150 

Al002lbU 
AID02170 
AID02180 
AID02190 
AID02200 
AID02210 
AIU02220 
AID02230 

AID02240 

AID022S0 
AID02260 

muo??70 

AID022O0 
AID02290 
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CAOF. 



023ER 

0242R 
0244R 

0248R 
024AR 
024CR 
024ER 
0250R 

0254R 
0256R 
0258R 

025CR 
025CR 

0262R 
0264R 

0268R 

026CR 
026ER 
0270R 
0272R 

0276R 
0276R 
027AR 

027ER 

0282R 



C870 

0A75R 

07CC 

D4C7 

0000 

2133 

2771 

2204 

24cn 

45C7 

0000 

2132 

2771 

CB70 

0A51R 

08D7 

C8E0 

0A51U 

230A 

D3D0 

0A78R 

C8E0 

0A79R 

2472 

0654 

0A53 

40D5 

0000 

08F4 

0AF3 

D300 

0A4FR 

tl20 

0974R 
030A 



0284R 0A47 
0286R 4300 
01CAR 



028AR 2742 
028CR 4300 
01CAR 



0290R 4844 

0000 

0294R D300 

OA4FR 
0298R C500 

0052 
029CR 2332 
029ER 0B43 
02A0R 4300 



RP1 



RP2 



RP3 



RP3A 



RP4 



RP5 



#---■ 

* 

JUMP 



LHI LENGTH, BUFEND-1 BUFFER END ADDRESS 



BUFFER FILL CHARACTER 
CHECK FOR LAST CHARACTER 

HIT VALID CHARACTER 
DECREMENT POINTER 
CONTINUE SCAN 
CARRIAGE RETURN 
CHECK LAST CHARACTER 



XHR 


R12,R12 


CLB 


R12,0<LENGTH) 


BNES 


RP3 


SIS 


LENGTH, 1 


BS 


RP2 


LIS 


R12.13 


CLH 


R12,0(LENGTH) 



BNES RP3A 
SIS LENGTH,! 



NO - SKIP 
DECREMENT LENGTH 



SHI LENGTH, BUFFER+3 GET TRUE LENGTH 



LHR NUMBER, LENGTH 

LHI FROM, BUFFER+3 

BS RP5 

LB NUMBER, OPRAND 



START ADDRLSS 

PROCESS CHARACTERS 
OPERAND SIZE 



LHI FROM,0PRAND+l SET SENDER FIELD 



LIS 
LHR 
AHR 

STH 

LHR 
AHR 
LB 

BAL 

BR 



LENGTH, 2 
VALUE, OPEN 
VALUE, BIAS 



SET OPERATION LENGTH 
GET OPEN CELL ADDRESS 
ADD BIAS 



NUMBER, 0<VaLUE) CLEAR CONTENTS 

TO, OPEN SET RECEIVER FIELD 

to«bias calculate absolute address 

r0,buffer+1 set second character 

links, tabb translate * process 

input read input 



* open next ( ) handler 

next ahr open, length bump open cell/register 
b op1a perform operation 

* open preceding <-) handler 

preced sis open, 2 decrement open cell by a halfword 
b op1a perform operation 



JUMP (J) TO OPEN CELL / REGISTER 



LH 0PEN,0(0PEN) 
LB RO.BUFFER+1 
CLHI R0,X'0052« 



GET CONTENTS OF OPEN CELL/REG 
GET SECONDARY DIRECTIVE 
REGISTER 7 



Jl 



8ES 


Jl 


YES - NO BIAS 


SHR 


OPEN, BIAS 


UNBIAS ADDRESS 


B 


OP1A 


PERFORM OPERATION 



AID02300 

AID02310 
AID02320 

AIO02330 
AID02340 
AID02350 
AID02360 
AID02370 

AID02380 
AID02390 
AID02400 

AIIJ02410 
AID02420 

AID02430 
AID02440 

AID02450 

AID02460 
AID02470 
AID02480 
AID02490 

AID02500 
AID02510 
AID02520 

AID02530 

AID02540 
-* AID02550 
AID02560 
AID02570 
AID02580 

■ * AID02590 
AID02600 
AID02610 
AID02620 

-♦ AID02630 
AID02640 
A 1 002650 

AI002660 

AIDD2670 

AID02680 
AID02690 
AID02700 



OS AIDS 
01CAR 
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02A4R 

02A8R 
02AAR 
02ACR 

02B0R 

02B1R 

02B8R 

02BCR 
02BER 
02C0R 

02C4R 

02C8R 

02CCR 

02D0R 

02D«fR 

02D6R 
02DAR 

02DER 

02E2R 

02E6R 
02E8R 

02ECR 

02F0R 
02F2R 

02F6R 

02FAR 

02FER 

0302R 

0306R 
0308R 

030CR 



D3D0 

0A78R 

08DD 

0336 

C8E0 

0A79R 

C8F0 

0AB8R 

i+ODF 

0000 
0300 

0A4FR 

0854 

0A53 

C8C0 

0053 

C500 

00H6 

4330 

02F2R 

4120 

0974R 

C8C0 

0053 

D4C0 

0A4ER 

2138 

48C5 

0000 

4BC0 

0AB8R 

t0C5 

0000 

030A 

4800 

0AB8R 

6X05 

0000 

030A 

6000 

OABCR 

6805 

0000 

C8F0 

0AB8R 

4120 

0672R 

D4C0 

0A4ER 

2138 

6B00 

UAB8R 

0855 



------ 

* 
ARITH 



arithmetic handler 

lb number»oprano 

lhr number, number 

bzr cmder 

lhi from, opr and* 1 

lhi to.dblwk 

sth number, (to) 

lb r0,buffer+1 

lhr value, open 

ahr value, bias 

LHI R12»C»S« 

CLHI R0«X»46» 

BE FLOT 

BAL LINKS, TABS 

LHI R12»C»S» 

CLB R12, BUFFER 

BNES ADO 

LH R12,0<VALUE) 

SH R12,DBLWK 

STH R12,0(VALUE) 

BR INPUT 

LH ROtDBLWK 

AHM R0,0(VALuE) 

BR INPUT 

STE RO.DBLSAV 

LE R0,0(VALUE) 

LHI TO.DBLWK 

BAL LINKS, XLATEL 

CLB R12, BUFFER 



BNES AOFLOT 
SBFLOT SE RCDBLWK 

LHR VALUE, VALUE 



ADO 



FLOT 



GET OPERAND SIZE 

CHECK FOR MISSING OPERAND 
YES - ERROR 
GET SENDER ADDR 

GET RECEIVER ADDR 

CLEAR RECEIVER 

SET SECOND CHARACTER 

GET OPEN CELL/REG ADORESS 
S s SUBTRACT 

FLOATING POINT ? 

FLOATING POINT OPERATION 

TRANSLATE OPERANO 

SUBTRACT CONSTANT 

ADD OR SUBTRACT 7 

ADD 

LOAD CONTENTS 

SUBTRACT VALUE 

RESTORE REMAINDER 

NO - LOAD VALUE 
ADD VALUE 

SAVE FLT.PT. REG 

LOAD INTO REG ZERO 

SET RECEIVER ADDRESS 

TRANSLATE TO FLOATING POINT 

ADD OR SUBTRACT 7 

ADD 

SUBTRACT VALUE 

CHECK ADDRESS 



■♦ AID02710 
AI002720 
AID02730 

AI002740 
AID02750 
AID02760 

AIO02770 

AID02780 

AID02790 

AID02800 
AID02810 
AID02820 

AID02830 

AIU02840 

AID02850 

AID02860 

A1O02870 

AIU02880 
AID02890 

AID02900 

AID02910 

AID02920 
AID02<»30 

AIO0P94C 

AID02950 
AID029G0 

AID02970 

AID02980 

AID02990 

AID03000 

AID0301C 
AID03020 

AIU03030 
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030ER 033A 
0310R 6005 

0000 
0314H 030A 
0316R 6A00 

0AB8R 
031AR 0855 
031CR 033A 
031ER 6005 

0000 
0322R 030A 



0324R 

0328R 

032CR 
032ER 

0332R 
0334R 
0336R 
0338R 
033AR 

033ER 
0310R 

0344R 

0348R 

034CR 

0350R 

0354R 

0358U 

035CR 

0360R 

0364R 

0368R 

036CR 

0370R 

0374R 
0376R 



C800 

004F 

D400 

0A4FR 

0236 

D3D0 

0A78R 

OBDD 

2136 

0804 

0A03 

4-000 

040AR 

2309 

C8E0 

0A79R 

C8F0 

040AR 

40D0 

040AR 

4120 

044CR 

4800 

0A94R 

4230 

1308R 

•♦800 

0A48R 

4330 

03F8R 

48C0 

040AR 

1840 

040AR 

4040 

040CR 

4120 

0DF6R 

4040 

040AH 

240F 

48B0 

HOAR 



BZR 
STE 

HR 
AOFLOT AE 

LHR 
BZR 
STE 

BR 



GO 



Gl 



GIB 



GlA 



INPUT 
RO.O(VALUE) 

INPUT 
RO.DBLWK 

VALUE, VALUE 

INPUT 

RO«0<VA|_UE> 

INPUT 



NO RESTORATION REQUlHTt) 
STORE BACK IN MEMORY 

RETURN 
ADD VALUE 

CHECK ADDRESS 
NO RESTORATION 
STORE BACK IN MEMORY 

RETURN 



GO (GO) HANDLER 

LHI R0«C»O» 

CLB RO.BUFFER+l 

BNER CMDER 

LB NUMBER, OPRAND 

LHR NUMBERtNUMBER 

HN2S Gl 

LHR Ro,OPEN 

AHR Ro.BIAS 

STH R0.G3 

BS GIB 

LHI FR0M,0PRAND+1 



LHI 
STH 
BAL 
LH 

BN2 
LH 
BZ 
LH 
LH 
STH 
BAL 
PROCHK STH 



T0,G3 

NUMBER »G3 

LINKS, XLATHB 

RO.TRCFLG 

SVCE03 

RO.PROFLG 

G10 

R12,G3 

0PEN.G3 

0PEN.G12 

LINKS, EX 

0PEN.G3 



G1C 



LIS R0,15 

LH RH,PR0REG-2 



CHARACTER »0» 

CHECK SECOND DIRECTIVE 

NOT EQUAL = ERROR 
OPERAND LENGTH 

DEFAULT ? 

NO 

YES - USE OPEN CELL 

SET RETURN ADORESS 

CHECK PTOTtCTION 
SET FROM ADDR 

SET TO ADDR 

CLEAR WORK ARE.A 

TRANSLATE ADDRESS 

TRACE MODE STE ? 

YES 

PROTECT MODE SET ? 

NO PRTECTTION - EXIT TO USER 

GET Ex ADDR 

SET OPEN CELL 

SAVE OLD OPEN CELL 

YES - EXECUTE AN INSTRUCTION 

SET ADORESS 

BIT COUNTER 
POSITIONAL REG COUNTER 



AID03040 
AID03050 

AID03060 
AID03070 

AID03080 
AID03090 
AID03100 

AID03110 

-* AIO03120 

AID03130 

AID03140 

AID03150 

AI003160 
AID03170 

AICJ03180 
AID03190 
AIU03200 
AID03210 
AID03220 

AI003230 
AID03240 

AID03250 

AID03260 

AID03270 

AID03260 

AID03281 

AID03282 

AID03290 

AID03300 

AID03310 

AID03320 

AID03330 

AID03340 

AIO033S0 
AI003360 



OS AIDS 



037AR 

037ER 
0360R 
0382R 
0381R 
0386R 
0388R 

038CR 

0390R 
0392R 
039UR 
0396R 
0398R 

039CR 
039ER 
03A0R 
03A2R 

03A6R 

03AAR 

03AER 

03B2R 

03B6R 
03B8R 

03bC« 

03C0R 
03C2R 
03C«*R 
03C6R 

OSCAR 

03CER 

03D2R 

03D6R 

030AR 
03DCR 

03E0R 

03E«fR 

03E8R 



«t330 

03AAR 

07CC 

90B1 

2388 

08EC 

OAEE 

«f8FE 

0A98R 

45FE 

110CR 

2139 

26C1 

2701 

221B 

"+BB0 

0A46R 

2337 

07CC 

220E 

•♦OFE 

110CR 
<*300 

0302R 

C8B0 

0020 

H8EB 

112AR 

C5E0 

FFFF 

2336 

H80E 

0000 

450b 

112CR 

2135 

27B4 

203B 

4300 

0350R 
400B 

112CR 

tBCB 

112AR 

D1E0 

0A90R 

DOEO 

08HHR 

2«*D2 

C8E0 

040CR 

C8F0 

08«tAR 

•+120 

0<*OER 

fOCO 
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BZ G7 SKIP NO REGS PROTECTED 



G5 
G5B 



G6 



G6A 



G7 



Gfl 

&fcB 
G8A 

G9 



ZER0-I2E REG 12 
CHECK A BIT (REG) 



XHR R12,R12 

SRLS Rll,l 

BNCS G6 

LHR FR0M.R12 SAVE BIT NUMBER 

AHR FROM.FROM INDEX OF REG 

LH TO.SAVREG(FROM) PROTECTED REG CONTENTS 

CLH TO,PROREG(FROM) COMPARE TO PROTECTED REG 



BNES G6A 

AIS R12,l 

SIS R0,1 

BNMS Gb 

LH Rll.PRORO 



REG VALUE CHANGED 
INCREMENT INOEX 
DECREMENT COUNTER 
CONTINUE CHECKING 
CHECK REG ZERO 



BZS 
XHR 
BS 
STH 

H 

LHI 

LH 

CLHI 

BES 
LH 



SKIP 

CLEAR REG NO. 



G7 
R12,R12 

G5B 

TO.PROREG(FRbM) SWITCH REG VALUES 



G9 ISSUE MESSAGE 

Rll.PROCLN-PROCEL LIST LENGTH FOR INDEXING 
FROM,PROCEL-MRll> PICK UP ADDRESS 
FROM,-l DELETED 7 



G8 
RO.O(FROM) 



YES IGNORE 

GET CELL CONTENTS 



CLH R0,PROCEL-2<Rll) COMPARE TO PROTECTED CELL 



BNES G6B 
SIS Rll,«f 
BNZS G7*«* 



B 

ST H 

LH 

LM 

STh 

LIS 
LHI 

LHI 

BAL 

STH 



GIB 



NOT EOuAL = PROTECTION VIOLATION 
OECREMENT INDEX 
CONTINUE CHECKING 
CONTINUE EXECUTING 



RO.PROCEL-2(R1D SWITCH CONTENTS 
Rl2,PROCEL-«HRU) VIOLATED CELL 

FROM. PR DM SG 

FR0M»0UTBUF+2 SET UP PROTECT MESSAGE 



NUMBER, 2 
FR0M,Gl2 

T0,0UTBUF+8 

LINKS, XLATEH 

R12.G12 



SET BYTE COUNT 
ADDRESS OF SENDER 



TRANSLATE ADDRESS OF PROT VIOLATOR 
SAVE VIOLATED CELL/REG 



AID03370 

AID03380 
AID03390 
AID03U00 
AID03tl0 
AID03H20 
AID03430 

AID03440 

AlO03<*50 
AID03<*60 
AKJ03170 
AID03U80 
Ain03H90 

AID03500 
AID03510 
AID03520 
AID03521 

AID03522 

AID03530 

AIDfl35tO 

AIfi03550 

AI003560 
AID03570 

AlO03 t )8O 

AI003590 
AID03600 
AIt)03fclO 
AID03620 

AiO03ft21 

AID03630 

AIO03640 

AID03650 

AID03660 
AID0 3670 

Aino3&au 

AID03690 
A1U03700 
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3ECR 
03EER 

03F2R 
03F1R 

03F8R 

03FCK 

OtOOR 

OtOtR 

Ot08R 
0<»0AR 
040CR 

OtOER 
0112R 
0*U6R 
0<UAR 

o<*icr 

0«*1ER 
Ot20R 

0<*2«tR 

0«f2flR 
0<*2AR 
0«»2CR 
0<t2ER 
0«»30R 
0H32R 
0H3tR 

0138R 

013CR 
0H3ER 
0440R 
im2R 

0<*«*6R 

044AR 



OHOCR 

26F6 

<+120 

0«fOER 

0129 

•♦300 

OOtAR 

**800 

OFCOR 

<*O00 

0408N 

0100 

0A98R 

C200 

0408R 

0000 

0000 

0000 



1)090 

OBOOR 

C890 

003A 

D3AE 

0000 

24BF 

0"+BA 

9oA«f 

CAAO 

0030 

CABO 

0030 
05A9 

218? 

26A7 

05B9 

2182 

26B7 

D2AF 

0000 

D2BF 

0001 

26F2 

26E1 

27D1 

1230 

Otl6R 

D190 

OBOOR 

0302 



OttCR DOAO 

OBOOR 
OtSOR OAEO 



GlO 



G4 



Gil 

Gi 
612 



AIS TO, 6 

BAL LINKS. XLATEH 

BALR LINKS. OUTPUT 

B NAME 

LH R0.CCSAVE 

STH R0.G11 

LM RO.SAVREG 

LPSW Gil 



SET RECEIVER ADDRF SS 
TRANSLATE TO ASCII 



CC/STATUS 

SET CONDITION CODE / STATUS 

RESTORE USER REGS 



DC 
DC 
DC 



* TRANSLATE - BINARY TO ASCII HEX 
XLATEH STM R9.SAVE 



XHl 



LHI 
LB 



K9,X«3A» 
Rl 0.0 (FROM) 



XH2 



XH3 



LIS R11.15 

NHR R11.R10 

SRLS R10,<* 

AHI RlO.Xt30» 

AH1 R11.X»30» 

CLHR R10.R9 

RLS XH2 

AIS RIO, 7 

CLHR Rll,R9 

BLS XH3 



AIS 
STB 



Kll,7 
RlO.O(TO) 



STB Rll.KTO) 



AIS 
AIS 
SIS 

BNZ 

LM 
BR 



TO. 2 
FROM.l 
NUMBER, 1 
XHl 

R9.SAVE 

LINKS 



GET A BYTE 

MASK 
SPLIT BYTE 

ASCII-IZE 



GREATER ThAn 9 ? 

NO 

YES - ADJUST ASCII VALUE 

SECOND CHAR GREATER THAN 9 

NO 

YES - ADJUST ASCII VALUE 

STORE CHARACTERS 



BUMP INDEX 

DECREMENT COUNT 
CONTINUE 

RETURN 



* TRANSLATE - HEX ASCII TO INTERNAL 
XLATHB STM RiO.SAVE SaVE REGISTERS 



AHR FROM, NUMBER 



POINT TO LAST CHARACTER 



AID03710 
AID03720 

AID03730 
AID037H0 

AID03770 

AID03780 

AI003790 

AID03800 

AID03810 
AID03820 
AID03B30 
AID03840 

AID03850 
AIO03860 

AID03870 

AID03880 

AID03890 
AI003895 
AID03900 
AID03910 

AID03920 

AIIJ03930 
AID03940 
AID03950 
AID03960 
AID03970 
AIU03980 
AID03990 

AIDOi+000 

AID0<*010 
AID04020 
AID04030 
AIDOHOfO 

AID04050 

AID0t060 
Ain0it070 
AID0«f080 
AID04090 

AiDomoo 
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0<*52R 

0H56R 
0H58R 
0"*5AR 

0H5ER 

0H62R 
0t6tR 
0<*66R 
0H68R 

0H6CR 

0H70R 
0172R 

0476R 
0H78R 
017AR 
0t7CR 
047ER 

0<+82R 

0"+86R 
0<*88R 

0«*8cR 
0H8ER 
0t90R 

0«»9«tR 

0H98R 

0<*9CR 

0HA0R 
0HA2R 

0HA6R 
0HA8R 

OHACR 

OtBOR 



C5D0 

0005 

0386 

2tA2 

03BE 

FFFF 

C5B0 

003A 

2182 

26B9 

2701 

4210 

OHACR 

CBBO 

0030 

0216 

C5B0 

0020 

386 

27 A 1 

213D 

9lB«t 

D3CF 

0001 

c»co 

000F 
06CB 
D2CF 

0001 

27F1 

27E1 

1300 

0158R 

CtBO 

OOOF 

D3CF 

0001 

C«*CO 

OOFO 

06BC 

D2BF 

0001 

27E1 

<»300 

045AR 

D1A0 

OBOOR 

0302 



XHBl 
XHB2 

XHB2A 



XHB3 



XHBH 



XHB5 



CLHI NUMBER. 5 

BNLR CMDER 

LIS RIO, 2 

LB RU,-1(FR0M) 

CLHI R11,X'3A« 



BLS 
AIS 
SIS 

BM 


XhB3 
R11.9 
NUMBER, 1 
XHB5 


SHI 


Rll.C'O' 


BMR 
CLHI 


CMDER 
R11.X«20» 


BNLR 

SIS 

BN2S 

SLLS 

LB 


CMDER 
RlOtl 
XHBH 

Rll.H 
R12.KT0) 


NHI 


R12.X»0F» 


OHR 
STB 


Rl2,Rll 
R12.KT0) 


SIS 
SIS 

8 


TO.l 

FROM.l 

XHBl 


NHI 


Rll.X'OF' 


LB 


R12.KT0) 


NHI 


R12.X»F0' 


OHR 
STB 


R11.R12 
Rli.l(TO) 


SIS 

B 


FROH.l 
XHB2 


LM 


RIO, SAVE 


BR 


LINKS 



RANG CHECK 

ERROR 

GET ASCII CHARACTER 



* INTERNALIZE LSO 

* 

DECREMENT COUNT 

DONE 

LIMIT CHECK 
HIGH LIMIT 

DECREMENT SWITCH 

FORM MSD 
GET BYTE 

CLEAR HALFBYTE 

COMBINE VALUES 
SAVE BYTE 

DECREMENT RECEIVER 
DECREMENT SENDER 
CONTINUE 

FORM LSD 



STORE IN RECEIVu 4 * FIELD 

RESTORE REGS 
RETURN 



0HB2R UOAO 
OBOOR 

04B6R C5D0 
0006 

OHBAR 2389 

OHBCR 07BB 



♦ --- ------------------------------- 

* TRANSLATE - DECIMAL ASCII TO BINARY 
XLATDB STM RIO, SAVE SAVE REGS 



CLHI NUMBER. 6 

BNLS XB2 
XHR Rll.Rll 



5 DIGITS = MAXIMUM 
CLEAR MULTIPLICAND 



AIDOmiO 

AJl)0m20 
AID0H130 
AIO0H1H0 

AID04150 

AID01160 
AID0H170 
AID0H180 
AIO0H190 

AI004200 

AIO0H210 
AID0H220 

AID0H230 
AIO0H2H0 
AIO0H250 
AIO0H260 
AIO0H270 

AID0H280 

AIO0H290 
AID0H300 

AID0H310 
AID0H320 
AID0H330 

AID0if3<»0 

AID0H350 

AIDOIicu 

AID0H370 
AID0H380 

AID0H3C0 
AIDOHHOO 

AIDOHHIO 

AID0HH20 

■* AIO0HH30 

AIDOHHHO 

AIDOttbu 

AIDOHUf t, 
AID0HH70 

Aiocmso 



OS AIDS 



OtBER 
0<*COR 

04CHR 

OtCSR 
0<*CAR 
04CCR 

o<+cer 

OtUOR 
OHD2R 
OfD<iR 
0«»D6R 
01D8R 

04DCR 

04EOR 

0<*E2R 

01E6R 
04E8R 

O^ECR 
OtEER 

OtF2R 
0«»Fi+R 

0«»F8R 

OtFCR 
OtFER 
0500R 
0502R 
050tR 
05O6R 
0508R 

050CR 
050LR 



2tCA 

D30E 

OOOO 

CBOO 

0030 

0216 

090C 

0386 

OCAC 

OABO 

26E1 

27D1 

203B 

tOBF 

0000 

DlAO 

OBOOH 

0302 



DOaO 

0H00R 

2<+C8 

18BE 

0000 

07AA 

<*8DC 

050ER 

ODAD 

C7B0 

0030 

Q2BF 

0000 

26F1 

27C2 

08BA 

203B 

08CC 

2219 

DlAO 

OBOOR 

0302 

0001 

OOOA 

0064 

03E8 

2710 



0518R UOOO 
OACOR 

051CR OlCO 
0000 

0520R DOCO 
065ER 

052<*R D100 
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XB2 



XLATED 



XD1 



XD2 



LIS 

LB 



R12.10 
RO.OIFROM) 



MULTIPLIER 
GET A BYTE 



XD3 



* -. 

* 
XLATEF 



SHI 

BMR 

CHR 

BNLR 

MHR 

AHR 

AIS 

SIS 

BNZS 

STH 

LM 
BR 



HOtX'SO' 

CMDER 

R0.R12 

CMDER 

R10.R12 

R11,R0 

FR0M.1 

NUMBER, 1 

XB1 

RlliO(TO) 

Rio, save 

LINKS 



INTERNALIZE 

RANGE CHECK 

DECIMALIZE 

BUMP SENDER FIELD 
DECREMENT COUNTER 
NOT DONE 

RESTORE REGS 
RETURN 



TRANSLATE - INTERNAL TO DECIMAL ASCII 



STM RIO, SAVE 

LIS Rl2i6 

LH Rll,0(FROM) 

XHR RIO, RIO 

LH Rl3,XD3<R12) 

DHR Rlo,Rl3 

XHI Rll»X»30« 

STB R11,0(TO> 

AIS T0«1 

SIS R12.2 

LHR Rll.Rlo 

BNZS XD1 

LHR R12.R12 

BNMS XD2 

LM RIO, SAVE 



SAVE REGS 

DIVISOR INDEX 
DIVIDEND 



GET POWER OF TEN 

DIVIDE 

ASCII-IZE QUOTIENT 

STORE 

BUMP STORAGE INDEX 

DECREMENT INDEX 

SET REMAINDER AS QUOTIENT 

CONTINUE 

FIVE PLACES 7 

PAD ZEROES 



BR 
DC 



LINKS 



RETURN 



1,10,100,1000,10000 



TRANSLATE - INTERN A L TO FLOATING DECIMAL 
STM RQ.SAVE2 SAVE REGS 



LM 
STM 

LM 



R12,0 

R12.XFSAVE 

R0.SAVE2 



SAVE FLOATING POINT REGS 



AID0H490 
AID0t500 

AIO0H510 

AID04520 
AIO0t530 
AID0H540 
AID04550 
AID04S60 
AIOO<*570 
AID01580 
AID04590 
AID0<*600 

AID04610 

AID0"4620 
■» AIOOi+630 

AID046U0 
AID0<*650 

AIU04660 
AID04670 

AID04680 
AlD0<*690 

AID04700 
AID04710 

AID0H720 

AIQ0H730 
AID0<*7<*0 
AI00H750 
AID0t760 
AID04770 
AI004780 
AID04790 

AID0H800 
AID04810 



• * AID04820 
AI004830 
AlD018<t0 

AID0<*850 

AID04660 

AID04870 



OS 


AIDS 




OACOR 


0528R 


40E0 




0A44R 


032CR 


C8EO 




0A44R 


0S30R 


2402 


Q532R 


4120 




040ER 


0536R 


2404 


0538R 


48EO 




0A44R 


053CR 


26F6 


053ER 


4120 




040ER 


0542R 


26FC 


0344R 


08BF 


0346R 


D1EE 




OOOO 


054AR 


0733 


054CR 


080E 


054ER 


C400 




7FF0 


0552R 


4330 




063CR 


0536R 


08EE 


0558R 


2128 


055AR 


C4E0 




7FFF 


055ER 


C800 




002D 


0562R 


D20B 




0000 


0566R 


26B1 


0568R 


DOEO 




0000 


056CR 


2800 


056ER 


6820 




066ER 


0572R 


24A1 


0574R 


mio 




0654R 


0578R 


6900 




066AR 


057CR 


2384 


057ER 


2C02 


0580R 


27A1 


0582R 


2205 


0584R 


6A00 




0666R 


0588R 


«mo 




Q654R 


058CR 


0788 


058ER 


08AA 


0590K 


2117 


0592R 


C5A0 




0006 
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XF1 



XF2 



XF3 



STH 

LHI 

LIS 
BAL 

LIS 

LH 

AIS 

BAL 

AIS 
LHR 

LM 

XHR 
LHR 

NHI 

HZ 

LHR 
BPS 

NHI 

LHI 
STB 

AIS 

STM 

LER 
LE 

LIS 
BAL 

CE 

BNLS 

MER 

SIS 

US 

AE 



FR0M.0ECD2 

FR0M,DECD2 

NUMBER, 2 
LINKS, XLATEH 

NUMBER t 4 
FR0M,DECD2 



TO. 6 

LINKS, XLaTEH 

TO, 12 

Rll.TO 

FROM,0(FROM) 

R3,R3 

R0»FR0M 

R0»X»7FF0« 

XZERO 

FROM, FROM 

XF1 

FR0M,X»7FFF« 

RO.C'-' 
RO.O(Rll) 

Rll,l 
FROM,0 

0,0 
2.D10 

R10.1 
Rl,XREOUZ 

0,FCON1 

XF3 

0,2 

K10,l 

XF2 

0.D3C 



BAL R1,XREDUZ 



XHR 
LHR 
BMS 
CLHI 



R8.R8 
Rl0,Rl0 
XF5 
RIO, 6 



SET ADDRESS 



PRESET LENGTH 

TRANSLATE ADDRESS TO ASCII 

SET BYTE COUNT 
RESTORE ADDRESS 

BUMP LINE" POINTER 
TRANSLATE FULLWORD TO ASCII 

BUMP LINE POINTER 



EXPONENT FLAG 

COPY EXPONENT ft HI MANTISSA 

CHECK FOR ZERO 

IF ZERO - IT'S ZERO 

CHECK SIGN 
POSITIVE MANTISSA 
SET SIGN PLUS 

MINUS SIGN 

PLACE IN PRINT LINE 

BUMP POINTER 
LOAD FLT PT REG 

NORMALIZE 

LOAD TEN ON FLT PT REG 2 

SET EXP TO ONE 
REDUCE NUMBER 



MULT BY TEN 

DECREMENT EXP COUNTER 

CHECK 



REDUCE TO TEN OR LESS 

SET DIGIT COUNTER 

TEST EXPONENT 

IF MINUS, USE »E» FORMAT 

IF GRTR 6 OR LT 



AI004880 

AID04890 

AID04900 
AID04910 

AID04920 
AID04930 

AIO04940 
AID04950 

AID04960 
AID04970 
AID04980 

AID04990 
AID05000 
AIO05010 

A1005020 

AID05030 
AID05040 
AID05050 

AID05060 

AID05070 

AID05080 
AID05090 

AID05100 
AID05110 

A1O0512: 
Ain05130 

AID05140 

AID05150 
AID05160 
AID05170 
AID05180 
AID05190 

AID05200 

AID0&21Q 
ATD0¥>2?P 
AIO0S23C 
AID05240 



OS AIDS 


0596R 


212if 


0598R 


058A 


059AR 


2139 


059CR 


OBAA 


059ER 


C800 




002E 


05A2R 


0833 


05A1R 


2134 


05A6R 


D20R 




0000 


05AAR 


26B1 


05ACR 


C580 




0006 


05B0R 


4330 




5EAR 


05B4R 


2681 


05B6R 


D1E0 




0000 


OSBAR 


93EE 


05BCR 


D3C0 




0000 


05C0R 


C5C0 




0041 


05C4R 


2185 


05C6R 


EDEO 




0004 


05CAR 


27C1 


05CCR 


2206 


05CER 


DOEO 




0000 


0502R 


D2C0 




0000 


05D6R 


90E8 


05D8R 


C6E0 




0030 


050CR 


02EB 




0000 


05E0R 


6C00 




066ER 


05E4R 


26B1 


05E6R 


4300 




0598R 


05EAR 


CBOO 




0020 


05EER 


D20B 




0000 


05F2R 


27B1 


05F4R 


D30B 




0000 


05F8R 


C500 




0030 


05FCR 


2239 


05FER 


C500 




002E 


0602R 


2135 


0604R 


270E 
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XF4 



XF5 



XF6 



XFro 



XFR2 



XF7 



BPS XF5 

CLHR R8.R10 

BNES XF6 

SHR RIO, RIO 

LHI RO,C«.» 

LHR R3.R3 

BNZS XF6 

STB R0,0(R11) 

AIS Rll.l 

CLHI R8.6 



BE 

AIS 

LM 

LBR 

LB 



XF7 

R8.1 
FROM.O 

FROM. FROM 
R12.0 



CLHI R12,X«41» 



BLS 
SLL 

SIS 

BS 

STM 



XFR2 
FROM,»» 

R12.1 

XFRO 

FROM.O 



STB R12.0 

SRLS FR0M»8 
OHI FROM,x«30« 



STB 

ME 

AIS 

B 

LHI 

STB 

SIS 
LB 



FROM.O(Rll) 
O.DlO 

Rll.l 

XF4 

R0,X«20» 

RO.OCRll ) 

Rll.l 
RO.O(Rll) 



CLHI R0»X»30» 

BES XF7 

CLHI RO,C».» 

BNES XF8 

SIS R0.14 



USE »E« FORMAT 

COMPARE OIGIT COUNT g, EXPONENT 

NOT EQUAL. -GENERATE A DIGIT 

CLEAR EXPONENT 

PUT A DECIMAL PT 

CHECK EXP FLAG 
SKIP DEC PT 
IN PRINTLINE 

ADJUST INDEX 

COMPARE DIGIT COUNT TO 6 

STOP 

BUMP COUNT 
LOAD VALUE 

GET HI MANTISSA 
GET EXP 

ONE 7 



DECREMENT VALUE 
PLACE IN F|_T PT REc, 
SET EXP 

ASCIIZE 

STORE DIGIT 

MULT BY TEN 

BUMP INDEX 

CONTINUE GENERATING DIGITS 

SPACE 

BLANK OUT ZERO 

DECREMENT PRINT INDEX 

CHECK FOR TRAILING ZERO 

YES - KEEP CHECKING 
HIT A •.♦ 7 

CONVERT TO SPACE 



AID05250 
AID05260 
AID05270 
AID05280 
AID05290 

AID05300 
AID05310 
AID05320 

AID05330 
AI005340 

AID05350 

AI005360 
AID05370 

AIU05380 
AID05390 

AIO05400 

AID05410 
AID05420 

AID05430 
AID05440 
AID05450 

AID05460 

AID05470 
AID05480 

AIU05490 

AID05500 

AID05510 
AID05520 

AID05530 

AID05510 

AID05550 
AID05560 

AID05570 

AID05580 
AI005590 

AI005600 
AID05610 
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0606R 

060AR 
(160CR 
060ER 

0612R 

0616R 

061AR 
061CR 
061ER 
0620R 

062tR 

0628R 

062CR 
062ER 

0632R 

0636R 
0638R 

063CR 

06"+0R 

06t«»R 

06<+8R 

06tCR 

0650R 
0652R 
065tR 
0656R 
0658R 
065AR 
065CR 
065ER 
0666R 

066AR 

066ER 



D20B 

0000 

27B1 

08AA 

t330 

06«*4R 

C800 

001+5 

D20fi 

0000 

26B1 

2<»3F 

08AA 

•♦310 

0632R 

C800 

002D 

D20B 

0000 

26B1 

C7A0 

FFFF 

C8EA 

1(201 

07FF 

•+300 

0568R 

C6E0 

0030 

D2EB 

0000 

D1C0 

065ER 

DOCO 

0000 

D100 

OACOR 

2«m 

0302 
2902 
0281 
2D02 
26A1 
220** 

3C80 
0000 
<*U0 
0000 
H1A0 
0000 



XF8 



XF9 



XZERO 



XF9A 



XREOUZ 



XFSAVE 
D3C 

FCONl 

D10 



STB 


ROtO(Rll) 


SIS 

LHR 

BZ 


Rll»l 
RIO, RIO 
XF9A 


LHI 


RO.C'E' 


STB 


R0»0(R11) 


AIS 
LIS 
LHR 

BNM 


Rll.l 
R3.15 
RlO.RlO 
XF9 


LHI 


RO,C'-* 


STB 


ROtO(Rll) 


AIS 
XHI 


Rll«l 
RIO.X'FFFF' 



XHR 

B 

OH I 
STB 

LM 

STM 

LM 

LIS 

BR 

CER 

BLR 

DER 

AIS 

BS 

DS 

DC 

DC 

DC 



SPACE OUT DEC PT 

DECREMENT PRINT INDEX 

CHECK FOR REMAINING EXPONENT 

NONE LEFT 



PLACE 



IN PRINT BUFFER 



BUMP POINTER 
SET EXP FLAG 
EXPONENT MINUS 7 
NO 

INSERT A MINUS SIGN 



BUMP POINTER 



LHI FROM, X »H201MR10) 



TO,TO 
XF1 

FROM. CO* 

FR0M,0(R11) 

R12. XFSAVE 

R12.0 

R0.SAVE2 

LENGTH, t 

LINKS 

0,2 

Rl 

0,2 

R10»l 

XREDUZ 

8 

X»3C80',0 

E»l« 
E«10« 



ASCUZE TO ZERO 
PLACE IN PRINTLINE 
RESTORE REGS (PlT. PT) 

RESTORE REGS 

SET LENGTH 
RETURN 



BUMP EXPONENT 

00 IT UNTIL VALUE IS REDUCED TO 10 



0672R D000 

OACOR 
0676R U1C0 



* TRANSLATE - FLOATING DECIMAL TO INTERNAL 
XLATEL STM R0,SAVE2 SAVE REGS 



LM 



R12,0 



SAVE FLT. PT. REGS 



AID05620 

AID05630 
AID05640 
AID05650 

AI005660 

AID05670 

AlO05f,80 
AID05690 
AID05700 
AID05710 

AI005720 
AID05730 

AI005710 
AID0S750 

AID05760 

AID05770 
AID05780 

AID05790 

AID05800 

AID05810 

AIO0S820 

A1D05830 

AID05OH0 
AI005850 
AID0b860 
AID05870 
AID05880 
AID05830 
AID05900 
AID05910 
AID05920 

AID05930 

AID059HQ 

AID059t0 
AID05970 

AID0b980 



OS AIDS 


- AUTOMATIC INTERACTIVE DEB 


0000 






067AR DOCO 


STM 


R12.XFSAVE 


65E> 






067ER D100 


LM 


R0.SAVE2 


OACOR 






0682R 081F 


LHR 


Rl.TO 


0684R 0766 


XHR 


R6.R6 


0686R 0788 


XHR 


R8,R8 


0688R 0799 


XHR 


R9.R9 


OfcflAR 07AA 


XHR 


RIO, RIO 


068CR 2B00 


SER 


0,0 


068ER 0733 


XHR 


R3.R3 


0690R 082E 


LHR 


R2.FR0M 


0692R D372 


LB 


R7,0(R2) 


0000 






0696R Cb70 


CLHI 


R7,C'-» 


0020 






069AR 2133 


UNES 


XLFTl 


069CR C830 


LHI 


R3,X«8000» 


8000 






06A0R D372 


XLFTl LB 


R7.0<R2) 


0000 






06AHR 2<»CA 


LIS 


R12.10 


06A6R C570 


CLHI 


R7,C»0« 


0030 






06AAR 2188 


BLS 


XLDEC 


06ACR C570 


CLHI 


R7,X»3A» 


003A 






OfcBOR 218F 


HLS 


XL2 


06B2R C570 


CLHI 


R7tC , E' 


00t5 






06R6R 1*330 


BE 


XLEXPT 


06F0I- 






06BAR C570 


XLDEC CLHI 


R7,C».» 


002C 






06BEK ^230 


BNE 


XLDONE 


0716R 






06C?R 08AA 


LHR 


RIO, RIO 


06C4R <*230 


HNZ 


XLDONE 


07161' 






06CRR 2<+Al 


XLDEC2 LIS 


I<10,1 


06CAR <*300 


H 


XLTF 


OfcEAH 






06CER 08AA 


XL2 LHR 


RlO,R10 


0600R 2332 


Q2S 


XL3 


06D2R 2661 


AIS 


R6,l 


06D4R 6C00 


XL 3 ME 


0,D10 


066ER 






06D8R C*70 


NHI 


R7,15 


OOOF 






06DCR C8E7 


LHI 


FROM,X»^200« 


t200 






06E0K 07FF 


XHR 


TO, TO 


06E2R DOEO 


STM 


FROM,H 


000"t 






06E6R 2822 


LER 


2,2 



1'AGT 



17 



RESTORE REGS 

SAVE RECEIVER ADDRESS 
DIGIT COUNT 
EXP SIGN 
EXP COUNTEk 

CLEAR FLT PT REG n 

minus mantissa 

get character 

check for minus 

skip if not 
set r3 to minus 

pick up character 

constant of ten 
check for numeric 

less - Check for decimal point 
high numeric limit 

OK - DIGIT 
CHAR = »E» 

YES - EXPONENT BEGINNING 

OECIMAL POINT 7 

FINISHED 

CHECK EXP 

DOME 

SET DEC PT FLAG 



COUNT DIGITS TO RT OF ».» 

NO DEC PT - DON»T COUr.IT 

MULT BY TEN 



<R7> LOAD HI MANTISSA 

PRIME FLT PT REG 2 
NORMALIZE 



AID05990 

AI006000 

AIU06010 
AID06020 
AID06030 
AIIJ06040 
AID06050 
AID06060 
AID06070 
AID06080 
AIO06090 

A1O06100 

AI006110 
AID06120 

AID06130 

AID061«fO 
AID06150 

AID06160 
AI006170 

AID06180 
AID06190 

AID06200 

AID06210 

AID06220 

AID06230 
AI0062<*0 

AID06?50 
AID06260 

AID06270 
AID06280 
AID06290 
AID06300 

AID06310 

AID06320 

AID06330 
AID06340 

AID06350 



OS AIDS - 


AUTOMAT 


IC INT 


ERACTIVE DEBUGG 


ING SYSTEM 03-053 PAbE. 


06E8R 2A02 
06EAR 2621 
06ECR H300 


XLTF 


AER 
AIS 

B 


0,2 

R2tl 

XLFT1 


ADD IN VALUE 

BUMP BUFFER POINTER 

GET ANOTHER DIGIT 


OfaAOR 
06F0R 2621 
06F2R D3A2 


XLEXPT 


AIS 
LB 


R2«l 
R10»0(R2) 


BUMP INDEX 
GET CHARACTER 


0000 
06F6R C5A0 




CLHI 


RlCC'*' 


POSITIVE EXP ? 


002B 
06FAR 233t 
06FCR CBAO 




BES 
SHI 


XLFT2 
RlQ,C'-« 


YES 

NEG EXP 7 


002D 
0700R 2132 
0702R 2621 
070'»R D372 


XLFT2 
XUFT3 


BNES 

AIS 

LB 


XLFT3 

R2.1 

R7,0(R2) 


NO 

BUMP POINTER _.. 

GET A CHARACTER 


0000 
0708R C570 




CLHI 


R7.C0' 


* NUMERIC 


0030 
070CR 2185 
070ER C570 




BLS 
CLHI 


XLDONE 
R7.X«3A« 


* 

* CHECK 


003A 
0712R 4280 




BL 


XLEXDG 




0738R 
0716R 08AA 
0718R 213«t 
071AR C790 


XLDONE 


LHR 

BNZS 

XHI 


RIO, RIO 

XLDCNT 

R9,-l 


COMPLEMENT EXP COUNTER 


FFFF 
071ER 2691 
0720R 0B96 


XLDCNT 


AIS 

SHR 


R9,l 
R9.R6 


ADD ONE 

SUBTRACT DECIMAL PLaCRS 


0722R 4330 




B2 


XLOUT 




0746R 
0726R 2115 
0728R 2461 
072AR 6C00 




BUS 
LIS 

ME 


HUME* 

R6,l 

0,D10 




066ER 
072ER 2207 
0730R 2561 
0732R 6D00 


XLCHEX 


BS 

LCS 

OE 


XLOCNT 

R6,l 

0,010 




066ER 
0736R 220B 
0738R 2621 
073AR CH70 


XLE X DG 


F5S 

AIS 

NHI 


XLDCNT 

R2.1 

R7,15 




OOOF 
073ER 0C8C 
0740R 0A97 
0712R 4300 




MHR 
AHR 

B 


R8.R12 

R9.R7 

XLFT3 




0704R 
0746R D1E0 


XtOUT 


LM 


FROM,0 


GET RESULT 


0000 
074AR DOEO 




STM 


FROM, XLS AVE 


SAVE RESULT 


0768R 
074ER D1C0 




LM 


R12,XFSAVE 




065ER 
0752R DOCO 




STM 


R12.0 




0000 
0756R D1E0 




LM 


FROM.XLSAVE 


LOAD VALUE 



AID06360 
AID06370 
AID06380 

AID06390 
AID06400 

AID06410 

AID06420 
AID06430 

AID06440 
AID06M50 

AIQ06460 

AI006U70 

AI006480 
AID06490 

AID06500 

AID06510 
AID06520 
AI006530 

AID06540 
AID06550 
AID06560 

AI006570 
AID06580 
AID06590 

AID06600 
AID066JO 
AIU06620 

AIO06630 
AID066M-0 
AI006650 

AID06660 
AID06670 
AID06680 

AID06690 

AID06700 

AID06710 

AID06720 

AID06730 
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0768R 
075AR 06E3 
075CR O0E1 

0000 
0760R D100 

OACOR 
0764R 2t7t 
0766R 0302 
0768R 



076CR 

0770R 

0774R 

0778R 
077AR 

077ER 

0782R 
0784R 
0786R 

078AR 
078CR 
078ER 
0790R 

0791R 
07 C »OR 

079AR 

079FR 
07A0R 
07A2R 

07a6R 

07AAR 
07ACR 
07AER 
07B0R 

07BtR 



DOAO 

OBOOR 

D3BE 

0000 

C9B0 

0020 

2383 

C8B0 

002E 

C9B0 

0060 

2182 

2205 

D2BF 

0000 

26F1 

26E1 

27D1 

4230 

0770R 

DlAO 

OBOOR 

030? 



DOCO 

OBOAR 

27D1 

2118 

D3CE 

0000 

D2CF 

0000 

26E1 

26F1 

2208 

D1C0 

OBOAR 

0302 



07B6R OOOO 
OACOR 

07BAR D2EF 
0000 



XLSAVE 



OHR 

STM 

LM 

LIS 

BR 

OS 



FR0M.R3 
FROM.O(Rl) 

R0,SAVE2 

LENGTH, t 

LINKS 

4 



SET SIGN 

STORE IN MEMORY 



SET LENGTH 
RETURN 



* TRANSLATE - INTERNAL TO CHARACTER 
XLATEC STM RIO. SAVE 



XCl 

XC2 
XC3 

XC4 



MOVE 

Ml 



M2 



* 

* 
CLEAR 



LB 
CHI 



Rll.O(FROM) 
Rll.X'20' 



BNLS XC3 

LHI Rll,x«2E» 



GET CHARACTER 
GRAPHIC ? 

YES 

NO - REPLACE WITH ».• 



CHI 

BLS 

BS 

STB 

AIS 
AIS 
SIS 

BNZ 

LM 
BR 



Rll«X»60« 

XC4 
XC2 
R11,0<TO> 

T0,1 
FROM.l 
NUMBER, x 
XCl 

RIO, SAVE 

LINKS 



GRAPHIC 7 


YES 


NO 


STORE CHAR 


BUMP INDEX 


DECREMENT COUNTER 



RETURN 



MOVE CHARACTERS 
STM R12,SAVE+10 



SlS 

BMS 
LB 

STB 

AIS 

AIS 

BS 
LM 

BR 



NUMBER, 1 

M2 

R12,0(FROM) 

R12,0(TO) 

FROM.l 

T0,1 

Ml 

R12,SAVE+10 
LINKS 



SAVE REGS 

DECREMENT COUNT 

DONE 

GET RYTE 

STORE BYTE 

BUMP SENDER 
BUMP RECEIVER 
CONTINUE 
RESTORE REGS 

RETURN 



CLEAR FIELD 

STM NUMBER, SAVE2 



STB 



FROM,0(TO) 



SAVE REGS 
STORE BYTE 



AID067«f0 
AID06750 

AID06760 

AID06770 
AID06780 
AID06790 
-* AID06800 
AlUOfettlO 
AID06020 

AinO&fl.^O 

AID06840 

AIU06B50 
AID068&0 

AIO0fc870 

All)0fc880 
AID06890 
AID06900 

AID06910 
AIU06920 
A1006930 
AI006940 

AIU06950 

AID06960 

•* AID06970 

AI006980 

AID06990 

AID07000 
AID07010 
AID07020 

AID07030 

AID07040 
AID07050 
AID07060 
AID07070 

AID07080 

* A 1 60 7590 

AID07100 

AID07110 

AID07120 
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07BER 26F1 
07C0R 2701 
07C2R 2031 
07C1R OlDO 

OACOR 
07C8R 0302 



07CAR 

07CER 

07D2R 
07D1R 

07D8R 

07DCR 

07EOR 

07E1R 

07E8R 

07ECR 

07F0R 

07F1R 

O7F8R 

07FCR 

0«00R 

0801R 

0808R 
080AR 



C8D0 

0028 

0000 

OAEOR 

21E0 

C8F0 

0A1ER 

1120 

07B6R 
C8D0 

0011 

C8F0 

0A78R 

1120 

07B6R 

C8E0 

2020 

C8F0 

0812R 

C800 

006C 

4120 

07B6R 

EilO 

080AR 

1800 

080CR 

1230 

092AR 

DlOO 

OAEOR 

0301 

1801 

0000 

0A1ER 

0A76R 



0812R 

0816R 

OfilAR 

081ER 
0820R 
0822R 
0821R 



C8BQ 

006C 

C8C0 

0020 

D1CB 

0811R 

2131 

27B1 

0332 

2205 



ROIN 



READ 



AIS TOtl 

SIS NUMBER, 1 

BNZS CLEAR+1 

LM NUMBER, SAVE2 



BR 



LINKS 



BUMP RECEIVER FIELD 
DECREMENT COUNTER 
CONTINUE 
RESTORE REGS 

RETURN 



COMMANO INPUT 

LHI NUMBER, BUFEND-BUFFER BUFFER SIZE 



STM ROtAIDSAV 



LIS 
LHI 

BAL 

LHI 

LHI 

BAL 

LHI 

LHI 

LHI 

BAL 

SVC 

LH 

BNZ 

LM 



BR 
CMDINP OC 



FROM,0 
TO, BUFFER 



SAVE AID REGS 

CLEARING VALUE 
BUFFER START 



links, clear clear data area 
number , opReno-6pr and operand size 
totoprano operand storage start 
links, clear clear operands 
from,* •2020 •" " spaces 
t0«0utbuf set receiver address 
number, outend-outbuf 



LINKS, CLEAR 

ljCMfllNP 

RO.CMOINP+2 

IOERR 

RO.AIDSAV 

LINK RETURN 

Xl1801ViO« BUFFER ,BUFEND 



CLEAR OUTPUT BUFFER 
READ A DIRECTIVE 
CHECK STATUS 

LOAD AID REGS 



OUT 



0T1 



INTERACTIVE OUTPUT 
LHI RlljOUTEND-OUTBUF BUFFER SIZE 

LHI R12,X»20» CHECK FOR SPACES 

CLB R12,0UTHUF-1(R11) SPAcE 7 



BNES 0T2 

SIS Rlltl 

BZR LINKS 

BS 0T1 



NO - USE LLNGTH 
DECREMENT POINTER 
RETURN IF BLANK 
CHECK AGAIN 



AID07130 
AID07110 
AID07150 
AID07160 

AID07170 

■♦ AI007180 

AID07190 

AID07200 

AID07210 

AID07220 
AID07230 

AID07210 

AI007250 

AID07260 

AID07270 

AID07280 

AID07290 

AID07300 

AID07310 

AID07320 

AID07330 

AID07310 

AI007350 

AI00736C 
AID07370 



.* AID073A0 
AID07390 
AID07100 

AID07110 

AID07120 

AIU07130 
AIO07110 
AID07150 
AID07160 



OS AIDS 



0826R 

082AR 

082FR 

0832R 

0836R 

083AR 

083ER 
oetOR 
0812R 
08t2R 
0842R 
OBH^R 
0816R 
08<»8R 
084AR 
084CR 
08«*ER 
0850R 
0852R 
085«tR 
085&R 
0858R 
085AR 
085CR 
085ER 
0860R 
0862R 
0864R 
086GR 
086&R 
086AR 
086CR 
086ER 
0870R 
0872R 
OST'IR 
0876R 
0878R 
087AR 
087CR 
087ER 
0880R 
0882R 
0881R 
0886R 
0888R 
088AR 
088CR 
088ER 
0890R 



tOBO 

O8t0R 

E120 

083ER 

C8D0 

006C 

C8E0 

0020 

C8F0 

08H2R 

4300 

07B6R 

0007 

0000 



2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 

2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 



AUTOMATIC INTERACTIVE DEBUGGING SYSTl M 03-053 

0T2 STH RlltOUTBLK+2 PRIME BLOCK 

SVC 2.0UTBLK ISSUE I/O 

LH1 NUMBER »OUTENO-OUTBUF BUFFER SIZE 

LHI FROM,X»20» CLEARING VALUE 

LHI TO.OUTBUF BUFFER START 

B CLEAR CLEAR DATA AREA 
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OUTBLK 



OUTBUF 



DC 

DC 

EQU 

DO 

UC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

UC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



7 



* 

54 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



AID07470 

AID07480 

AID07490 

AID07500 

AID07510 

AID07520 

AID07530 
AID07540 
AID07550 
AID07'SfeO 
A1007S70 
AID07570 
AI007570 
AID07570 
AID07 , S70 
AID07'S70 
AIO07570 
AID07570 
AID07S70 
AID07570 
AID07S70 
AID07S70 
AID07&70 
AID07570 
AID07570 
AID07570 
AID07570 
AID07570 
AID07570 
AID07570 
AID07570 
AID07570 
AID07570 
AID07570 
AID07570 
AID07S70 
AI007570 
AID07570 
AID07570 
AID07570 
AID07570 
AID07570 
AID07570 
AI007570 
AID07570 
AID07570 
AID07570 
AID07570 
AID07570 
AID07570 
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0892R 
089^ 
0896R 
0898R 
089AR 
089CR 
089ER 
08A0R 
08A2R 
08A4R 
08A6R 
08A8R 
08AAR 
08ACR 
08AER 



2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 
2020 



08AER E110 

08BCR 
08B2R H800 

08BER 
08B6R 4230 

092AR 
08BAR 0302 
08BCR 3805 

0000 
OflCOR 0000 

0000 



08C4R 

08C8R 

08CCR 

08D0R 

08D4R 

08D8R 
08DAR 

08DER 
08E0R 
08E2R 
08E4R 

08E8R 

08ECK 

08F0R 

08FHR 



DoBo 

0AD2R 

1+O2O 

090AR 

C8B0 

08ADR 

C800 

0020 

C5U0 

0842R 

2336 

D«+OB 

0000 

2133 

27B1 

2207 

«*0B0 

0912R 

E110 

090CR 

4800 

090ER 

4230 

092AR 

C8D0 

006C 



OUTEND 



LIST 



LT1 



LT2 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
EQU 



C« 
C« 
C» 
C 
C 
C» 
C» 
C« 
C« 
C« 
C» 
C« 
C» 

* 



* BINARY OUTPUT 
BINOUT SVC l.BINBLK 



LH 
BNZ 

BR 
BINBLK DC 

UC 



R0tBINBLK+2 

IOERR 

LINKS 
X'3605'fO 

OtO 



ISSUE I/O 
CHECK STATUS 

RETURN 



HIGH 
STM 

STH 

L HI 

LHI 

CLHI 

BEs 
CLB 

BNES 
SIS 

BS 
STH 

SVC 

LH 

HNZ 

LHI 



SPEED LIST OUTPUT 
R11.SAVE2+18 SAVE REGS 



LINKS«LT3 

R11»0UTEnD-1 

R0.X«20» 

Rll.OUTBUF 

LI? 
ROtO(Rll) 

LT2 

Rll.l 

LT1 

RlltLSTBLK+6 



save link 
buffer end 

check for blank line 

SPACE 7 

NO - SEARCH OVER 

DECREMENT POINTER 

CONTINUE 

SAVE END ADDRESS 



ISSUE I/O 
CHECK STATUS 



l.LSTBLK 

R0»LSTBLK+2 

IOERR 

NUMBER .OUTEND-OUTBUF BUFFER SIZE 



AID07570 
AID07570 
AID07570 
AID07570 
AID07S70 
AID07570 
AID07570 
AID07570 
AID07570 
AID07570 
AIU07570 
AID07570 
AID07570 
AID07570 
AID07580 
■* AID07S90 
AIU07600 
AID07610 

AID07620 

AID07630 

AI007640 
AID07650 

A 11)07660 

■* AID07670 
AID07680 
AID07690 

AID07700 

AID07710 

AID07720 

AID077JO 

AID07740 
AID07750 

AI007760 
AID07770 
AIO07780 
AID07790 

AIO07800 

Ain07810 

AI0078?0 

AID07830 



OS AIDS • 


- AUTOMAl 


IC INTERACTIVE DEBUG 


OflFHR 


CflEO 
2020 




LHI 


FROM,x«2020» 


nnriK 


CHF'O 

084?u 




LHI 


TO.OUTMUF 


0900K 


4120 
07B6R 




BAL 


LINKS.CLEAR 


0904R 


D1B0 
0AD2R 




LM 


R11.SAVE2+18 


0908R 


4300 




IDC 


X»4300» 


090AR 


0000 


LT3 


DC 





09OCR 


2803 
0000 


LSTBLK 


DC 


X»2803»,0 


0910R 


0842R 




□ C 


OUTHUF 


0912R 


08AEP 




DC 


OUTEND 




* 


ERROR ROUTINES 


0914K 


01E0 
0966R 


ILLEG 


LM 


FROH,ILLMSG 


0918R 


DOEO 
0844R 




STM 


FR0M»0UTBUF+2 


091CR 


4120 
08C4R 




BAL 


Links. list 


0920K 


4300 
046R 




H 


LDREG 


0924H 


C8B0 
0942R 


CMDERR 


LHI 


Rll.CMDMSG 


0928R 


2305 




BS 


LOG 


092AR 


E120 
096 OK 


IOERR 


SVC 


2, UNPACK 


092ER 


C8B0 
094EP 




LHI 


Rll.IOMSG 


0932R 


E12B 
0000 


LOG 


SVC 


2,0(R11> 


0936R 


4300 
0046R 




u 


LDREG 


093AR 


E120 
0964R 


PAWS 


SVC 


2, PAUSE 


093ER 


4300 
0046R 




H 


LDREG 


0942R 


0007 


CpiDMSG 


DC 


7 


0944R 


0008 




DC 


CMDND-CMDMS 


0946R 


434D 
4420 
4552 
5220 


CMDMS 


DC 


C'CMD-ERR' 


094ER 




CMDND 


EQU 


* 


094ER 


0007 


lOHSG 


DC 


7 


0950R 


OOOE 




DC 


IOMEND-IOMS 


0952R 


492F 
4F2D 
4552 
S23A 
2020 
2020 
2020 


IOMS 


DC 


ci/o-err: 


0960R 




IOHENO 


EQU 


* 



C/,1,1 23 



CLEARING VALUE 
BEGIN ADDRLSS 
CLEAR DATA AREA 
RESTORE REGS 
RETURN 



MOVE ILLEGAL INSTR MESSAGE 



PRINT MESSAGE AnD ADDRESS 



PAUSE OS AIDS 



A 1 110784 

All)07flh0 

AlD078bO 

AID07870 

AIU07880 
AID07890 
AID07900 

AID079I0 
AID07920 
•4 AID07930 
AID07940 
AID07950 

AID07960 

AjD07970 

AID07980 

AID07990 

AIU08000 
AID08010 

AID08020 

AID08030 

AID08040 

AID08050 

A 11)08060 

A1D08070 
AID08080 
AID08090 



AID08100 
AID08110 
AID08120 
AID08130 



AID08140 
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0960R 0006 
0962R 095CR 
0964R 0001 
0966R H9HC 
4C3A 



096AR 
096CR 

0972R 
097HR 

0978R 
097AR 

097ER 

0982R 

0986R 
0988R 
098AR 
09BCR 
098ER 
0990R 

0994R 
Q996R 
0998R 

099cR 
099ER 

09A2R 
09A6R 



C8B0 
09B6R 

cflco 

09C2R 

2308 

C8C0 

09B6R 

2303 

C8C0 

09AFR 

C8B0 

09A8R 

D«*0C 

0000 

2335 

27C1 

09CB 

0286 

2206 

CBCO 

09A8R 

OACC 

9380 

*»81C 

09C8R 

0301 

CflBO 

09C2R 

C8C0 

09C6R 

220C 



09A8R tfl 
9fl9R «m 
09AAR «U 
09ABR 42 
09ACR Hi 
09ADR <+b 
09AER 52 
09AFR 50 
09AFR 
09B0R <*6 
09B1R i+l 
09B2R H2 
09B3R t8 
09BHR W 
09B5R 43 
09B6R 45 



UNPACK DC 

DC 

PAUSE DC 

ILLMSG DC 



* 
TABC 



TABB 



TABA 

TAB 

TBSCAN 



TBOUT 



TABD 



* 

OPTAB 



I0MEN0-4 
1 

oill:' 



OPTAEn 



TABLE SCANNER 

LHI Rll.OPTBEN 

LHI R12.0PTCEN 

BS TBSCAN 

LHI R12.0PTBEN 

BS TAB 

LHI R12.0PTAEN 

LHI fill, OPTAB 

CLB R0,0<R12) 

HES TbOUT 

SIS R12,1 

CMR Rl2,Rll 

BLR CMDER 

BS TBSCAN 

SHI R12.0PTAB 

AHR R12,R12 

LBR MODE.RO 

LH LINK,0PN(R12) 

BR LINK 

LHI Rll.OPTCEN 

LHI R12,0PTDEN 

BS TBOUT-2 



END OF OPTION C 
BEGIN OF OPTION C 

GEGIN OF OPTION B 

BEGIN OF OPTION A 

END OF OPTIONS A i B 

COMPARE CHARACTER 

HIT, GET VECTOR 
CHECK NEXT 
END OF TABLE 
YES = ERROR 
CONTINUE LOOKING 
GET PURE INDEX 



SET MODE 

PICK UP VECTOR ADORESS 

ENTER ROUTINE (RETURN VIA LINKS ) 

end of option d 

BEGIN OF OPTION 



SECOND CHARACTER OPTIONS 
DB OH' 



DB 

DB 

DB 

DB 

DB 

OB 

DB 

EQU 

DB 

OB 

UB 

DB 

OB 

DB 

OB 



CD 
OA 
OB 
OC 
OF 
OR 
C*P 
*-l 
OF 
OA 
OB 
OH 
OD 

c»c 

OE 



AID08150 
AID08160 
AI008170 
AI008180 

■♦ AID08190 
AID08200 
AIO06210 

AID08220 

AID08230 
AI008240 

AI008250 
AID08260 

AID08270 
AID08280 

AID08290 
AID08300 
AID08310 
AID08320 
AID08330 
AID08340 

AID08350 
AID08360 
AI008370 

AID08380 
AID08390 

AID08400 



AIDOStiO 
AID08«»20 

AID0843J 
AID08440 
AID08450 
AIDOSHoO 
AI008470 
AID08480 
AID08490 
AID08500 
AID08510 
AID08520 
AID08530 
AID08540 
A I 008550 
AIH08 r )fc,0 
AI008570 
AIDOS'ieO 
AID08590 



OS AIDS 


- AUTOMATIC INTERACTIVE DEBUGGI 


09B6R 


OPTBEN EQU 


*-l 


09B7R 58 


DB 


C'X' 


09B8R 53 


DB 


C'S» 


09B9R 5t 


DB 


C»T« 


09BAR q-C 


OB 


C'L' 


09BBR H8 


DB 


C«H» 


09BCR Hi 


DB 


CtC 


09BDR HI 


DB 


C'A» 


09BER «*2 


DB 


C»B» 


09BFR HH 


DB 


C«D« 


09C0R 16 


DB 


C«F« 


09C1R 50 


DB 


C«p« 


09C2R 55 


DB 


C'U« 


09C2R 


OPTCEN EQU 


*-l 


09C3R 58 


DB 


C»X' 


09C<*R 53 


DB 


C'S* 


09C5R 5<+ 


DB 


C'T* 


09C6R 50 


DB 


C»P» 


09C6R 


OPTDEN EQU 


*-l 


09C7R 00 


DB 


* 


09C8R 0<tOER 


OPN DC 


XLATEH 


09CAR 0<fE2R 


OC 


XLATED 


09CCR 167CR 


DC 


XLATEA 


09CER 167CR 


DC 


XLATEA 


09D0R 076CR 


DC 


XLATEC 


09D2R 0518R 


DC 


XLATEF 


090HR OtOER 


DC 


XLATEH 


09D6R O^OER 


DC 


XLATEH 


09D8R 0672R 


DC 


XLATEL 


09DAR 158AR 


DC 


XLATEU 


09DCR 158AR 


DC 


XLATEU 


09DER 0<^CR 


DC 


XLATHB 


09E0R 0HB2R 


OC 


XLATDB 


09E2R 079AR 


DC 


MOVE 


09E4R Ot«»CR 


DC 


XLATHB 


09E6R UB<tR 


DC 


BREAK 


09E8R 1390R 


DC 


SNAP 


09EAR 1266R 


DC 


TRACE 


09ECR OBEER 


DC 


LOADER 


09EER OCEOR 


DC 


HEXOMP 


09F0R 0CF8R 


DC 


CHROMP 


09F2R 0CC6R 


DC 


ASMDMP 


09FHR 0CC6R 


OC 


ASMDMP 


09F6R 0B8tR 


DC 


DECDMP 


09F8R OBCAR 


DC 


FLTDMP 


09FAR XH3HR 


DC 


PROTEK 


09FCR 0D«»AR 


DC 


UTIL 


09FER 1228R 


DC 


ZAPBRK 


OAOOR l«f5CR 


DC 


ZAPSNP 


OA02R 1352R 


DC 


ZAPTRC 


0A04R 1506R 


DC 


ZAPPRO 




* COMMAND VECTOR TABLE 


0A06R 20 


CMDCHR DB 


C» • 


0A07R HF 


DB 


CO' 


0A08R OD 


DB 


X«0D' 
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AID0B600 

AID08610 

AID08620 

AID08630 

AID08610 

AID08650 

AID08660 

AI006670 

AID08680 

AID08690 

AID08700 

AID08710 

AID08720 

AID08730 

AID087<t0 

AID08750 

AID0B760 

AI008770 

AID08780 

AI008790 

AID08800 

AID08810 

AID08820 

AID08830 

AID088H0 

AID08850 

AID08860 

AI008870 

AID08880 

AID08890 

AID08900 

AI008910 

AID08920 

AID08930 

AID089t0 

AID08950 

AID08960 

AI008970 

AID08980 

AID08990 

AID09000 

AID09010 

AID09020 

AID09030 

AID090<tO 

AI009050 

AID09060 

A I 009070 

AID09060 

AID09090 

AID09100 

AID09110 

AID09120 

AID09130 

AID09140 

AID09150 
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0A09R 

OAOAR 

OAOBR 

OAOCR 

OAODR 

OAOER 

OAOFR 

OAlOR 

0A11R 

0A12R 

0A13R 

0A14R 

0A15R 

0A16R 

0A17R 

0A17R 

0A18R 

0A18R 

0A1AR 

0A1CR 

0A1ER 

OA20R 

0A22R 

0A2UR 

0A26R 

0A28R 

0A2AR 

0A2CR 

0A2ER 

0A30R 

0A32R 

0A34R 

0A36R 

0A38R 

0A3AR 



20 
4A 
11 
53 
52 

tc 

<*2 
45 
49 
5A 
44 
50 
i»7 
4E 

00 

0284R 
0187R 
0284R 
0288R 
0290R 
02A5R 
02A5R 
0227R 
OOOFR 
012DR 
0156R 
OFEDR 
1191R 
0B20R 
093AR 
0325P 
0222R 



0A3AR 2F 
0A3BR OD 
0A3CR 28 
0A3DR 29 
0A3ER 2C 
0A3FR 2E 
0A40R 27 
0A41R 00 
0A42R 20 
0A42R 
0A43R 00 



0A44R 0000 
0A46R 0000 
0A48R 0000 
0A4AR 0000 
0000 
0A4ER 



CMCREN 

CMDTBL 



CMDEND 

DELIM 

OPREN 
CPREN 
COMMA 

POP 

SPACE 
DELENO 



DB 

DB 

OB 

OB 

DB 

DB 

DB 

DB 

OB 

DB 

DB 

OB 

DB 

DB 

EQU 

DB 

EQU 

DC 

OC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

OC 

DC 

EQU 



* 

DECD2 

PRORO 

PROFLG 

PSWSAV 



C»-» 

C»J» 
C«A» 
C'S' 
C«R« 
C»L« 
C«B« 
C'E» 
C«I» 
C»Z' 
C'D» 
C»P« 
C«G» 
C'N' 

• 

NEXT 

OPIN+1 

NEXT 

PRECED+1 

JUMP 

ARITH+1 

ARITH+1 

RPLACE+1 

LU+1 

BYAS+1 

TERM 

ENTER+1 

2AP+1 

DUMP+1 

PAMS 

GO+1 

NEKST 



DELIMITER TABLE 



DB 

DB 

OB 

DB 

OB 

DB 

DB 

DB 

DB 

EQU 

DB 



C»/» 

X»00» 

CM* 

CM' 

C«,« 

c«.» 

X«27* 
X»00« 
X»20» 
*-l 



RESERVATIONS 
DC 
DC 
DC 
DC 0,0 



BUFFER OS 



40 



AID09160 
AID09170 
AID09180 
AI009190 
AID09200 
AID09210 
AID09220 
AID09230 
AID09240 
AI009250 
AID09260 
AI009270 
AID09280 
AID09290 
AID09300 
AID09310 
AID09320 
AI009330 
AID09340 
AID09350 
AID09360 
AID09370 
AID09380 
AI009390 
AID09400 
AID09410 
AID09420 
AID09430 
AID09440 
AID09450 
AID09460 
AI009470 
AID09480 
AID09490 
AID09500 
AI009510 
AID09520 
AID09530 
AI009540 
AID09550 
AID09560 
AID09570 
AID095«J0 
AID09590 
AID09600 
AID09610 
AI009620 
AID09630 
. AID096<+0 
AID09650 
AID0966O 
A 1 11096 7 
AIO096a0 
AID09690 

AIU09700 
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0A76R 
0A76R 
0A78R 
I1AMCK 
OArtCH 

0A90R 

0A94R 
0A96R 
0A98R 
0A98R 
0AR8R 

OABCR 

OACOR 
OAEOR 



2F2F 



5341 
503A 
5052 
4F3A 
0000 
0000 



0AF2R 



OBOOR 
0R20R 
0R22R 
0R24R 



0B2CR 



0000 
0000 
0000 
0000 

0000 

0000 

0000 

0000 

0000 

0000 

0924U 

0000 

4848 

0812k 

004ER 

0000 

0000 

0000 

0000 

0000 

0007 
0008 
4F53 
2041 
4944 
5320 



0B2CR 4070 

0B82R 
0r30R D300 

0A4FR 
0B34R C500 

0055 
0R38R 4330 

0B7AR 
0R3CR D3D0 

0A78R 
0B40R C8E0 

0A79R 
0B44R C8F0 



DC 

HUFEMf) EQU 
Of RAMI) l")S 
OPRENh I QU 
SNPMSG DC 

PROMSG DC 



TRCFLG 
OPSAVE 
SAVREG 
REGSAV 
DBLWK 



DC 

OC 

EQU 

DS 

DC 



ORLSAV DC 

SAVE2 OS 
AIOsAV DC 



C'//' 
*-2 

i"0 

* 

c • snp : • 
cpho: • 





* 

32 

E»0» 

E'O' 



32 
O,O,0,0,0.0,CmDErr,0,C»HH« 



DC 



OUTi IN»0, 0.0,0,0 



SAVE OS 32 

TITLE DC 7 

DC TITLEN-TTLE 

TTLE DC COS AIDS' 



TITLEN EQU 



* 
DUMP 



DUMP HANDLER 

STH LENGTH, Dl 

LB RO.dUFFER+1 

CLHI R0,X'0055» 

BE DUMPU 

LB NUMBER, OPRAnD 

LHI FROM,OPRaN0+1 

LHI TO.OPSaVE 



SAVE CURRENT CELL LF NGTH 
CHECK SECONDARY DIRECTIVE 
IS IT A »U« 7 
YES , SKIP THE CALCULATIONS 
GET OPERAND LENGTH 
ADDRESS OF SENDER FIELD 
ADDRESS OR RECEIVER FIELD 



AID09710 
AID09720 
AID09730 
AID09740 
AIU09750 

AID09760 

AID09770 
AID09780 
AID09790 
AID09800 
AID09810 

AID09820 

AID09830 
AID09840 



AJD09850 



ArU09860 
AID09870 
AID09880 
AID09890 



AID09900 
.* AID09910 

AID09920 
AID09930 

AIO09940 

AID09950 

AID09960 

AID09970 

A1D09980 

AID09990 



OS 


AIDS 




0A96R 


0B18R 


10DO 




0A96R 


OBICR 


1120 




011CR 


0B50R 


1800 




0A96R 


0B51R 


ClOO 




FFFE 


0B58R 


OAEO 


0h5AR 


D3DE 




OOOO 


0B5ER 


26E1 


0B60R 


1120 




011CR 


0B61R 


08E0 


0R66R 


1850 




0A96R 


0B6AR 


05E5 


0R6CR 


0386 


0f*6ER 


1870 




0B82R 


0R72R 


C8F0 




0812R 


0B76R 


U300 




0A1FR 


0B7AR 


1120 




096AR 


0B7ER 


1300 




001AR 


0B82R 


0000 


0B81R 


1020 




0BC8R 


0B88R 


10E0 




0A11R 


0B8CR 


C8E0 




0A11R 


OB90R 


C8F0 




0812R 


0B91R 


21D2 


0B96R 


1120 




010ER 


0B9AR 


26F6 


0B9CR 


21C1 


0B9ER 


18E0 




0A11R 


0BA2R 


1120 




010ER 


0BA6R 


C8B0 




003D 


OBAAR 


D2BF 




0001 


OBAER 


2bF6 


OBBOR 


1120 
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CLEAR WORK AREA 

TRANSLATE TO BINARY 

LOAD START ADDRESS 

ENSURE HALFWORD BOUNDARY 

POSITION TO NEXT OPERAND 
OPERAND LENGTH 

BUMP OPERAND POINTER 
TRANSLATE TO BINARY 



STH 


NUMBER. OPSAVE 


BAL 


LINKS. XLATHB 


LH 


RO.OPSAVE 


NHI 


RO.X'FFFE* 


AHR 
LB 


FROM. NUMBER 
NUMBER.O(FROM) 


AIS 

BAL 


FROM.l 
LINKS. XLATHB 


LHR 
LH 


FROM.RO 
VALUE. OPSAVE 



CLHR FROM, VALUE 

BNLR CMOER 

LH LENGTH. Dl 



DUMPU 



01 



LH! 

LB 

BAL 

B 

DC 



TO.OUTHUF 

RO.BUFFER+1 

LINKS, TABC 

NAME 





GET HIGH LIMIT 

COMPARE EXTENTS 

RESTORE LENGTH 

SET Up OUTPUT BUFFER ADDRESS 

DUMP TYPE 

GO TO HANDLER 

ISSUE NAME & READ OIrECTIVE 



* — — --• 

* DECIMAL FORMAT DUMP 
DECDMP STH LINKS. DECD1 



DD1 



DU2 



STH 


FR0M.DECD2 


LHI 


FR0M.DECD2 


LHI 


TO.OUTBUF 


LIS 

BAL 


NUMBER. 2 
UNKS.XLATEH 


AIS 
LIS 
LH 


TO, 6 

R12.1 

FR0M.DECD2 


BAL 


LINKS. XLATEH 


LHI 


R11.C«=» 


STH 


Rll.KTO) 


AIS 
BAL 


TO. 6 

LINKS, XLATED 



SAVE LINK 
MEMORY LOCATION 
SET AS FROM ADOR 
RESET BUFFER POINTER 

TRANSLATE ADDR TO ASCII 

BUMP LINE POINTER 

SET COUNTER 

RESTORE MEMORY LOCATION 

TRANSLATE CORE TO ASCII 

EQUAL SIGN 

STORE BETWEEN HEX AMD DEC 

BUMP LINE POINTER 

TRANSLATE CORE TO DECIMAL ASCII 



AID10000 

AID10010 

AID10020 

AID10030 

AlQ100<+0 
AI010050 

AID10060 
AIO10070 

AID10080 
AID10090 

AID10100 
AID10110 
AH)10120 

A I 01 01 30 

AID10110 

AID10150 

A I Dl 0160 

AID10170 

•* AIDlOiaO 

AIU10190 

AIO1O200 

AID10210 

AlD10i:i:i, 

AID10230 

AID10210 
AIO102E0 

A1U10260 
AIU10270 
AID10280 

AID10290 

AID10300 

AID103JO 

AID10320 
AIII10330 
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ORDHR 
ORBfcR 
0RB8R 
OBBAR 
OBBCR 

OBCOR 
0BC2R 

0BC6R 
0BC8R 



OBCAR 

ORCER 

0RO2R 

0BD6R 
0BD8R 

OBDCr 

OREoR 

0BE4R 
OBEfeR 
OBEBR 
OBEAR 
OBECR 

OBEER 

0BF2R 

0RF6R 
ORF«R 

OBFCR 

OCOOR 

OCOtR 

OCOflR 

OCOCr 

0C10R 

OCltR 
OClfcR 
0C1OR 



04E2R 

26F7 

26E2 

27C1 

203C 

tl20 

oactR 

095E 

»J380 

0B88R 

t300 

0000 



f 020 

OBECR 

C«F0 

08«»2R 

<U20 

0518R 

0AE7 

C8F0 

0862R 

*U20 

0518R 

<U20 

oectR 

0AE7 
095E 
226D 
■+300 
0000 



DOOO 

OBOOR 

4020 

0C7QR 

07DD 

40F0 

08COR 

C8B0 

08ADR 

f OBO 

08C2R 

•H10 

OCAAR 

C8A0 

0035 

D2A0 

08U6R 

D2E0 

0848R 

08AE 

9<tAA 

D2A0 



DECD1 



AIS 
AIS 
SIS 

BNZS 
BAL 

CHR 

HNL 

DC 
DC 



TO, 7 

FROM, 2 
K12,1 
002 
LINKS, LIST 

VALUE, FROM 
DD1 

X»H300« 




BUMP LINE POINTER 
INCREMENT MEMORY LOCATION 
DECREMENT COUNTER 
CONTINUE LINE 
PRINT LINE 

COMPARE TO HIGH LIMIT 
CONTINUE 

RETURN 



* 
FLTDMP 

FLT1 



FLOATING POINT FORMAT DUMP 

SAVE LINK REG 



FLT2 

* 



STH LINKS, FLT2 

LHI TO,OUT»UF 

BAL LINKS, XLATEF 

AHR FROM, LENGTH 

LHI T0,0UTRUF+32 

BAL LINKS, XLATEF 

BAL LINKS.LIST 

AHR FROM, LENGTH 

CHR VALUE, FROM 

BNLS FLTl 

DC XH+300* 

DC 



RESCT LINE POINTf.R 

TRANSLATE TO FLOATING POINT 

INCREMENT SENDER ADDRESS 
SET LINE POINTER 

TRANSLATE 

PRINT FLOATING POINT 

INCREMENT SENDER ADOHFSS 

DONE ? 

NO 

RETURN 



* LOADER FORMAT <L> HAnOlEr 

LOADER STM R ,SAVE SAVE REGISTERS 



STH LINKS, LDR«» 



XHR 
STH 

LHI 

STH 

UAL 

LHI 
STB 
STH 



NUMBER, NUMBER 
TO.BINBLK-m 



SET RETURN 

Clear sequence nuhufr 
set buffer begin 



RH,OUTBUF + i07 SET BUFFER END 
Rll,BlNBLK+6 



LINK,SETBUF 
R10,X«35« 
R10»0UTBUF+<* 
FR0M,0UTBUF+6 



LHR RIO, FROM 

EXdR RIO, RIO 

STB RlO.OUTBUF+5 



CLEAR AND SET UP BUFFER 
SET ABSOLUTE TOGGLE 

SET LOAD ADDRESS LSD 

SET LOAD ADDRESS MSD 



AID10340 
AID10350 
AID10360 
AID10370 
AID10380 

AID10390 
AI010400 

AIDlOi+lO 
AID10420 
-* AID10430 
AI010140 
AID10450 

ATU10460 

AjD10<»70 

AID10"+80 
AID1O49O 

AiDlOSOO 

AID10510 

AID10520 
AID10530 
AID105U0 
AID10550 
AID10560 
♦ AIO10S70 

AIU10580 
AIU10590 

AID10600 

AID10610 
AID10620 

AlDl0fe30 

AI010640 

AID10650 

AID10660 

AID10670 

AIDlOfeeo 

AID10690 
AID10700 
AID10710 
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0C1CR 

0C20R 
0C22R 
0C2<*R 

0C28R 

0C2CR 
0C2ER 

0C32R 
0C3*R 
0C36R 

0C3AR 
0C3CR 
0C3ER 
0C10R 
0C^2R 
OC«mR 
OC't&R 
0C+8R 
OC«+AR 
OCHCR 
OCtER 
0C50R 

0C5HR 

0C38R 
0C5AR 

0C5ER 
0C60R 
0C62R 
0C6HR 
0C66R 

0C6AR 

OC&ER 
0C70R 
0C72R 
0C7HR 
0C76R 
0C78R 
0C7AR 
0C7CR 
0C7ER 
0C80R 
0C82R 

0C86R 
0C88R 



08i*7R 

C8H0 

0C72R 

24BE 

055E 

«*280 

0C5«tR 

C5B0 

00D4 

2183 

tllO 

0C92R 

2"*A8 

012«» 

<+87E 

0000 

9<+A7 

90A«» 

012H 

9<tA7 

012<* 

08A7 

90a«» 

012<f 

08A7 

012«* 

26E2 

<*300 

0C22R 

C5B0 

00D7 

2183 

«H10 

0C92R 

24A3 

012<+ 

24A1 

012«* 

mio 

0C92R 

0100 

OBOOR 

<»300 

0000 

2«tCF 

OtAC 

91A<* 

081B 

9011 

2383 

91Ct 

90A«» 

D301 

08<t2R 

OHOC 

060A 



LDR1 



LHI 


OPEN.LDPACK 






LIS 

CLHR 

BL 


Rll.lt 

VALUEiFROM 

LDREND 


SET 

END 
YES 


BUFFER INDEX 
OF EXTENT ? 


CLHI 


R11.212 


NO ■ 


• END OF BUFFER 


BLS 
BAL 


LDR2 
LINK.LDROUT 


NO - CONTINUE 

YES - OUTPUT BUFFER 



LDR2 



LIS RIO. 8 

BALR LINKS.OPEN 

LH LENGTH, O(FROM) 



EXBR 

SRLS 

BALR 

EXBR 

BALR 

LHR 

SRLS 

BALR 

LHR 

BALR 

AIS 

B 



RlO. LENGTH 
RIOit 

LINKS.OPEN 
RIO. LENGTH 
LINKS.OPEN 
RlO. LENGTH 
R10.<t 

LINKS.OPEN 
RlO. LENGTH 
LINKS.OPEN 
FROM. 2 
LDR1 



LDREND CLHI Rll.215 



L0R5 



LDR4 
LOPACK 



LDPKl 



BLS 
BAL 

LIS 

BALR 

LIS 

BALR 
BAL 

LM 

DC 

DC 

LIS 

NHR 

SLLS 

LHR 

SRLS 

BNCS 

SLLS 

SRLS 

LB 

NHR 
OHR 



L0R5 

LINK.LDROUT 

RlO. 3 

LINKS.OPEN 

RlO.l 

LINKS.OPEN 
LINK.LDROUT 

RO.SAVE 

X'tSOO' 



R12.15 

R10.R12 

RlO.H 

LINK.R11 

LINK.1 

LDPKl 

R12.4 

RlO.i* 

RO.OUTbUF(LINK) PICK UP BYTE 



SET LOADER ITEM TYPE 
PACK A HALF BYTE 
GET A HALFWORD 

MAKE MSB LOW 

SHIFT OUT LS BITS 

PACK A HALF BYTE - MSD 

MAKE MSB LOW 

PACK A HALF BYTE - LSD 

GET LSB 

SHIFT OUT LS BITS 

PACK A HALF BYTE - MSD 

GET LS BITS 

PACK A HALF BYTE - LSD 

INCREMENT POINTER 

CONTINUE 

INDEX = END 7 

USE SAME RECORD 
OUTPUT BUFFER 

SET ABSOLUTE TOGGLE 

SET END LOADER ITEM 

OUTPUT BUFFER 

RESTORE REGISTERS 

RETURN 

MASK 

SINGLE OUT HALF BYTE 

SAVE INDEX 
DIVIDE INDEX 
CARRY 7 
SHIFT MASK 
SHIFT HALF BYTE 



R0.R12 
R0.R10 



ENSURE DESIRED HALF BYTE IS HIGH 
COMBINE WITH PACKING VALUE 



AID10720 

AID10730 
AID10740 
AID10750 

AID10760 

AID10770 
AID10780 

AIQ10790 
AI010800 

Aimoeio 

AID10820 
AID10830 
AID108H0 
AID10850 
AID10860 
AID10870 
AID10880 
AID10890 
AID10900 
AID10910 
AID10920 
AID10930 

AID109«»0 

AID10950 
AI010960 

AID10970 
AID10980 
AI010990 
AID11000 
AID11010 

AI011020 

AID11030 
AlDllO'+O 
AID11050 
AID11060 
AID11070 
AID11080 
AID11090 
AID11100 
AID11110 
AID11120 
AID11130 

AlDlll^O 
AID11150 
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OCflAH 

0C8ER 
0C90R 
0C92R 

0C96R 

0C9AR 

0C9ER 
OCAOR 
0CA2R 

0CA6R 

OCAAR 
OCACR 
OCAER 

0CB2R 
OCBHR 

0CB8R 
OCBAR 
OCBCR 
OCBER 

0CC2R 
OCC<*R 



0CC6R 

OCCAR 

OCCER 

0CD2R 

OC06R 
0CD8R 
OCOAR 
OCDCR 
OCDER 



l)?01 

08H2R 

26B1 

030? 

C8A0 

FFFF 

C8B0 

006B 

<*7AB 

08t2R 

27B2 

2213 

tOAO 

08<t«»R 

4120 

08AER 

08AE 

oeoo 

C8D0 

006C 

07EE 

tl20 

07B6R 

08EA 

08D0 

2701 

tODo 

0842R 

2<tfi8 

0301 



4020 

OCDER 

C8F0 

0842R 

4120 

167CR 

4120 

08C4R 

0AE7 

095E 

2288 

•♦300 

0000 



STli R0.OUTBUF<LINK) STORE IN OUTPUT BUFFER 



OCEOR C650 

0001 
0CE4R 4020 

0CF6R 
0CE8R «*050 

08C2R 
OCECR 40E0 

08COR 
OCFOR 4120 



AIS 
BR 
LUROUT LHI 

LHI 

LDR3 XH 



HI 1 1 1 
LINKS 
R10.-1 



BUMP INDEX 



R11.107 * CALCULATE 

RlO.OUTBUF(Rll) * CHECKSUM 

DECREMENT INDEX 

STORE CHECKSUM IN RECORD 

OUTPUT RECORD 



SIS K11.2 

BNMS LDR3 

STH R10«OUTbUF*2 

BAL LINKS, BINOUT 



SETBUF LHR 
LHR 
LHI 

XHR 
BAL 

LHR 
LHR 
SIS 
STH 

LIS 

BR 



RlO.FROM 
RO,NUMBER 
NUMBER. 108 

FROM, FROM 
LINKS, CLEAR 

FROM, RIO 
NUMBER.RO 
NUMBER,! 
NUMBER, OUTBUF 

R11.8 
LINK 



SAVE FROM ADDRESS 
SAVE RECORD NUMBER 



SET CLEARING VALUE 
CLEAR BUFFER 

RESTORE ADDRESS POINTER 
RESTORE RECORD NUMBER 
DECREMENT RECORD NUMBER 
STORE IN BUFFER 

RESET INDEX 
RETURN 



* ASSEMBLY FORMAT DUMP 

ASMDMP STH LINKS, ASM1 



lhi to.outbuf 

bal links. xlatea 

baL Links, list 

ahr from, length 

chr value. from 

bnls asmdmp+4 

DC X»4300» 

ASM1 DC 



SAVE LINK 

RESET BUFFER POINTER 

TRANSLATE TO ASSEMBLER 

PRINT LINE 

INCREMENT ADDRESS 
HIT HIGH LIMIT? 
NO, CONTINUE 
RETURN 



* BINARY DUMP FORMAT 
HExDMP OHI VALUE, 1 

STH LINKS, HOI 

STh VALUE, BINBLK+6 

STH FR0M,BINBLK+4 

BAL LINKS, BINOUT 



ODD END ADDRESS 
SAVE RETURN LINK 
PRIME PARAM BLOCK 

WRITE BLOCK 



AILUllfeO 

A1D11170 
AID11180 
AID11190 

AID11200 

AID11210 

AID11220 
AID11230 
AID11240 

AID11250 

AID11260 
AID11270 
AID11280 

AID11290 
AID11300 

AID11310 
A1D11320 
AID11330 
AID11340 

AID11350 

AID11360 

.* AID11370 

AID11380 
AID11390 

AID11400 

AlOllHlO 

AID11420 

AID11130 
AID11440 
AID11450 
AI011460 
A 1 011170 
■* AID11H80 
AID11490 
AID11500 

AID11510 

AID11520 

AI011530 

AID11540 
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08AER 
OCFtR H300 
0CF6R 0000 



HD1 



DC 
DC 



X«»300« 




RETURN 



0CF8R 
OCFCR 

odoor 

ODO^R 
0D06R 

ODOAR 

OOOER 
0D10R 
0D12R 

0D16R 
0D18R 
0D1AR 
ODlCR 
0D1ER 

0D22R 

0D26R 
0D28R 
0D2AR 
002CR 

onsoR 

0034R 
0D36R 

0D3AR 

0D3ER 
OD^OR 

OD^R 
0Df6R 

0H1+8R 



<*020 

U0t6R 

HOEO 

0D«f8R 

C8E0 

0D48R 

2«»D2 

4120 

OfOER 

t8E0 

0D48R 

26F6 

2108 

>U20 

OtOER 

26E2 

26F5 

2701 

2035 

C8C0 

002 A 

02CF 

0000 

26F2 

26DE 

OBED 

•U20 

076CR 

D2CF 

0011 

OAEO 

C»F0 

0842R 

•♦120 

08C«»R 

095E 

4380 

OCFCR 

<t300 

0000 

0000 



OD«»AR 2HC6 
0D4CR 24D2 
0D4ER C8E0 

0A96R 
0D52R 2408 
0D54R C8F0 

0848R 
0D58R 48RC 



CD2 



CHRl 
CD1 



UTIL 



UTl 



CHARACTER FORMAT DUMP 



CHRDMP STH 
STH 
LHI 



LIS 
BAL 

LH 

AIS 
LIS 

BAL 

AIS 

AIS 

SIS 

8NZS 

LHI 



CHR 
BNL 

DC 
OC 
UC 



LINKS, CHRl 

FROM.COl 

FROM.cDl 

Nui1BER,2 
LINKS, XLATEH 

FROMtCDl 

TO, 6 
R0.8 
LINKS, XLATEH 

FROM", 2 
TO, 5 
R0,1 
C02 
R^2,X«2A , 



STB R12,0(TO> 

AIs TO, 2 

A IS NUMBER, It 

SHR FROM, NUMBER 

BAL LINKS.XLaTEC 

STB R12,17(T0) 

AHR FROM. NUMBER 

LHI TOtOUTBUF 

BAL LINKS, LIST 



VALUE, FROM 
CHRDMP+4 

X'«»300» 

u 





SAVE LINK 

SAVE FROM ADDRESS 

SET A S SENDER FIELD 

TwO BYTE ADDRESS 
TRANSLATE TO ASCII 

RELOAD ADDRESS 

BUMP POINTER 
BLOCK COUNTER 
TRANSLATE TO ASCII 

BUMP CORE ADDRESS 
BUMP LINE INDEX 
DECREMENT COUNTER 

STAR 

insert star 

bump line pointer 
bump byte count 
reset core address 
translate to character 

insert star 

bump address by sixteen 
reset buffer 

output print line 

hit high limit? 
no, continue 

RETURN 



UTILITY <U) DUMP HANDLER 
LIS R12,6 TABLE COUNTER 

LIS NUMBER, 2 SET TRANSLATION LENGTH 
LHI FROM.OPSAVE SET WORK AREA 



LIS 

LHI 

LH 



R0,8 
TO.OUTBUF+6 



ITEM COUNTER 
SET PRINT LINE 



R11,MSGTBL(R12) ADDRESS OF FIRST TABLF MSB 



AID11550 
AID11560 
•* AID11570 
AID11580 
AID11590 

AID11600 

AIU11610 

AID11620 
AID11630 

AlDll«>«*0 

AIO11650 
AI011660 
AI011670 

AJ011680 
AI011690 
AID11700 
AI011710 
AID11720 

AID11730 

AID117U0 
AIO11750 
AID11760 
AID11770 

AIU11780 

AI011790 
AlUllflOO 

Aiuiir.:: 

AID11820 
AID11830 

AjDiietn 

AID11850 
AI011860 
-* AID11870 
AID11880 
AID11890 
AID11900 
AID11910 

AIIUl''2u 
AID11930 

AI(U1 C "40 



OS AIDS 




ODDER 


0D5CR 


H85B 




OOOO 


OD60R 


f050 




08t2R 


0D6UR 


H6BB 




0002 


0D68R 


<*0B0 




08HHR 


ODfeCR 


tesc 




OUEER 


0D70R 


«t85C 




0DE6R 


0D7tR 


<+8B5 




0000 


OD78R 


C5B0 




FFFF 


0D7CR 


2336 


0D7ER 


26F6 


OD80R 


40B0 




0A96R 


ODflHR 


tl20 




040EH 


0D88R 


0A58 


OD8AR 


2701 


OD8CR 


203C 


ODfiER 


1*120 




OflCIR 


0092r 


27C? 


0D9<*R 


t310 




0D52R 


0D98R 


2tOl 


OD^AR 


CflFO 




0851R 


009ER 


^8B0 




0AH6H 


ODA2R 


2336 


0DA4R 


C8B0 




0030 


ODAflR 


D2BF 




0000 


OOACR 


26F6 


ODAER 


<+8B0 




HOAR 


ODB2R 


07CC 


ODH^R 


2<+0F 


ODH6R 


90B1 


ODB8R 


238B 


OOBAR 


06AC 


ODBCR 


C6A0 




0030 


one or 


CbAO 




003A 


ODC4R 


2182 


ODC6R 


26A7 


ODC6R 


D2AF 
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UT2 



UT3 



UT3A 



UT4 



LH 

STH 

LH 

STH 

LH 

LH 

LH 

CLHI 

BtS 
AIS 
STH 



VALUE, 0<RH) 
VALUE, OUTOUF 
R11,2(R11I 
Rll.OUTBUF+2 



MESSAGE 

STORE IN PRINT LINt 

MESSAGE 

STORE IN PRINT LINt 



M0DE,LENTBL<R12) LENGTH OF TABLE FNTRY 
VALUE, E1TBL(R12) ADDRESS OF TABLE 
Rll.O(VALUE) ADRESS OF SENTRY 
DELETED ? 



Kll.-l 

UT3 

TO, 6 

Rll.OPSAVE 



YES 

BUMP LINE INDEX 

STORE ADDRESS IN WO«K AREA 



BAL LINKS, XLATEH TRANSLATE TO ASCII 



AHR 
SIS 
BNZS 
BAL 

SIS 
BNM 

LIS 

LHI 

LH 

BZS 
LHI 



VALUE, MODE 
K0,1 
UT2 
LINKS, LIST 

R12.2 
UT1 

NUMBER,! 
T0.0UTRUF+1S 

Rll.PRORO 

UT3A 
R11,C»0' 



STB R11,0(T0) 

AIS TO, 6 

LH Rll.PROREG-2 

XHR R12.R12 

LIS R0,15 

SRLS Rll.l 

BNCS UT7 

LHR R10.R12 

OHI RiO,C»0« 

CLHI R10,X«3A« 



UT6 



HL.S 
AIS 
STB 



UT6 

Rl0,7 

R10,0(TO) 



BUMP ENTRY BY INOF X 
DECREMENT ENTRy COUNTER 

PRINT LINL 

DECREMENT LIST COUNTER 
CONTINUE 

SET TRANSLATION LFMfcTH 
PRINTLINE INDEX 

CHECK REG ZERO 

NOT PROTECTED 
ZERO 

STORE IN PRINTLINf 

BUMP INUEX 

REG POSITIONAL COUNTER 

CLEAR REG COUNTER 

COUNTER 

SHIFT OUT A POSITIONAL HjT 

NOT SET 

ASCII-IZE 

TEN OR BETTER 7 

NO 

SET FOR ASCII TEN OR HrTTTR 

STORE IN PRINT LINF 



AID11950 

AID11960 

AID11970 

AID11980 

A1D11990 

AID12000 

AI012010 

AID12020 

AID12030 
AID120<*0 
AID12050 

AID12060 

AIO12070 
AID12080 
AID12090 
AID12100 

AID12H0 
AI012120 

AI012130 
AID121t0 

AID121H1 

AI0121<*2 
AID121<t3 

Al0l2mH 

AID121<*5 
AID12150 

AID12160 
AID12170 
AI012180 
AID12190 
AID12200 
AIU12210 

AID12220 

AID12230 
AID12240 
AID12250 
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ODCCR 
0I1CER 
ODDOR 
0OD2R 
ODOHR 
0DD6R 

ODDAP 

ODDER 
ODEOR 
0DE2R 
0OE4R 
0OE6R 
0DE8R 
ODEAR 
ODECR 
ODEER 
OOFOR 
0OF2R 
0DF4R 



0000 

26F6 

26C1 

2701 

2112 

220F 

<*120 

08C4R 

•+300 

OOtfiR 

0A90R 

0A8CR 

134CR 

122«tR 

112ER 

10AAR 

1056R 

10B8R 

000«t 

OOOC 

0006 

000<* 



0OF6R 

ODFAR 

ODFER 

0E02R 

0E06R 
OEOBR 
OEOAR 

OEOER 
0E10R 

OEltR 
0E16K 
0E18R 

0E1CR 
0E1ER 

0E22R 

0E26R 

0E2AR 
0E2CR 
0E2ER 

0E32R 
0E3<+R 



«»020 

0FB4R 

40C0 

0FC2R 

C800 

0F9AR 

4000 

00B6 

2<*0F 

2<»7<+ 

01E4 

0000 

9<t C E 

C3C0 

0040 

2135 

2772 

C8F0 

0200 

0700 

DOEO 

0FB6R 

C8B0 

OOOD 

D<+CB 

OFDER 

2335 

27B1 

<+2lO 

OEAOH 

2206 

OfiOO 



UT7 



UT5 



MRGTfiL 



E1TBL 



LENTBL 



* 
EX 



XI 



EX2 



AIS 


TO. 6 




BUMP INDEX 


AIS 


R12.1 




BUMP REG COUNTER 


SIS 


R0,1 




DECREMENT REG COUNTER 


BMS 


UT5 




DONE 


BS 


UT<* 




CONTINUE 


BAL 


LINKS, 


.LIST 





DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



LDREG 

PROMSG 

SNPMSG 

TRCMSG 

BRKMSG 

PROCEL 

ElE<* 

E1E0 

ElE2 

H 

12 

6 

1 



RETURN 



EXECUTE - PROCESS INTERPRETIvELY 
STH LINKS, EXIT+2 



SAVE RETURN LINK 



STH 


R12.0PCELL 


SAVE OPEN CELL 


LHI 


R0.EX6A 


SVC 13 RETURN ADDRESS 


STH 


R0»X»B6» 




LIS 
LIS 

LM 


R0.15 
LENGTH, <4 
FROM,0(OPEN) 


SET FLAG 

PRESET INSTRUCTION LENGTH 

GET INSTRUCTION 



EXBR R12.FR0M 
THI R12.X»40» 



EX2B 



BNZS 

SIS 

LHI 

XHR 
STM 

LHI 

CLB 

BES 
SIS 

HM 

BS 
LHR 



OP CODE 

LONG INSTRUCTION? 

YES 

SET SIZE FOR SHCfM J MSTRUCTION 

NO - NO-OP NEXT HALFWORD 



XI 

LENGTH, 2 
TO,X»200' 

RQ«RO 

FROM.EXBLK STORE INSTR IN EXECUTION BLOCK 

Rll.OPSTOP-OPCODE VOLATILE OP jCOOES 

R12.0PCODEJR11) CHECK LIST 



EX2B 
Rll.l 

EX7 

EX2 
ROiRO 



FOUND 

DECREMENT INDEX 
DONE - NO SIMULATION 

CONTINUE 
CHECK FLAG 



AID12251 
AIO12260 
AID12270 
AHU2280 
AID12290 
AID12300 

AI01231U 

AIU12320 
AIO12330 
A]D123»*0 
A1D12350 
AIIU2360 
AID12370 
AIM12380 
AI012390 
AID12400 
AIO12410 
AID12420 
AIU12430 
.*AiO12t40 
AID12450 
AID12460 

AID12U70 

AID1248U 

AID12490 

AlOl2fi00 
AIQ12M0 
AID12520 

AI012530 
AID12bHU 

AID12550 
AID12S60 
AID12570 

AID12580 
AID12590 

AIU12600 

AIU12610 

AID12b.?,i 
AIlU2f-3(J 
AID^ftU 

AID126bO 
A1012660 



OS AIDS - AU 


TOMATic INTERACTIVE DEBI 


0E36R 


4230 
0E80R 


BN2 


EX3 


OE3AR 


C5B0 
0004 


CLHI 


Rllt4 


0E3ER 


4380 
0EC6R 


BNL 


EX4 


0E42R 


C8B0 
4200 


LHI 


R11«X»4200» 


0E46R 


C4C0 
OOOF 


NHI 


R12iX«0F' 


0E4AR 


27C2 


SIS 


Rl2i2 


0E4CR 


2113 


BMS 


EX2A 


0E4ER 


C6B0 
0100 


OHI 


Rll.X'100' 


0E52R 


93CE EX2A LBR 


Rl2tFR0M 


0E54R 


C4C0 
OOFO 


NHI 


R12,X«F0« 


0E58R 


06BC 


OHR 


Rll»Rl2 


0E5AR 


40B0 
0FB6R 


STH 


Rll.EXBLK 


OE5ER 


93BE 


LBR 


Rll,FROH 


0E60R 


C4B0 
OOOF 


NHI 


Rll,X»oF« 


0E64R 


9lBl 


SLLS 


Rll.l 


OE66R 


4810 
0FC2R 


LH 


LlNKtOPCELL 


OEfeAR 


08CE 


LHR 


Rl2,FR0M 


0E6CR 


C3C0 
0100 


THI 


Rl2«X , l00 t 


0E70R 


2333 


BZS 


EX2C 


0E72R 


0A1B 


AHr 


LINK.RH 


QE74R 


2302 


BS 


EX2C+2 


OE76R 


0B1B EX2C SHR 


LINK.RH 


0E78R 


4010 
0FB8R 


STH 


LINK.EXBLK** 


0E7CR 


4300 
0F2AR 


B 


EX5 


OE80R 


C5B0 EX3 CLHI 


Rll»10 




OOOA 






0E84R 


4280 
0F2AR 


BL 


EX5 


OE88R 


C5B0 
OOOC 


CLHI 


Rll«12 


OE8CR 


236A 


BNLS 


EX7 


0E8ER 


48B0 
0FB8R 


LH 


RlltEXBLK+2 


0E92R 


40B0 
OFBER 


STH 


RllfExBLK+8 


OE96R 


C8B0 
0FC4R 


LHI 


Rll.EXBRCl 


0E9AR 


40B0 
0FB8R 


STH 


Rll»EXBLK+2 


OE9ER 


240F 


LIS 


R0«15 


OEAOR 


C810 EX7 LHI 


LINK.EX6 




0F94R 






0EA4R 


4010 


STH 


LlNK»EXRTN 
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SET - LONG INSTRUCTION 
CHECK INDEX FOR SHORT BRANCHES 
NO - RR T YPE 
BLANK BRANCH FORM 

BRANCH TRUE OR FALSE ? 

FALSE BRANCH 

OP COOE 

PICK UP CONDITION CODE MASK 

SET BLANK'S MASK 

PLACE INTO EXECUTION nLOCK 

FULL INSTRUCTION 

MASK FOR HALFWORD BRANCH 

DOUBLE FOR BYTE 
OPEN CELL ADDRESS 

RESTORE OP CODE 
BRANCH FORWARD ? 

NOPE 

INCrEMETN P-COUNTEr 

decrement p-counter 

store branch addr in ex block 

execute branch 

btc.bfc or bal ? 

yes - execute 

bxle or bxh 7 

n/- must be lpsw or svc 
save branch aooress 



INSERT AIDS BRANCH ADDRESS 



SET FLAG 

RETURN ADDRESS AFTER EXECUTION 

STORE IN EXECUTION BLOCK 



AID12670 

AID12680 

AID12690 

AID12700 

AID12710 

AID12720 
AID12730 
AI012740 

AIU12750 
AID12760 

AID12770 
AID12780 

AID12790 
AID12800 

AID12810 
AID12820 

AID12830 
AID12840 

AID12850 
AID12860 
AID12870 
AID12880 
AID12890 

AID12900 

AID12910 

AID12920 

AID12930 

AID12940 
AID12950 

AID12960 

AID12970 

AlDi2980 

AID12990 
AID13000 

AIO13010 



os a ins 




OFBCR 


0EA8R 


i+ato 




0FC2U 


OEACR 


C5E0 




E1EO 


OEBOR 


2387 


0EB2R 


0A<*7 


OEB«*R 


<*0«tO 




OFC2R 


OEBBR 


0700 


OEBAR 


1300 




0F7CR 


OEBER 


i»Oi»0 




OfOAR 


0EC2R 


•♦300 




03F8R 


0EC6R 


C3C0 




0002 


OECAR 


t230 




0F08R 


OECER 


93CE 


OEDOR 


CfCO 




OOFO 


OEDHR 


90C3 


OED6R 


t»8B0 




0FC2R 


OEDAR 


0AB7 


DEDCR 


<»0BC 




0A98R 


OEEOR 


93CE 


OEE2R 


D3B0 




0FB6R 


OEEfcR 


27B1 


OEEflR 


2133 


OEEAR 


HOBO 




0FB8R 


OEEER 


07BB 


OEFOR 


CHCO 




OOOF 


OEF^R 


233H 


OEF&R 


91C1 


0EF8R 


tfiBC 




0A98R 


OEFCR 


4AB0 




0FB8R 


OFOOR 


10B0 




0FC2R 


OFOHR 


<*300 




0FA6R 


0F08R 


D3C0 




0FB7R 


OFOCR 


CHCO 




OOOF 


OFIOR 


91C1 


0F12R 


tflCC 




0A98R 
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XA8 



EXH 



EXtfA 



EX«*B 



LH 


OPENtOPCELL 


OPEN CELL ADDRESS 


CLHI 


FROMtX'ElEO* 


CHECK FOR SENTRY 


BNLS 
AHR 

STH 


XA8 

OPEN, LENGTH 

OPEN.OPCELL 


YES 

INCREMENT FOR INSTR LENGTH 
SAVE NEW OPEN CELL 


XHR 
B 


RO.RO 
EXCUTE 


REGISTER RESTORE FLAG 
EXECUTE INSTRUCTION 


STH 


0PEN.G3 


ADDRESS FOR RETURN 


B 


blO 


RETURN 


THI 


R12.2 


BRANCH ON REGISTER 7 


BNZ 


EXtB 


YES 


LBR 
NHI 


R12iFR0M 
R12,X»F0« 


YES - GET REG1 


SftLS 
LH 


R12.3 
Rll.OPCELL 


INDEX-IZE 

OPEN CELL ADDRESS 


AHR 
STH 


Rll, LENGTH 
R11,REGSAV(R12) 


AOD INSTRUCTION LENGTH 
STORE IN REG SAVE AREA 


LBR 
LB 


R12.FR0M 
Rll.EXBLK 


GET REG2 
GET OP CODE 


SIS 

BNZS 
STH 


Rll.l 
RlltEXBLK+2 


CHECK FOR BALR 

IF NOT SKIP AROUND 

ZERO EXECUTION BLOCK 


XHR 

NHI 


RlltRll 
Rl2iX»F» 


CLEAR REG 
CHECK REG 2 


BZS 

SLLS 

LH 


EX«*A 

R12.1 

Rll,REGSAV(Rl2) 


NO INDEX 
INDEX-IZE 
LOAD INDEX 


AH 


RU«EXBLK+2 


ADO BASE 


STH 


RlltOPCELL 




B 


EXRTRN 


RETURN 


LB 


Rl2iEXBLK+l 


GET BRANCH REGISTER 


NHI 


H12,X«F» 




SLLS 
LH 


Rl2tl 
R12.SaVREG(R12) 


INOEXIZE 

GET REGISTER CONTENTS 



AID13020 

AIU13030 

AID130H0 
AID13050 
AID13060 

AIH13070 
AID13080 

AID13090 

AIU13100 

AID13110 

AID13120 

AID13130 
AID13HV0 

AID13150 
AID13160 

AID1317U 
AIIH3180 

AID13190 
AUJ13191 

AI0131S2 
AID13193 
Air)1319<* 

AID13200 
AID13<!XU 

AID13220 
AI013230 
AID13240 

AID13250 

AID13260 

AID13270 

AI013271 

AID1327? 

AI013273 
AlDl3?7t 



OS AIDS 
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0F16R <tOCO 


STH 


R12.EXBLK+2 


STORE AS ADDRESS 


0FB8R 








0F1AR 48C0 


LH 


R12.EXBLK 


PICK UP OP CODE ETC. 


0FB6R 








0F1ER C6CO 


OHI 


R12«X*4000* 


CHANGE TO FULL BRANCH 


4000 








0F22R C4C0 

FFFO 

0F26R tOCO 


NHI 


R12.X»FFF0» 


REMOVE INDEX REGISTER 


STH 


R12.EXBLK 


INSTRUCTION = FULL BRANCH 


OFB6R 






OF2AR D3CO 


EX5 LB 


R12»EXBLK 


GET OP CODE 


0FB6R 








OF2ER C5CO 


CLHI 


R12»X»41« 


8AL ? 


0041 








0F32R 4330 


BE 


EX4 


YES 


0EC6R 








0F36R 03BO 


LB 


R11,EXBLK+1 


CONDITIONAL BRANCH HANDLER 


0FB7R 








0F3AR C4B0 


NHI 


RU.X'F' 


GET REG2 


OOOF 








0F3ER 2334 


BZS 


EX5A 


SKIP REGISTER 


0F40R 91B1 


SLLS 


Rll.X 


IN0EX-I2E 


0F42R 48BB 


LH 


RlltSAVREG(Rn) 


LOAD REGISTER CONTENTS 


0A98R 








0F46r 4AB0 


EX5A AH 


Rll»ExBLK+2 


ADD BASE ADDRESS 


0FB8R 








0F4AR 40B0 


STH 


Rll,EXBLK+6 


SAVE USER BRANCH ADDR 


OFBER 








0F4ER C8B0 


LHI 


Rli.EXBRCH 


SET AIDS BRANCH INTERCEPT 


0FC8R 








0F52R 07CC 


XHR 


Rl2,Rl2 


CLEAR REG 


0F54R 4oCo 


STH 


Rl2,EXBLK+2 


CLEAR BASE 


0FB8R 








0F58R D3C0 


LB 


R12«EXBLK+1 


GET R2 


0FB7R 








0F5CR C4C0 


NHI 


R12,X«F0» 


KEEP Rl - ELIM R2 


OOFO 








0F60R C6C0 


OHI 


Rl2tX»0B« 


SET IN AIDS BRANCH REGISTER 


OOOB 








0F64R 02C0 

0FB7R 
0F68R C810 


STb 


R12.EXBLK+1 


STORE IN EXECUTION BLOCK 


LHI 


LINK.EX6+4 


SET RETURN 


0F98R 








0F6CR 401.0 


STH 


LINK.EXRTN 




OFBCR 








0F70R 4840 


LH 


0PEN,0PCELL 


NEW OPEN CELL CALc. 


0FC2R 








0F74R 0A47 


AHR 


OPEN, LENGTH 


SET LENGTH 


0F76R 4040 


STH 


OPEN.OPCELL 


SAVE OPEN CELL (NEW) 


0FC2R 








0F7AR 240F 


LIS 


R0.15 


SET NO REG FLAG 


0F7CR 48C0 

OFCOR 
OF80R 40C0 


EXCUTE LH 


R12.CCSAVE 


OLD CONOITION COOE 


STH 


R12.EX0UT 


SET STATUS / CC 


0F90R 








0F84R 0800 


LHR 


RO.RO 


CHECK FOR USER REG RrSTnR*T 



AID13275 

AID13276 

AIU13277 

AI013278 

AI013279 

AID13280 

AID13281 

AI013282 

AID13283 

AID13290 

AID13300 
AID13310 
AID13320 

AID13330 

AI013340 

AID13350 

AID13360 
AID13370 

AID13380 

AID13390 

AID13400 

AID13410 

AID13420 

AID13430 

AI013440 

AID13450 
AI013460 



A I Dl 3470 
AID13480 

AID13490 

AIO13S00 
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0F86R 
0F88R 

0F8CR 

0F90R 

0F94R 

0F98R 
0F9AR 

0F9ER 

0FA2R 

0FA6R 

OFAAR 

OFAER 

0FB2R 

0FB6R 
0FB8R 
OFBAR 
OFBCR 
OFBER 
OFCOR 
0FC2R 
OFCtR 

0FC8R 

OFCCR 

OFDOR 

0FQ4R 

OF08R 

OFDCR 



2133 

0100 

0A9BR 

C200 

0F90R 

0000 

0FB6R 

0000 

0A98R 

E1DF 

taoo 

0096 

C400 

7FFF 

4000 

OFCOR 

0100 

OAEOR 

4840 

0FC2R 

C200 

0FB2R 

7E00 

0000 

0000 

0000 

4300 

0000 

0000 

0000 

0000 

0000 

0A98R 

484O 

OFBER 

4040 

0FC2R 

D100 

0A98R 

C800 

0FA6R 

4000 

00B6 

E1DF 



OFDER 2021 

OFEOR 2223 

0FE2R 0203 

0FE4R 0142 

0FE6R 4341 

OFEBU COCl 

OFEAR E1C2 
OFEBR 



BNZS EXLPSW 

LM ROtSAVREG 

EXLPSW LPSW EXOUT 

EXOUT DC OtEXBLK 

EX6 STM ROtSAVREG 



DC 

LH 



EX6A 

NHI 
STH 

EXRTRN LM 
LH 



X«E1DF» 
R0»X»96» 



EXIT 
EXBLK 



R0.X»7FFF» 
RO.CCSAVE 
Rp.AIDSAV 
OPENtOPCELL 

LPSw EXIT 

DC X»7E00«.0 



EXRTN 



DC 

DC 

DC 

DC 

DC 

CCSaVE OC 

OPCELL OC 

EXBRC1 STM 

EXBRCH LH 

STH 

LM 

LHI 

STH 

OC 







X»4300« 









Rq.savreg 

OPEN.EXBLK-t-e 

OPEN.OPCELL 

ROtSAVREG 

ROtEXRTRN 

R0iX»B6« 

X'EIDF* 



NO 
YES 

EXECUTE INSTRUCTION 



SAVE USER REGISTERS 

SVC 13 

GET STATUS / CC 

REMOVE WAIT BIT 

SAVE CONDITION CODE 

RESTORE UTILITY REGISTERS 

NEW CURRENT OPEN CELL 

LEAVE INTERPRETIVE PROCESSOR 

HALFWORD INSTRUCTION 
FULLWORD INSTRUCTION 

RETURN 

ADDRESS HALFWORD 

CONDITION CODE SAVE AREA 

RESTORE USER REGISTERS 

GET BRANCH ADDRESS 

STORE IN SAVE AREA 

RESTORE USER REGISTERS 

SET RETURN ADDRESS 

FUDGE AROUND COND CODE 

EXIT TO USt" 



VOLATILE OP-COOES 



OPCODE. 



OPSTOP 



DC 
DC 
DC 

DC 
DC 
DC 
DC 
EQU 



X»2021' 
X«2223« 
X«0203» 
X»01H2« 
X«4341» 
X'COCI' 
X»E1C2» 
*-l 



SENTINEL INSERTION 



AID13510 
AID13S20 

AID13530 

AI013540 

AID13550 

AID13560 
AID13570 

AI013580 

AID13590 

AID13600 

AID13610 

AID13620 

AID1363Q 

AID13640 
AID13650 
AID13660 
AID13670 
AI0136B0 
AID13690 
AI013700 
AID13701 

AI013710 

AID13720 

AI0137au 

AI013731 

AID13732 

AID13740 
AI013750 
AID13760 
AID13770 
AID13780 
AI013790 
AID13800 
AI013B10 
AID13820 
ATU13830 
AID13840 
AI013850 
AID138feO 



OS AIDS 



OFECR 

OFFOR 
0FF2R 
0FF4R 

OFF8R 

OFFCR 
OFFER 

1002R 

1006R 

100AR 

100ER 

1012R 
101<*R 

1018H 
101AR 

101ER 
1020R 

102«»R 

1028R 

102CR 
102ER 

1032R 
103HR 

1038R 
103AR 
103CR 

10«»0R 

10HHR 
10H6R 
lO^BR 

lO«tCR 

1050R 



D3D0 

0A78R 

08DD 

0336 

C800 

0050 

DtOO 

OAHER 

0286 

CflEO 

0A79K 

C8F0 

0A96R 

HODO 

0A96R 

m?o 

OHHCH 

«f850 

0A96R 

OAEO 

D3DE 

0000 

08DD 

•♦330 

1040R 

26E1 

<*0D0 

0A96R 

H120 

04HCR 

H810 

0A96R 

OAEO 

D3DE 

0000 

26E1 

«*0OF 

0000 

08DD 

2333 

4120 

01B2R 

0300 

0A4FR 

08F1 

08E5 

D350 

0A50R 

4120 

096AR 

•♦300 

00<*6R 
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ENTER LB NUMBER ,OPRANO GET COMMAND 



El 



LHR 
BZR 
LHI 



BLR 
LHI 

LHI 

STH 

BAL 

LH 

AHR 
LB 

LHR 
BZ 

AIS 

STH 

BAL 

LH 

AHR 
LB 

AIS 
STH 

LHR 
BZS 
BAL 

LB 

LHR 
LHR 
LB 

BAL 

B 



NUMBER, NUMBER 

CMDER 

R0«X«50 t 



CLB RO, BUFFER 



CMDER 
FROM.OPRAND+1 

tO.OPSAVE 

NUMBER, OPSAVE 

LINKS, XLATHB 

VALUE, OPS AVE 

FROM, NUMBER 
NUMBER, 0( FROM) 

NUMBER, NUMBER 
El 

FR0M,1 
NUMBER, OPSaVE 

LINKS, XlATHB 

LINK, OPSAVE 

FROM, NUMBER 
NUMBER, (FROM) 

FROM.l 

number, 0( to) 
Number, number 

El 

LINKS, XLATDB 

RO.BUFFER+l 

TO. LINK 
FROM, VALUE 



ZERO = COMMAND ERROR 



PARAMETER CHECK 

LESS = COMMAND ERROR 
OPERAND STORAGE ADDR 



CLEAR RECEIVER 

TRANSLATE BEGIN ADDRESS 

KEEP IN REGISTER 

BUMP TO NEXT OPERAND 
PICK UP. LENGTH 

NO OPERAND ? 
YES BYPASS 

OPERAND STORAGE ADDR 
CLEAR RECEIVER 

TRANSLATE END ADDRESS 



BUMP TO NEXT OPERAND 
GET LENGTH 



CLEAR CELL 

CHECK FOR DEFAULT 

TRANSLATE NO OF EXECUTIONS 

SECONDARY DIRECTIVE 

END ADDRESS 
DUMP TYPE 



VALUE, BUFFER + 2 TYPE DUMP 
LINKS, TABC GO TO HANDLER 
LDREG 



AI013870 

AID13880 
AID13890 
AID13891 

AI013892 

AID13893 
AID13900 

AID13910 

AID13920 

AID13930 

AI013940 

AID13950 
AID13960 

AI013970 
AID13980 

AID13990 
AIDmOOO 

AID14010 

AID14020 

AID11030 
AID14040 

AID1H050 
AID14060 

AID14070 

AID14080 
AI01U090 

AIDlflOO 



1054R 0000 
1056R 



E1E0 



SENTRY POINT TABLES 
DC 

EOU * 



AID14110 
AID14120 
AI014130 

Aiommo 

AID14150 

■ *AItmi60 
AID14170 
AID1«U80 
AID1H190 
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1056R 
1056R 



105CR 

1062R 

1068R 

106ER 

107«*R 

107AR 

1080R 

1086R 
1086R 
1088R 
1088R 
1088R 

10QCR 

1090R 

109HR 

1098R 

109CR 

10A0R 

10A<+R 

10A8R 
10A8R 
10AAR 
10AAR 
10AAR 



10B6R 



FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 

FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 

0000 



FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 

0000 



FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 



ElEON 
E1E2 



E1E2N 
ElE«f 



DO 
DC 



DC 



DC 



DC 



DC 

DC 

EOU 

DC 

EOU 

DO 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

EQU 

DC 

EOu 

DO 

DC 



8 

•lfli- 



-l.-l." 



•lt-1.- 



DC -J « -It- 
DC -l.-l.- 



-l.-l.' 

-lt-lf 

* 


. * 

a 
-l.-l 

-1,-1 
-l.-l 
-l.-l 
-l.-l 
-1 . -1 
-1»-1 



* 
8 



DC 



•1» -l.-l. -l.-l. -1 



•1. -l.-l. -1. -l.-l 



AID1H200 
AID1 ( *210 



AIDlt210 

AIDlt2lO 

AID1<4210 

AID1U210 

AID11210 

AID1<*210 

AIU1H210 

AID1H220 
AID1<*230 
AItUt2<»G 
AJD11250 
AID14260 

AID1*260 

AID1*260 

AID14260 

AID14260 

AI0m260 

A10m260 

AID1H260 

AI01-4270 
AIDli*280 
AID1H290 
AIDlt300 
AIDl«t3lO 



AIDl^3lO 
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10C2R 



10CER 



lOOAR 



10E6R 



10F2R 



lOFER 



HOAR 
HOAR 
110CR 
110CR 
110CR 
110ER 
1110R 
1112R 
111«H* 
1116R 
1118R 
111AR 
111CR 
111ER 
1120R 



FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 

FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 

0000 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



oc 



DC 



DC 



DC 



DC 



DC 



E1E<*N EQU 
DC 

PROREG EQU 
00 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 



■l.-lt-l«-lt-l«-l 



•l.-lt-li-l.-l.-l 



•lt-l»-lt-l«-l»-l 



•l.-l«-l«-lt-lt-l 



•1»-1«-1«-1«-1»-1 



•lt-l.-lt-lt-lt-l 





* 




b 











AI01H310 



AID1«*310 



AIDlf3lO 



AIDmSlO 



AID1H310 



AIDmSlO 



AID11320 

AID1«30 

AIDIH3H0 

AIDl<t350 

AIDl«f360 

AID1H360 

AI014360 

AID14360 

AI01H360 

AIDi<»360' 

AID14360 

AIDlt360 

Al01f360 

AID14360 

AID1<»360 
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1122R 
1124R 
1126R 
1128R 
112AR 
112CR 
112CR 
112ER 
112ER 
112ER 

1132R 

1136R 

113AR 

113ER 

lli*2R 

11<*6R 

114AR 

11<»ER 
114ER 

1150R 

U5HR 

1158R 

115CR 

1160R 
1162R 
116<tR 
1166R 

116AR 

116ER 

H72R 

1176R 

117AR 

117ER 
1180R 

U8«tR 



0000 
0000 
0000 
0000 
0000 

0000 



FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 

0000 



0000 

0A98R 

DlEO 

0096 

CtEO 

7FFF 

«*0E0 

OFCOR 

27FH 

08«»F 

08CF 

«*0C0 

0A96R 

C8A0 

091"»R 

48BF 

0000 

CHBO 

OOOF 

C8E0 

0A96R 

C8F0 

08<*9R 

24D2 

4120 

OHOER 

*82B 



DC 
OC 
DC 
DC 
DC 

PRORGN EOU 
DC 

PROCEL EQU 
DO 
DC 

OC 

DC 

DC 

DC 

DC 

OC 

DC 

PROCLN EQU 
BUFFLG DC 









* 

* 
6 
-l.-l 

-l.-l 

-l.-l 

-l.-l 

-l.-l 

-l.-l 

-l.-l 

-l.-l 

• 




svcm 



STM 

LB 

nhi 

STH 

SIS 

LHR 
L.HR 
STH 

LHI 

LH 

NHI 

SVC14A LHI 

LHI 

LIS 
BAL 

LH 



SUPERVISOR CALL (1H) HANDLER 

SAVE USER REGS 



RO.SAVREG 

EHQMiX'Slk.V _._ 

FR0M.X»7FFFi 

FROM.CCSAVE 

T0»«» 
OPEN, TO 
R12.T0 
R12.0PSAVE 

R10.ILLEG 

Rll.O(TO) 

R11.15 

FROM.OPSAVE 

T0,0UTBUF*7 

NUMBER. 2 
LINKS, XLATEH 



RESET WAIT BIT 

SAVE CONDITION CODE 

BACK UP TO SVC 

SVC AODRESS 

SAVE SVC ADDR 

SET UP FOR TRANSLATION 



PICK UP INSTR 
MASK FOR X REGISTER 
OPEN CELL ADDRESS 
SET PRINT LINE 



TRANSLATE AODRESS TO ASCII 
LINKS. SVCTAB(Rll) PICK UP ADDRESS 



AID14360 
AID14360 
AID1<*360 
AIO11360 
AID11360 
AID1<»370 
AID1H380 
AID14390 

Aiomfoo 

AI01H«»10 

aidihhio 
Aiommo 
Aiommo 
aiih4<*io 
Aiommo 
Aiomtio 
Ainifuo 

A10m*»20 
AI01«»«»30 

• * AioiH«mo 

AI01HH50 
AIDlt<*60 

AIDl«*«t70 

Aiom<teo 
aioi«»<»9o 

AID1H500 
AIU14510 
AlDm520 
A10m530 

AID14540 

AID14550 

AI01H560 

AI01U570 

AID1«*580 

AID14590 
AID1H600 

AIOl«»€.10 
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118AR 
118SR 0302 
118AR 12CAR 
118CR 11EER 
118ER 13EER 



1190R 

1194R 

1198R 
119AR 
119CR 

11A0R 

tlAHR 

11A8R 

11ACR 

11B0R 

11B«»R 

11B8R 

110CR 
IIBEr 
llCoR 

llCUR 

11C8R 
11CAR 
HCCr 
11CER 

11D2R 

1106R 

HOAR 

UDEr 

11E2R 

11E6R 
11E8R 

11ECR 



0300 

0A4FR 

D3D0 

0A78R 

08DD 

2339 

C8E0 

0A79R 

C8F0 

0A96R 

H120 

04«tCR 

48E0 

0A96R 

fl20 

099ER 

4300 

OOHAR 



48B0 

1086R 

CSBO 

0008 

0386 

07BB 

<*6CB 

1088R 

C5C0 

FFFF 

2333 

26B4 

2206 

40EB 

1088R 

D3CE 

0000 

48 C E 

0000 

fOCB 

108AR 

C6C0 

E1E2 

"♦OCE 

0000 

24Cl 

61C0 

1086R 

0302 



BR LINKS 

SVCTAB OC SVCEO 

DC SVCE2 

DC SVCE4 



BRANCH TO HANDLER 



* ZAP <Z) 

ZAP LB ROtBUFFER+X 

LB NUMBER, OPRAND 

LHR NUMBER, NUMBER 

BZS 21 

LHI FROM.OPRAND+1 

LHI TO.OPSAVE 

BAL LINKS, XL'AtHB" 

LH FR0M,OPSAVE 

Zl BAL LINKS, TABO 

B NAME 



break 



BRi 



BR2 



GET SECOND DIRECTIVE 

GET OPERAND LENGTH 

NO OPERAND ? 
YES - DELETE ALL 
FROM ADDRESS 

TO ADDRESS 

TRANSLATE TO BINARY 

GO TO HANDLER 



BREAKPOINT (B) INSERTION HANDLER 
LH R11,E1E2.2 



CLHI RU,8 

BNLR CMOER 
XHR R11.R11 

Rl2,ElE2 ( R 1 i) 



LH 

CLHl 

BES 
AIS 
BS 

STH 

LB 

LH 

STH 

LHI 

STH 

LIS 

AHM 

BR 



Rl2«-1 

BR2 

Rll,4 

BRI 



entry counter 

list full 7 

yes - command error 
reset index 
load aodress 

address deleted 7 

YES 

NO - INCREMENT INDEX 
CONTINUE 



FROM,ElE2(Rll) STORE SENTRY ADDRESS 

Rl2,0(FROM) GET OP CODE 

Ri2»0(FR6M> GET INST RUCTION 

R12,E1E2+2(R11) STORE INSTRUCTION 

Rl2«X«ElE2* STORE SENTRY 
R12,0<FROM) 



Rl2,l 
R12.E1E2-2 

LINKS 



INCREMENT ENTRY COUNTER 
RETURN 



Al01«f620 
AID14630 
AI01H6HO 
AI01«*650 
•* AID14660 
AID14670 
AID14680 

AID14690 

AID14700 
AI014710 
AI014720 

AID14730 

AID14740 

AI014730 

AlDl«f760 

AID1H770 

•* AIDl<f780 
AID14790 

Aiomsoo 
Aiomsio 

AID1'»820 
AiDlt830 
AIDmetO 

AiDmaso 

AI&1H660 
AID14870 
AID14880 
AID14890 

AID1H900 

AlbTtflO 

AID1H920 

AID14930 

AID14946 

AIDi«t950 
AID11960 

AI01H970 
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11EER 

11F2R 

11F6R 
11F8R 
11FAR 
11FCR 
llFER 

1202R 

1206R 

120AR 

120ER 
1210R 

121HR 

1218R 

121CR 

1220R 
1222R 
122"*R 



1228R 

122CR 

1230R 
1232R 

1236R 

123AR 
123CR 
123ER 
12H0R 
12H2R 

12t6R 
12H8R 
12HAR 

12<*CR 

1252R 



C8R0 
0020 
HSCB 

loatR 

233«» 

27BH 

033a 

2205 

«*8BB 

1086R 

tOBO 

0AB8R 

«t8BC 

0002 

HOBO 

OABAR 

08C«» 

C8tO 

0AB8R 

<U20 

0DF6R 

D1E0 

122<*R 

DOEO 

084<»R 

0129 

030A 

"♦252 

tB3A 



C8B0 

0020 
C8C0 

FFFF 

08DO 

H330 

1258R 

<+f<EB 

108HR 

233t 

27Bt 

0216 

2205 

D1EB 

1084R 

05EC 

0332 

tOFE 

0000 

<*OCU 

108HR 

61C0 

1086R 



*--- — 

* 

SVCE2 



BREAK EXECUTION HANDLER SVC It. 2 
LHI R11.E1E2N-E1E2 LIST LENGTH FOR INDEX 



SVCE21 CLH R12,E1E2-MRU> COMPARE ADOR 



SVCE22 



BES 
SIS 
BZR 

BS 
LH 

STH 

LH 

STH 

LHR 
LHI 

UAL 

LM 

STM 



SVCE22 
RlltH 
RIO 
SVCE21 



HIT 

DECREMENT INDEX 

NOT FOUND = ILLEGAL INSTR 

CONTINUE 



RlltElE2-2(Rll) PICK UP INSTRUCTION 



RlltDBLWK 
Rllt2(Rl2) 

Rll.DBLWK+2 

Rl2iOPEN 
OPEN,DBLWK 

LINKS. EX 

FROM.BRKMSG 

FR0M.0UTBUF+2 



BRKMSG 



BALR LINKS, OUTPUT 
UR INPUT 
OC C»BRKl» 



STORE IN WORK AREA 
SECOND HAlFWORD 
STORE IN WORK AREA 
SAVE OPEN CELL AODR 

EXECUTE INSTR 

BREAK MESSAGE 

PRINT MESSAGE 
GET DIRECTIVE 



*-- • 

ZAPBRK 



ZAP 
LHI 

LHI 

LHR 

BZ 



BREAKPOINT HANDLER 
RlltElE2N-ElE2 SET INDEX TO LIST SIZE 



R12.-1 



CLEARING VALUE 



NUMBER, NUMBER SPECIFIC BRK OR ALL ? 
ZB3 ALL 



ZHl 



ZR2 



CLH FR0M,ElE2-«MRH) COMPARE AODR 



BES 
SIS 

BMR 

BS 

LM 

CLHR 

BER 

STH 

STH 

AHM 



ZB2 

suit 

CMDER 

ZB1 

FR0M,E1E2-'*(R11) 



HIT - DELETE 

CONTINUE 

NOT FOUND = ERROR 

CONTINUE 



FR0M.R12 

LINKS 

TO,0(FROH) 



DELETED ENTRY ? 

IGNORE 

Re STORE INSTRUCTION 



K12,E1E2-MR11) CLEAR ENTRY 

K12.E1E2-2 DECREMENT ENTRY COUNTER 



•* Aiomsao 

AID1<»990 
A1IJ1?)000 

AIIH5010 

AID15020 
AI015030 
Albl50f0 
AID15050 
AID15060 

AID15070 

AID15080 

AID15090 

AID15100 
AID15110 

AID15120 

AID15110 

AID1S1S0 

AjDISlfaO 
AID15170 
AID15180 

-* AID15190 
AID15200 
AID15210 

AID15220 

AID15230 

AID15?4: 

AID15250 

A1D15260 
AID15270 
AID15280 
AIfJl5290 
AID15300 

AI015310 
AID15320 
AIU15330 

AIU153U0 

AIO15350 
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BR LINKS RETURN 

ZB3 



1256R 0302 
1258R 0812 
125AR C820 

1260M 
125ER 220E 
1260R 27Bf 
1262R 2032 
1264R 0301 



1266R 

126AR 

126ER 
1270R 
1272R 

1276R 

127AR 
127CR 
127ER 
1280R 

128UR 
1286R 
1288R 
128AR 
128CR 
128ER 
1290R 
1292R 
129HR 
1296R 
1298R 
129AR 

129ER 

12A2R 

12A6R 

12AAR 
12ACR 
12AER 
12B0R 

12B«»R 

12B8R 

12BCR 

12C0R 



<f8B0 

105HR 

C5B0 

0008 

0386 

0755 

H8C5 

1056R 

C5C0 

FFFF 

2336 

05EC 

2188 

45E5 

1058R 

0286 

2656 

27B1 

2115 

220D 

05FC 

0386 

2206 

05EF 

0386 

2<f01 

6100 

105<fR 

C8B0 

1056R 

C8C0 

FFFF 

*5CB 

0000 

2333 

26B6 

220t 

D3CE 

0000 

H8CE 

0000 

DOEB 

0000 

10CR 

0004 

C8B0 



BR 

LHR 

LHI 



LINKS 

LINK. LINKS 
LINKS, ZBH 



RETURN 
SAVE RETURN 



ZR* 



* 
TRACE 



TR1 



TR2 



TR3 



TR<* 



TR5 



TR6 



BS ZB2 

SIS Rll,4 

BNZS ZBt-2 

BR LINK 



DELETE AN ENTRY 
DECREMENT INDEX 
CONTINUE DELETING 
RETURN 



TRACE (T) INSERTION HANDLER 
LH R11.E1E0-2 NUMBER OF ENTRIES 



CLHI RlltS 



BLR 

AIS 

SIS 

BMS 

BS 

CLHR 



BES 
AIS 
BS 
LB 

LH 

STM 
STH 
LHI 



VACANCY IN TABLE ? 
NO - COMMAND ERROR 



BNLR CHDER 

XHR VALUE, VALUE 

LH R12,E1E0(VALUE) GET BEGIN ADDR 



CLHI R12.-1 



CLEARED 7 



BES TR2 YES 

CLHR FR0M,Ri2 FROM LESS THAN BEGIN •> 

BLS TR3 YES 

CLH FR0M,E1E0+2(VALUE> NO - TO GREATER THAN END 7 



C«DER 

Value, 6 

Rll.l 
TR<* 
TR1 
T0»R12 



BNLR CMDER 

BS TR2 

CLHR FROM, TO 

BNLR CMDER 

LIS R0,1 

AHM R0.E1E0-2 

LHI 
LHI 
CLH 



R11,E1E0 

R12.-1 

R12,0(R11) 

TR6 

Rll,6 

TR5 

R12,0«FROM) 

R12»0(FROM) 

FROM,0(R11) 

R12,<MR11) 

R11,X»E1E0« 



NO - COMMAND ERROR - NESTING 

BUMP INDEX 

DECREMENT COUNTER 

CHECKING COMPLETE 

CONTINUE CHECKING 

•TO» LESS THAN END 7 

NO - COMMAND ERROR - NESTING 

CONTINUE CHECK 

CHECK EXTENTS 

INCREMENT COUNT 



ADDRESS OF SVC l«f.O LIST 

EMPTY ENTRY MASK 

EMPTY 7 

YES 

NO - BUMP INDEX 

CONTINUE 

GET OP CODE 

PULL INSTRUCTION HALFWORD OUT 

INSERT EXTlNTS 

SAVE IN TABLE ENTRY 

SVC 1H,0 



AID15360 
AID15370 
AID15380 

AID15390 
AID15400 
A10l5mo 
AID15H20 
•* AID15H30 
AI015440 
AIDl5fS0 

AID15460 

AID15470 
AID15480 
AID15490 

AI015500 

AID15510 
AID15520 
AIO15530 
AID155H0 

AID15550 
AID15560 
AID15570 
AID15580 
AID15590 
AID15600 
AID15610 
AID15620 
AID1S630 
AI0156fO 
AID15650 
AIO15660 

AID15670 

AID15680 

AI015690 



AID15700 
AID15710 
AID15720 
A I Dl 57 30 

AI015740 

AI015750 

AID15760 

AID15770 
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E11E0 
12CHR tOHE 

0000 
12C8R 030? 



STH R11«0<FROM) 
t>R LINKS 



STORE IN CORE 
RETURN 



12CAR 

12CER 

12D2R 
12D1R 
12D6R 
12D8R 
12DAR 

12DER 

12E2R 

1?E6R 

12EAR 
12ECR 

12F0R 

12FMR 

12F8R 

12FCR 

1300R 

1301R 

1308R 

130CR 

1310R 
1312R 

1316R 

131AR 

131ER 

1322R 

1326R 

132AR 
132CR 



CB30 

0030 

45C5 

1050R 

233H 

2756 

033A 

2205 

D1D5 

1050R 

<+0F0 

0AB8R 

t8F«* 

0002 

"♦ofo 

OABAR 

08C4 

"tOCO 

0A9tR 

C8t0 

0AB8R 

<*050 

1350R 

1120 

0OF6R 

D1E0 

134CR 

OOEO 

08HtR 

<U20 

08C«tR 

4650 

1350R 

H5H5 

1052R 

2337 

"♦380 

133ER 

«»5U5 

1050R 

«»280 

133ER 

4040 

0A96R 

C8E0 

0A96R 

C8F0 

08«f9R 

2f02 

H120 



• TRACE EXECUTION HANDLER SVC 1H,0 

SVCEO LHI VALUE, ElEoN-ElEo LIST LENGTH FOR INDEX 

SVCE01 CLH R12,E1E0-6(VALUE> COMPARE ADDRESSES 



BES 
SIS 
BZR 
BS 
SVCE02 LM 

STh 
LH 

STH 

LHR 
STH 

LHI 

STH 

BAL 

LM 

STM 

BAL 

LH 

CLH 

BES 
BNL 

CLH 

BL 

STH 

LHI 

LHI 

LIS 

BAL 



SVCE03 



TRC3 



SVCE02 FOUND 

VALUE, 6 DECREMENT INDEX 

RlO NOT FOUND = ILLEGAL 

SVCEOj, CONTINUE 

NUMBER ,ElE0-6< VALUE > 



TOtDBLWK 
T0,2(0PEN) 

T0»DBLWK+2 

Rl2,0PEN 
R12.TRCFLG 

0PEN,0BLWK 

VALUE, TRCSAV 

LINKS, EX 

FRQIitTRCMSG 

FR0M.0UTBUF+2 

LINKS, LIST 

VALUE, TRCSAV 



SET INSTR IN WORK AREA 

GET SECOND HALFWORD 

STORE IN WORK AREA 

SAVE OPEN CELL ADDR 
SET TRACE FLAG 

SAVE INDEX 
EXECUTE INSTR 
TRACE MESSAGE 

I 
PRINT TRACE AND ADDRESS 

RESTORE INDEX 



OPEN.ElE0-«UVALUE) END OF TRACING ? 



TRC3 
SVCE05 



IF EQUAL CONTINUE 
YES 



OPEN,E1EO-6(VALUE) OUT OF BOUNDS 7 



SVCE05 

OPEN.OPSAVE 

FROM.OPSAVE 

TO.OUTBUF+7 

NUMBER, 2 
LINKS, XLATLH 



YES 

work address 
print area 
byte count 

TRANSLATE TO ASCII HLX 



AID15780 
AID1S791) 

■ ♦ Aiu^non 

AIU15810 
AIU15820 

AIU15830 

A1D158H0 
AID15850 
AID15860 
AID15870 
A 1 015880 

AID15890 

AID15900 

AID15910 

AID15920 
AID15930 

AID159<40 

AIIJ15950 

AID159&0 

AID15970 

AID15980 

AID15990 

AID16000 

AID16010 

AID16020 
AI016030 

AID16040 

AI016050 

AIOlfc060 

AIU16H70 

AinihOHn 

AI016P90 
AIDlf>100 
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1330R 
1334R 

1338R 
133AR 

133ER 
1340R 

1344R 

1348R 

134CR 

1350R 

1352R 

1356R 

135AR 
135CR 

1360R 

1364R 
1366R 
1368R 
136AR 
136CR 

1370R 
1372R 
1374R 

1378R 

137CR 

1380R 
1382R 
1384R 

1388R 
138AR 
138CR 
138ER 



040ER 

4120 

08C4R 

C820 

1308R 

08C4 

4300 

0DF6R 

0700 

4000 

0A94R 

4010 

040AR 

"♦300 

0350R 

5452 

433A 

0000 



C8B0 

0030 

C8C0 

FFFF 

08DD 

4330 

1382R 

45EB 

1050R 

2334 

27B6 

0216 

2205 

DlDB 

1050R 

050C 

0332 

40FO 

0000 

40CB 

1050R 

61C0 

1054R 

0302 

0812 

C820 

138AR 

220E 

27B6 

2032 

0301 



1390R 48B0 

10A8R 
1394R C5B0 



BAL LINKS, LIST 

SVCE04 LHI LINKS, SVCE03 

LHR R12,0PEN 

B EX 

SVCE05 XHR RO.RO 

STH RO«TRCFLG 

SVCE06 STH OPEN.GS 

B GIB 

TRCMSG DC C«TRC:« 

DC 



PRINT ADDR 

SET RETURN ADORESS 

SAVE OPEN CELL ADORESS 
EXECUTE INSTR 

CLEAR TRACE FLAG 
SET RETURN ADDR 
EXIT 



TRCSAV 

*— — -■ 

* 

ZAPTRC 



*Ti 



ZT2 



2T3 



ZT4 



*-- — 
SNAP 



ZAP 
LHI 

LHI 

LHR 
BZ 



TRACE HANDLER 
Rll,ElEoN-ElEo LIST LENGTH FOR INDEX 



R12.-1 

NUMBER, NUMBER 
ZT3 



CLEAR TRACE OR ALL ? 
ALL 



CLH FROM,ElE0-6(Rll> COMPARE ADDR 



BEs 
SIS 

BMR 

BS 
LM 

CLHR 

BER 

STH 



ZT2 HIT - DELETE 

Rll,6 DECREMENT INDEX 

CMOER NOT FOUND s ERROR 

ZTl CONTINUE 

NUMBER, E1E0-6(R11) ADDR AND INSTRUCTION 



NUMBER, R12 

LINKS 

TO, 0( NUMBER I 



DELETED ENTRY 7 
YES - IGNORE 
REPLACE INSTR 



STH R12tElE0-6(Rll> DELETE ADDR 



AHM R12.E1E0-2 



BR 

LHR 

LHI 

BS 
SIS 
BNZS 
BR 



LINKS 

LINK, LINKS 
LINKS, ZT4 

ZT2 

Rll.6 
ZT4-2 
LINK 



DECREMENT ENTRY COUNTER 

RETURN 
SAVE RETURN 
SET RETURN 



DECREMENT INDEX 

CONTINUE 

RETURN 



SNAPSHOT (S) INSERTION HANDLER 
LH Rll,ElE4-2 ENTRY COUNTER 



CLHI Rll«8 



CHECK FOR VACANCY 



AID16110 

AID16130 

AIO16140 
AI016150 

AIO16160 
AI016170 

AID16180 

AID16190 

AIO18200 

AID16210 

-* AI016220 

AID16230 

AI016240 

AID16250 

AID16260 
AID16270 

AID16280 

AI016290 
AID16300 
AID16310 
AID16320 
AID16330 

AID163H0 
AID16350 
Aiui6360 

AID16370 

AID16380 

AI016390 
A ID 16400 
AID16410 

AID16420 
AID16430 
AID16440 
A I Dl 6450 
•* AID16460 
AIO16470 
AID16480 

AID16490 
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1398R 
139AR 
139CR 

13AOR 

13A<+R 
13A6R 
13A8R 
13AAR 
13ACR 
13AER 
13B0R 
13B2R 

13B6R 
13B8R 

13BCR 

13C0R 

lSc^R 

13C8R 

13CCR 

13D0R 
13D2R 
13D«*R 
1306R 

13DAR 

13DER 
13E0R 

13EtR 

13E8R 

13ECR 

13EER 

13F2R 

13F6R 
13F8R 
13FAR 
13FCR 
13FER 



0008 

0386 

07BB 

48CB 

10AAR 

C5C0 

FFFF 

2333 

26BC 

2206 

0811 

0A13 

05EF 
0386 

C550 
0020 
0336 

D3C1 

0000 

<*01B 

10AAR 

48C1 

0000 

*»OCB 

10ACR 

D25B 

10AFR 

D3C0 

0A97R 

08CC 

2332 

27C1 

«»ocb 

10B0R 

DOEB 

10B2R 

2^B1 

61B0 

10A8R 

C8B0 

eie«» 

•♦OBI 
0000 
0302 



SN1. 



C850 
0060 

«»5C5 

109ER 

233H 

275C 

033A 

2205 

■+8C5 

10A0R 



SN2 



SN3 



♦ -• 

SVCE1 



BNLR CMDER 

XHR R11,R11 

LH R12,E1E<MR11) 

CLHI R12»-l 



BES 

AIS 

BS 

LHR 

AHR 

CLHR 

BNLR 

CLHI 

BER 
LB 

STH 

LH 

STH 

STB 

LB 

LHR 
BZS 
SIS 

STH 

STM 

LIS 

AHM 

LHI 
STH 
BR 



SN2 

Rll.12 
SNl 

LINKtOPEN 
LINK. BIAS 
FROM, TO 
CMDER 
VALUE, X' 20' 

CMDER 
R12iO(LINK> 



FULL = ERROR 
CLEAR INDEX 
GET ENTRY 

DELETED ? 

YES 

BUMP INDEX 

CONTINUE 

RELATIVE ADDRESS 

ABSOLUTE ADDRESS 

EXTENT CHECK 

CHECK DUMP TYPE 

ERROR 

GET OP CODE 



LINK.ElEH(Rll) STORE IN TABLE 

R12.0CLINK) GET INSTRUCTION 

Hi2.ElE«»+2<Rli) STORE IN TABLE 

VALUE, ElEt+5(Rll> STORE DUMP TYPE IN TABLE 

R12tOPSAVE+l NO. OF EXECUTIONS BETWEEN DUMPS 

R12.R12 CHECK FOR ZERO 

SN3 SKIP IF ZERO 

R12.1 ZERO RELATIV-IZE 

Rl2tElE'»+6(RlU STORE IN TABLE 

FROM,ElE**+fi<RH> STORE DUMP EXTENTS 

INCREMENT TABLE COUNTER 



Riia 

Rli,EXEH-2 



Rll.X'ElE*' 
RlltO(LINK) 
LINKS 



STORE SENTINEL IN MEMORY 
RETURN 



SNAPSHOT EXECUTION HANDLER SVC 1H,H 
LHI VALUE, ElE^N-ElEH LIST LENGTH 



SVCE^l CLH R12.E1E<*-12(VALUE) COMPARE ADDR WITH LIST ENTRY 



SVCE"+2 



BES SVCEH2 

SIS VALUE, 12 

BZR RlO 

BS SVCEHl 

LH R12,ElEt-10(VALUE> PICK UP INSTRUCTION 



FOUMD 

DECREMENT INDEX 

NOT FOUND = ILLEGAL INSTR 



AID16S00 
AID16510 
AID16520 

AID16530 

AID165U0 
AID16550 
AID16560 
AID16570 
AID16580 
AID16590 
AID16600 
AID16601 

AIU16602 
AID16610 

AID16620 

AID16630 

AID166H0 

AID16650 

AID16660 

AID16670 
AI016680 
AIO16690 
AID16700 

AIQ16710 

AID16720 
AID16730 

AID167<*0 

AID16750 

AID16760 

•* AID1&770 

AID16780 

AID16790 

AID16800 

AI016R10 
AIDlfe820 
AI016P.30 
AlDlfeB'U. 1 
AID16650 



OS AIDS 


1402R 


toco 




QAB8R 


1406R 


48C4 




0002 


140AR 


toco 




OABAR 


140ER 


oect 


mien 


cato 




0AB8R 


1414R 


4050 




OBOOR 


im«R 


4120 




0DF6R 


141CR 


4850 




OBOOR 


1420R 


D1C5 




10A2R 


1424R 


9300 


1426R 


90Q8 


1428R 


090D 


142AR 


2336 


142CR 


2601 


142ER 


0205 




10A4R 


1432R 


4300 




1344R 


1436R 


0700 


1438R 


0205 




10A4R 


143CR 


080E 


143ER 


085F 


i«moR 


D1E0 




0A8CR 


1444R 


OOEO 




0844R 


1448R 


08E0 


144AR 


C8F0 




0842R 


144ER 


4120 




08C4R 


1452R 


930C 


1454R 


•♦120 




U96AR 


msaR 


4300 




1344K 


145CR 


C8B0 




0060 


1460R 


C8C0 




FFFF 


1464R 


OSDD 


1466R 


4330 




148CR 


l«t6AR 


45EB 




109ER 
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STH R12.DBLWK STORE IN WORK AREA AID16860 

LH Rl2»2(0PEN) PICK UP SECOND HALFWORD AID16870 

STH R12»DBLWK*2 STORE IN WORK AREA AID16880 

LHR R12.0PEN SAVE OPEN CELL AODR AID16690 

LHI OPEN,OBLWK SET OPEN CELL TO WORK AREA AI016900 

STH VALUE, SAVE SAVE INDEX AID16910 

BAL LINKS, EX EXECUTE INSTRUCTION AIO16920 

LH VALUE, SAVE RESTORE INDEX AI016930 

LM R12,E1E4-8(VALUE> PICK UP ENTRY INFO AID16940 

LBR RO. NUMBER NO AI016950 

SRLS NUMBER«8 POSITION CURRENT EXECUTIONS AIO16960 

CHR RO, NUMBER COMPARE TO EXECUTIONS BETWEEtj AID16970 

BES SVCE43 EOUAL - SNAP DUMP AID16980 

AIS NUMBER, 1 INCREMENT EXECUTION COUNT AID1G990 

STB NUMBER, EiE4-6(VALUE) STORE IN ENTRY AID17000 

B SVCE06 RETURN A1017010 

SVCE43 XHR Ro.RO AID17020 

STB R0,EiE4-6(VALUE) CLEAR CURRENT EXECUTIONS AI017030 

LHR RCFROM SAVE REG AID17040 

LHR VALUE, TO END ADDRESS AID17050 

LM FROM t SNPMSG SNAP MESSAGE AID17060 

STM FR0M.0UTBUF+2 AID17070 

LHR FROM,R0 RESTORE REG AlD17080 

LHI TO.OUTBUF SET PRINT INDEX AID17090 

BAL LINKS, LIST PRINT SNAP MESSAGE AI017100 

LBR R0,R12 GET DUMP MOM" AI017110 

bal Links, tabc execute dump AI017130 

B SVCE06 EXIT AID17140 

„ * AID17150 

* ZAP SNABPSHOT HANDLER AID17160 

ZAPSNP LHI Rli,EiE"4N-riE4 SET INDEX TO LIST SIZE AIDiTifO 

LHI R12.-1 CLEARING VALUE AID17180 

LHR NUMBER, NUMBER SPECIFIC SNAP OR ALL? AIO17190 

BZ ZS3 ALL AI P.1.7?M_ 

ZSi CLH FR0M,ElE4-12(Rll) COMPARE ADDR AIDi72l0 



OS AIDS 


116ER 


2331 


1170R 


27RC 


1172R 


0216 


1171R 


2205 


1176R 


D1EB 




109ER 


117AR 


05EC 


117CR 


0332 


117ER 


10FF. 




0000 


1182R 


4 0CB 




109EH 


1186R 


61C0 




10A8R 


118AR 


0302 


118CK 


0812 


118ER 


CB20 




1191R 


1192R 


220E 


1191R 


27BC 


1196R 


2032 


1198R 


0301 


119AR 


C550 




0052 


119ER 


1230 




11D2R 


11A2R 


C5E0 




0010 


11A6R 


0366 


11A8R 


085E 


HAAr 


OAEE 


11ACR 


2135 


11AER 


21CF 


11B0R 


lOCO 




0A16R 


11B1R 


2309 


11B6R 


18R0 




HOAR 


lIBAR 


21C1 


HBCR 


CDC5 




0000 


11COR 


06BC 


11C2R 


10B0 




HOAR 


11C6R 


185E 




0A9AR 


11CAR 


105E 




110CR 


11CER 


1300 




1500R 


1102R 


48B0 




112CR 


1106R 


2111 


11D8R 


C5B0 
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ZS2 



ZS3 



Z!>1 



PRO 



PROA 



PRl 



BES 


ZS2 


HIT - OELETE 


SIS 


Rlltl2 


DECREMENT 


BMR 


CMDER 


NOT FOUND = ERROR 


HS 


ZS1 


CONTINUE 



l_M 



FR0M.E1E1-12IR11) ADDR AND INSTRUCTION 



CLHR FR0M,Rl2 

BER LINKS 

STH TO,0(FROM> 

STH 

AHM 



DELETED ENTRY 7 
YES - IGNORE 
REPLACE INSTRUCTION 



R12,E1E1-12(R11> OELETE ADDRESS 



R12.E1E1-2 DECREMENT ENTRy COUNTER 

BR LINKS RETURN 

LHR LINKtLINKS SAVE RETURN 

LHI LINKS, ZS1 SET RETURN 

BS ZS2 DELETE ENTRY 

SIS R11.12 OECREMENT INDEX 

BNZS ZS1-2 CONTINUE 

HR LINK 



PROTECTION (P) INSERTION HANDLER 



PROTEK CLHI VALUE, C»R» 
BNL PRl 
CLHI FROM,x»10» 



BNLR 


CMDER 


LHR 


VALUE, FROM 


AHR 


from, from 


BNZS 


PRO 


LIS 


Rl2,15 


STH 


Rl2,PROR0 


BS 


PROA 


LH 


Rll.PROREG-2 



LIS R12«1 

SLHL R12,0(VALUE) 



OHR 
STH 

LH 

STH 



LH 

BMS 
CLHI 



R11.R12 
Rll»PR0REG-2 



REGISTER PROTECTION 7 
NO = CELL PROTECTION 
RANGE CHECK 



INOEXIZE REG 

SKIP 

LOAD REG 12 

SET REG ZERO FLAG 



BIT POSITIONAL HALFwORD 



SHIFT BIT BY REG INDEX 

OR BIT INTO POSITIONAL HALFWORD 
STORE REG POSITION COUNTER 



VALUE,SaVREG(FROM) LOAD USER REG 

VaLUE»PROREG(FROM) STORE USER REG IN LIST 

PRl 

Rll.PROCEL-2 ENTRY COUNT 



PR2-2 
Rll,8 



EMPTY LIST 
COMPARE TO EIGHT 



AID17220 
AID17230 
AID17210 
AID17250 
AID17260 

AID17270 
AI017280 
AIU17290 

AID17300 

AID17310 

AID17320 
AID17330 
AIIU7310 

AID17350 
AID17360 
AID17370 
AID17380 
AILU7390 
AID17100 
AID17110 

AIU17120 

AID17130 

AIU17110 
AID17150 
AIO17160 
AI017170 
AID17180 
AID17190 

AIU175U0 
AIIU7fil() 

Ali)l7e)20 
AID17530 

AID17510 
AID17550 

AIO17560 

AIU17570 

aidi758o 

AIUl 7'jgn 

AID17600 
AIO17C10 
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14DCR 
1<U)FN 
lUt. OH 

1HE4R 

1HE8R 
14EAR 
14ECR 
14EER 

14F2R 

14F6R 

1HFAR 
ltFCR 

1500R 
1504R 

1506R 

150AR 

150ER 
1510R 

1514R 

1518R 

131CR 

1520R 
1522R 
1521R 

1528R 
152AR 
152CR 

1530R 

153UR 
1536R 

153AR 

153E.R 

1542R 
154HR 



000B 

386 

07HH 

"♦8CP 

112ER 

C5C0 

FFFF 

2333 

26B4 

2206 

"♦OEB 

112ER 

HBEE 

0000 

40EB 

1130H 

24C1 

61C0 

112CR 

«»0C0 

0A48K 
0302 



C8B0 

0020 

C8C0 

FFFF 

08DD 

4330 

156CR 

C800 

2052 

DHOO 

0A50K 

4230 

1556R 

08EE 

2134 

40E0 

0A46K 

230B 

2 "+01 

CDOE 

0000 

4400 

HOAR 

0336 

4700 

HOAR 

4000 

HOAR 

1800 

112CR 

0232 

4800 



PR2 



BNLR CMOER NOT LESS * NO VACANCY 

XHK RU.RU CLEAR INDEX 

LH K12tPR0CEL(Rll) GET AN ADDRESS 



CLHI R12,-l 



BLANKED ENTRY ? 



PR3 



BES PR3 YES 

AlS Rllt4 NO - INCREMENT INDEX 

BS PR2 CONTINUE 

STH FR0M,PR0CEL(R11> STORE PROTECTEO ADDR 

LH FROM«0<FROM) 

STH FR0MtPR0CEL*2(Rll> STORE PROTECTED VALUE 

LIS R12.1 

AHH Rl2,PR0CEL-2 BUMP ENTRY COUNTER 

STH R12.PR0FLG SET PROTECT FLAG FOR GO ROUTINE 

BR LINKS RETURN 



PR4 



* ZAP 
ZAPPRO LHI 

LHI 



LHR 
BZ 

LHI 

CLB 

BNE 

LHR 

BNZS 

STH 

BS 

LIS 

SLHL 

NH 



PROTECTION HANDLER 
Rll.PROCLN-PROCEL LIST LENGTH FOR INDEX 



ZPO 



ZP5 



BZR 
XH 

STH 

LH 

BNZR 
LH 



R12.-1 

NUMHER, NUMBER 
ZP3 

ROtC R» 

R0iQUFFER+2 

ZP1 

FROM«FROM 
ZPO 

FROMtPRORO 

ZP5 

ROil 

ROtO(FROM) 

R0tPROREG-2 

CMDER 
R0tPROREG-2 



ROtPROREG-2 

R0.PROCEL-2 

LINKS 
ROtPRORO 



SPECIFIC CELL/REG OR ALL 7 
ALL 

JUST REGISTER 7 



NO 

CHECK FOR ZERO 

CLEAR REG ZERO FLAG 

SHIFT BIT POSITIONAL COUNTER 
ISOLATE BIT 

IF N6"rSET = TERROR 

ELIMINATE BIT THAT EQUALS REG 

RESTORE COUNTER 

GET PROTECTED CELL COUNT 

CHECK REG ZERO 



ATU17620 
AIH17630 
A1D17640 

AID17650 

AID17660 
AI017670 
A1D17680 
AI017690 

AID17700 

AIO17710 

AID17720 
AID17730 

AI017740 

A1U17750 
•* AID17760 

AID17770 
AID17780 

AID17790 

AID17800 
AID17810 

AID17820 

AID17830 

AID17840 

Aiul7850 
AID17860 
AID17870 

AID17880 
AIO17890 
AI D17 900 

AID17910 



AID17920 
AI017930 

AID17940 

AID17950 

AID17960 
AID17970 



OS 


; AIDS 




0A46R 


15t8R 


0232 


154AR 


<*800 




110A1? 


15tER 


023? 


1550R 


<»000 




0A48P 


155«*R 


0302 


1556R 


4SER 




112AR 


155AR 


2334 


155CR 


27Bt 


155ER 


0336 


1560R 


2205 


1562R 


4oCR 




112AR 


1566R 


fclCO 




H2CR 


156AR 


0302 


156CR 


40D0 




HOAR 


1S70R 


0812 


1572R 


C820 




1578R 


1576R 


220A 


1578R 


27B1 


1S7AR 


203C 


157CR 


40B0 




112CR 


1580R 


40B0 




0A46R 


1584R 


HOBO 




0A48R 


158BR 


0301 


158AR 


DOAO 




OACOR 


158ER 


1020 




164BR 


1592R 


C8A0 




2020 


1596R 


40A0 




OABAR 


159AR 


08CF 


159CR 


ctco 




FFFE 


15A0R 


C8E0 




0A79R 


15A4R 


C8F0 




0AB8R 


15A8R 


D3D0 




0A78R 


15ACR 


1120 




079AR 


15B0R 


08FC 
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IPX 



ZF'2 



H'S 



ZP4 



BNZR 
LH 

BlMZR 
STH 

BR 
CLH 

BES 
SIS 

BZR 

BS 

STH 

AHM 

BR 
STH 

LHR 
LHI 

BS 
SIS 

BNZS 
STH 

STH 
STH 

HR 



CHECK REG COUNT 



LINKS 
R0,PROREG-2 

LINKS 
ROtPROFLG 



LINKS 

FR0M,PR0CEL-4<Rll) COMPARE CELL ADOR 



ZP2 
Rll.H 
ChDER 
ZP1 



HIT - DELETE 
DECREMENT INDEX 
NOT FOUND = ERROR 
CONTINUE 



Rl2,PR0CEL-H(Rll) DELETE ADDRESS 
Rl2iPR0CEL-2 DECREMENT ENTRY COUNTER 

LINKS RETURN 

NUMBER, PR0REG-2 CLEAR BITS 



LINK, LINKS 
LINKS. ZP4 

ZP2 

Rll»f 
ZP2 

R11.PR0CEL-2 

Rll.PRORO 

RH.PROFLG 

LINK 



SAVE RETURN 
SET RETURN 

DELETE AN ENTRY 

DECREMENT INDEX 

CONTINUE 

CLEAR CELL COUNTER 

CLEAR REG ZERO 

CLEAR FLAG 

RETURN 



* TRANSLATE ASSEMBLER TO INTERNAL 

XLATEU STM 



R10.SAVE2 

STH LINKS, XU8 

LHi R10.X»2020» 

STH R10tDBLWK+2 

LHR R12,T0 

NHI Rl2,X•FFFE , 

LHI FROM.OPRAND+1 

LHI TO.DBLWK 

LB NUMBER, OPRAND 

BAL LINKS, MOVE 

LHR T0,R12 



SAVE REGS 
SAVE LINK 



CLEAR WORK AREA 

SAVE TO ADDRESS 

INSURE HALF WORD BOUNDARY 

SET FROM ADDRESS 

SET WORK AREA AS TO ADDRESS 

BYTE COUNT 

MOVE DATA 

RESTORE TO AOORESS 



A1D179B0 
AIU17990 

A ID 1 8 
AID18010 

AID18020 
AIO18030 

AID18040 
AID18050 
AID18060 
AID18070 
AID18080 

AID18090 

Aioiaioo 

AI018110 

AID18120 
AID18130 

A1018140 
AID18150 
AIU18160 
AID1B170 

A I Dial 80 

AID18190 

AID18200 

.* AID18210 

AID18220 

AID1B230 

AID18240 

AIU18250 

AID18260 

AID18270 
AI018280 

AID18290 

AID16300 

AIIJ18310 

AIU1832D 

AID16330 



OS AIOS 


15B2R 


C8B0 




01F0 


15B6R 


48CB 




17E0R 


15BAR 


48DB 




17E2R 


15BER 


4BC0 




0AB8R 


15C2R 


4FD0 




OABAR 


15C6R 


2334 


15C8R 


27B4 


15CAR 


0216 


15CCR 


220B 


15CER 


C8DB 




17E1R 


15D2R 


24CF 


1504R 


C8B0 




17E2R 


15D8R 


48AB 




0000 


15DCR 


2333 


15DER 


05DA 


15E0R 


2384 


15E2R 


27C1 


15E4R 


27B2 


15E6R 


2207 


15ESR 


91c4 


15EAR 


OBDA 


15ECR 


2601 


15EER 


90D2 


15F0R 


0700 


15F2R 


400F 




0000 


15F6R 


06CD 


15F8P 


D2CF 




0000 


15FCR 


O3C0 




0A78R 


1600R 


C8CC 




0A79R 


1604R 


D3DC 




0000 


1608R 


C5D0 




0001 


160CR 


0236 


16QER 


C8EC 




0001 


1612R 


4120 




044CR 


1616R 


D30F 




0001 


161AR 


9104 


161CR 


2472 


161ER 


C3A0 




0001 
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LHI Rll.MSDEND-MSOO OP CODE MNEMONIC TABLE LENGTH 
XU1 



XU2 



XU3 



XU4 



XU5 



LH 


R12.MSD0-4(R11> 




LH 


NUMBER, MSO0-2(Rll) 


SH 


R12.DBLWK 


COMPARE OP CODE MNEMONIC 


SCH 


NUMBER. DBLWK+2 


WITH INPUT 


B2S 


XU2 


FOUND 


SIS 


R11.4 


DECREMENT POINTER 


BMR 


CMOER 


NOT FOUND 


BS 


XU1 


CONTINUE SEARCH 


LHI 


NUMBER, MSD0-3<Rll) ASSEMBLY TABLE POINTER 


LIS 


R12.15 


MSD COUNTER 


LHI 


Rli.ASMENO-2 


MNEMONIC POINTER TABLE 


LH 


R10,0(R11) 


POINTER TABLE ENTRY 


BZS 


XU4 


IGNORE ENTRY 


CLHR 


NUMBER. RIO 


CHECK FOR VECTOR 


BNLS 


XU5 


FOUND 


SIS 


R12.1 


DECREMENT COUNTER 


SIS 


Rll.2 


DECREMENT INDEX 


BS 


XU3 


CONTINUE SCAN 


SLLS 


R12.4 


COUNTER = MSD 


SHr 


NUMBER, RIO 


get pointer index 


AIS 


NUMBER, 1 


ROUND UP 


SRLS 


NUMBER, 2 


QUARTER REMAINDER (ENTRY = 4 BYTES) 


XHR 


RO.RO 




STH 


RO.O(TO) 


CLEAR INSTRUCTION LOCATION 


OHR 


R12, NUMBER 


COMBINE LSD AND MSD 


STB 


R12.0(TO) 


PLACE OP CODE IN MEMORY 


LB 


R12,0PRAN0 




LHI 


R12.0PRAND + HR12) ADDRESS OF NEXT OPERAND 


LB 


NUMBER. 0(R12) 


GET OPERAND SIZE 


CLHI 


NUMBER .1 


MUST BE ONE BYTE (FOR REG) 



BNER cmder 

LHI FR0M,1(R12) 



IF NOT, ERROR 

SET SENOER ADDRESS 



BAL 


LINKS, XLATHB 


TRANSLATE TO BINARY 


LB 


R0,1(T0) 


SAVE R2 VALUE 


SLLS 

LIS 

THI 


R0,4 

LENGTH, 2 
R10.1 


ADJUST Rl 

SET LENGTH 

FLAG (RX INSTR) SET ? 



AID18340 

AID18350 

AI018360 

AID18370 

AID18380 

AID18390 
AID18400 
AID18410 
AID18420 
AID18430 

AID18440 
AID18450 

AID18460 

AID18470 
AID18480 
AI018490 
AID18500 
AID18510 
AID18520 
AIO18530 
AID18540 
AID18550 
AID18560 
AID18370 
AID18580 

AID18590 
AID18600 

AIL»iU610 

AID18620 

AID18630 

AID18640 

AID18650 
AID18660 

AID18670 

A ID 18680 

AID18690 

AiDieToo 

AI018710 



os a ins 
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1622R 
1626R 

162AM 

162ER 

1632R 
1634R 
1636R 

163AR 

163ER 

16H2R 

16t6R 
1648R 

164AR 

16<*ER 

1652R 

1656R 

165AR 
165CR 

1660R 

1664R 

1668R 

166CR 

166ER 

1672R 
167«»R 
1676R 
1678R 



H230 

164AR 

COEC 

0003 

P3DC 

0002 

C500 

0001 

2186 

0236 

H120 

044CR 

U60F 

0000 

D20F 

0001 

O1A0 

OACOR 

*300 

0000 

D3BC 

0002 

CABC 

0001 

D3DC 

0002 

C8EC 

0003 

26F2 

40DF 

0000 

H120 

0«*<*CR 

D3A0 

0A<*FR 

C5A0 

00t2 

2133 

613F 

0000 

27F2 

2 < *7t 

08CB 

4300 

1626R 



XU6 



GNZ 


XU7 


LHI 


FR0M.3IR12) 


LR 


NUMBER, 2(R12) 



167CR DOAO 

OACOR 
1680R t020 

171AR 
168<tR C580 

0042 
1688R 2138 
168AR C800 

0052 



XU6A 



XU8 
XU7 



XU7A 



CLHI NUMBER, 1 

BLS XU6A 

BNER CMDER 

BAL LINKS, XLATHB 

OH R0»0(TO) 

STB R0,i(TO> 

LM R10.SAVE2 

DC X«H300» 

DC 

LB R11,2(R12) 

AHI R11,1(R12) 

LB NUMBER, 2IR12) 

LHI FROM.3CR12) 

AIS T0»2 

STH NUMBER, 0( TO) 

BAL LINKS, XLATHB 

LB R10.BUFFER+1 

CLHI Rl0,X»<t2« 

BNES XU7A 

AHM BIAS,0(TO) 



SIS 


To«2 


LIS 


LENGTH, <♦ 


LHR 


R12.R11 


B 


XU6 



YES 

ADDRESS OF SENDER FIELD 
BYTE COUNT 
MUST BE ONE Or LESS 
IF ZERO SKIP 
TRANSLATE TO BINARY 

COMBINE WITH Rl 
STORE AFTER OP~ CODE 

RESTORE REGS 
RETURN 

SAVE POINTER TO R2 OPERAND 
OPERAND LENGTH 

BUMP RECEIVER 
CLEAR ADDRESS FIELD 

TRANSLATE TO BINARY 

GET DIRECTIVE TYPE 

BIAS ? 

NO 

ADD BIAS 

DECREMENT RECElvC" 
SET LENGTH ATTRIBUTE 
RESTORE OPERAND POINTER 
PRIME REGISTER 



t ----------------------------------------- 

* TRANSLATE INTERNAL TO ASSEMBLER 

XLATEA STM R10.SAVE2 SAVE REGS 



STH LINKS, XA2 

CLHI M0DE,x"*2« 

BNES XAO 

LHI R0,Xt0052» 



SAVE LINK 

BIAS 7 

NO 

•R» FOR RELOCATABLE 



AI018720 

AID18730 

AID18740 

AID18750 

AID18760 
AID18770 
AID18780 

AID18790 

AID1B800 

AJD18810 

AID18820 
AID18830 
AI01B840 

AIU18850 

ATU18860 

A|D18870 

A]D18880 
AID18890 

AID18900 
AID18910 
AID18920 

AID18930 

AID18940 

AI0189S0 
AID18960 
AI018970 
AID18980 

.» AiD18990 
AID19000 
AID19010 

AID19020 

A I D 1 <» 

AI019C140 
AI019050 



OS 


; AIDS 


lftBER 


D20F 




0004 


1692R 


H8E0 




OACflR 


1696R 


0»E3 


1698R 


HOEO 




0A96R 


169CR 


C8EO 




0A96R 


16A0R 


2<+D2 


16A2R 


«H20 




O^OER 


16A6R 


48E0 




0AC8R 


16AAR 


26F6 


16ACR 


240t 


16AER 


tl20 




OHOER 


16B2R 


26FC 


16BHR 


D3AE 




0000 


16B8R 


08BA 


16BAR 


90A«t 


16BCR 


OAAA 


16BER 


<*8AA 




17C4R 


16C2R 


«*330 




178ER 


16C6R 


CHBO 




OOOF 


16CAR 


91B2 


16CCR 


OABA 


16CER 


48CB 




0000 


16D2R 


t2l0 




178ER 


1606R 


tOCF 




0000 


16DAR 


48CB 




0002 


16DER 


<*0CF 




0002 


16E2R 


24D1 


16E«*R 


26E1 


16E6R 


26F6 


16E8R 


<U20 




040ER 


16ECR 


26F1 


16EER 


D3C0 




0A3ER 


16F2R 


D30F 




0000 


16F6R 


02CF 




0000 


16FAR 


26F1 


16FCR 


C3A0 
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STORE AFTER ADDRESS 
GET ADDRESS 



XAO 



XA1 



STB 


R0«<HTO) 


LH 


FR0M,SAVE2+B 


SHR 
STH 


FROM, BIAS 
FROM.OPSAVE 


l_HI 


FROM»OPSAVE 


LIS 
BAL 


NUMBER, 2 
LINKStXLATEH 


LH 


FR0M,SAVE2+S 


AIS 
LIS 

BAL 


TO, 6 

NUMBER, H 
LINKS, XLATEH 


AIS 
LB 


TO, 12 
RlO,0(FROM) 



LHR R11,R10 
SRLS RIO, 1 * 
AHR RlO.RlO 



UNBIAS 

REPLACE IN WORK AREA 

SET SENDER ADDRESS 



TRANSLATE TO ASCII 

RESTORE ABSOLUTE ADDRESS 

BUMP RECEIVER 

SET INSTRUCTION LENGTH 

TRANSLATE TO ASCII 

BUMP PRINT LINE 

GET OP CODE OF OPEN CELL 

SAVE Op CODE 
SHIFT OFF LSD 
INDEX-IZE BY TWO 



LH 

BZ 
NHI 



RlO,ASMPTR(RlO> CHECK FOR ZERO 



DEFCON 
Rll,XtF« 



SLLS R11.2 
AHR R11,R10 
LH Rl2,0(Rll) 

BM 

STH 

LH 

STH 



LIS 
AIS 

AIS 
BAL 

AIS 
LB 

LB 

STB 

AIS 
THI 



OEFCON 

R12,0(TO) 

R12,2(R11) 

R12,2(T0) 

NUMBER, 1 

FROM,l 

TO, 6 

LINKS, XLATEH 

TO,l 
R12, COMMA 

RO,0(TO) 

R12,0(TO) 

TO.l 
R10,l 



SET UP DEFINE CONSTANT 
GET LSD 

indexize value 

form address of mnemonic 

valid op code 

no, set up define constant 

set op code msd 

set op codl 

Rl/Ml FIELD 
FROM OPEN CELL + 1 
TO PRINT iiUFFER 
TRANSLATE TO ASCII 

BUMP BUFFER POINTER 
GET COMMA 

SAVE R2 

PLACE COMMA IN INSTRUCTION 

BUMP POINTER 

RX INSTRUCTION ? 



AID19060 

AID19070 

AID19080 
AID19090 

AID19100 

AID19110 
AID19120 

AID19130 

AID19140 
AID19150 
AID19160 

AID19170 
AID19180 

AID19190 
AI019200 
AIO192X0 
AID19220 

AID19230 
AID192H0 

AI019250 
AID19260 
AID19270 

AID19280 

AID19290 

AID19300 

AID19310 

AID19320 
AI D193 30 
AID193H0 
AID19350 

AID19360 
AID19370 

AID19380 

AID19390 

AID19400 
AID19«H0 



OS AIDS • 


• AUT0MA1 


ric INT 


ERACTIVE DEBUi 




0001 








1700R 


213E 




BNZS 


IOXASM 


1702R 


U20F 
0000 




STB 


ROtO(TO) 


1706R 


2472 


XA4 


US 


LENGTH, 2 


1708R 


C800 
2020 




LH1 


R0»X»2020» 


170CR 


400F 
FFFO 




STH 


R0»-16(TO) 


1710R 


400F 
FFF2 




STH 


R0.-14ITO) 


1714R 


DlAO 
OACOR 


XA3 


LM 


Kl0tSAVE2 


1718R 


4300 




DC 


X»4300» 


171AR 


0000 


XA2 


DC 





171CR 


2474 


IDXASM 


LIS 


LENGTH, 4 


171ER 


D3AE 
0000 




LB 


RIO.O(FROM) 


1722R 


26E1 




AIS 


FROM.l 


1724R 


24D2 




LIS 


NUMBER, 2 


1726R 


nfiHE 




LHR 


Rll.FROM 


1728R 


C58 
004? 




CLHI 


M00E,X«42« 


172CR 


4330 
1760R 




BE 


XA6 


1730R 


4120 
040ER 


XA5 


BAL 


LINKS.XLATEH 


1734K 


08ER 




LHR 


FROM.Rll 


1736R 


27E1 




SIS 


FROM.l 


1736R 


D30E 
0000 




LB 


RO.O(FROM) 


173CR 


C300 

OOOF 




THI 


RPa.XJ.OF.' 


17M-0R 


233E 




BZS 


XA5A 


1742R 


26F4 




AIS 


TO, 4 


1744R 


2401 




LIS 


NUMBER. 1 


1746R 


4120 

040ER 




BAL 


LINKS, XLATEH 


174AR 


D3C0 
0A3CR 




LD 


R12.0PREN 


174ER 


U2CF 
0000 




STB 


Rl2,0(TO> 


1752R 


O3C0 
0A3DR 




LB 


R12.CPREN 


1756R 


D2CF 
0002 




STB 


Rl2,2(T0) 


175AR 


27Fi 




SIS 


TO.l 


175CR 


4300 
1714R 


XA5A 


B 


XA3 


1760R 


480E 
0000 


XA6 


LH 


R0«0(FROM) 


1764R 


0503 




CLHR 


RO.BlAS 


1766R 


4280 
1730R 




BL 


XA5 


17CAR 


0B03 




SHR 


R0,BIAS 


176CR 


4000 




STH 


R0,OPSAVE 



YES 

ENTER R2 

SET LENGTH 
SPACES 

CLEAR SECOND HALFWORD 

CLEAR SECOND HALF WORD 

RESTORE REGS 

RETURN 

SET LENGTH 
SAVE INDEX REGS 

BUMP SENDER 
SET BYTE COUNT 
SAVE POINTER 
BIASED INSTRUCTION 

YES, UNBIAS ADDRESS REFERENCES 

TRANSLATE TO ASCII 

RESTORE POINTER 
DECREMENT TO FIRST H-WORD 
GET REGISTERS 

R2 = ZERO? 



YES - SKIP IT 
INCREMENT PRINT BUFFER 
SET RYTE COUNT 
TRANSLATE TO ASCII 



SET OPEN PAREN 



SET CLOSE PAREN 

DECREMENT POINTER 
FINISH UP 

GET ABSOLUTE ADDRESS REFERENCE 

CHECK AGAINST BIAS 
DONtT BIAS 

REMOVE BIAS 

SAVF IN WORK AREA 



AID19420 
AID19430 

AID19440 
AID19450 

AID19460 

AID19470 

AID19480 

AID19490 
AIO19500 
AID19S10 
AID19520 

AIO19530 
AI019540 
AT019541 
AID19550 

AID19S60 

AID19570 

AI019571 
AID19580 
AID19590 

AID19600 

AID19610 
AJD19620 
AIO19630 
AID19640 

ATD19650 

AIOl9ft60 

AID19b70 

AID19680 

A1D19690 
AID19700 

AXD19710 

AlD197^0 
AI019730 

AID19740 
AIU19750 
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1770R 
1772R 

1776R 

177AR 

177ER 
1780R 

1781R 

1788R 
178AR 

178ER 

1792R 

1796R 
1798R 

179CR 

17A0R 
17A2R 
17A1R 

17A8R 
17AAR 

17AER 
17B0R 

17B1R 

17B8R 
17BAR 

17BER 
17C0R 



0A96R 

08BE 

C8E0 

0A96R 

CBFO 

0010 

1120 

010ER 

26F1 

CBOO 

0052 

D20F 

0000 

26FC 

1300 

1730R 

C8C0 

HH3 
10CF 
0000 
26F6 

C8C0 

5827 

10CF 

0000 

21D2 

26F2 

1120 

010ER 

26F1 

D2CF 

0000 

26F1 

C8C0 

133D 

10CF 

0000 

26F3 

1120 

076CR 

27FA 

1300 

1706R 



17C1R 17E1R 
0000 

17C8R 1821R 
0000 

17CCR 1865R 
0000 

17D0R 18A5R 
0000 
0000 

17D6R 18E1R 
0000 



LHR 
LHI 

SHI 

BAL 

AIS 
LHI 

STB 

AIS 

B 

DEFCON LHI 
STH 

AIS 
LHI 



Rll.FROM 
FROM.OPSAVE 

T0.16 

LINKS.XLATEH 

T0,1 
R0,X«0052« 

RO.b(tO) 

TO. 12 
XA5 

R12.CDC 

R12,0<TO> 

TO, 6 
Rl2,X«5827« 



STH Rl2»0(TO) 

LIS NUMBERt2 

AlS TO. 2 

BAL LINKS, XLATEH 

AIS T0.1 

STB R12.0(TO) 

AIS T0.1 

LHI R12.X'133D» 

STH R12,0(TO) 

AIS TO. 3 

BAL LINKS, XLATEC 

SIS TO, 10 

B XA1 



SAVE POINTER 

SET SENDER ADDRESS 

ADJUST LI NE POINTER 

TRANSLATE TO ASCII 

INCREMENT LINE POINTER 
•R» FOR RELOCATABLE 

STORE IN PRINTLINE 

RESTORE PRINTLINE POINTER 
RETURN 

SET UP DEFINE CONSTANT 

STORE IN PRINT LINE 

INCREMENT INDEX 
LOAD A <X* 

PUT IN PRINT LINE 

SET BYTE COUNT 
BUMP RECEIVER 
TRANSLATE TO ASCII 

BUMP POINTER 
STORE CLOSE PaREN 

BUMP INDEX 

CHARACTER TRANSLATION 

STORE «c:t 

BUMP INDEX 

TRANSLATE TO CHARACTER 

RESET LINE POiC'TLH 



* ASSEMBLY TABLE POINTtRS 

ASMPTR DC MsDO.O 



DC 


MSD2.0 


DC 


MSDI+1,0 


DC 


MSD6+1.0.0 



DC MSD9,0,0 



AID19751 
AID19760 

.A ID 19770. 

AID19780 

AID19790 
AID19800 

AI019810 

AiO19820 
AID19830 

AID19810 

AID19850 

AID19860 
AID19870 

AID19880 

AID19890 
AID19900 
AID19910 

AID19920 
AID19930 

AID19910 
AID19950 

AIU19960 

AID19970 
AIO19980 

AID19990 
AID20000 

•* AID20010 
AID20020 
AID20030 

AID20010 

AID20050 

AID2Q060 



AID20070 



OS AIDS 


- AUTOMAT 


IC IN 


TERACTIVE OEOUGG 


0000 








170CR 1923H 




DC 


MSDC+ltMSDD+1 


1965N 








17E0R 19A5R 




DC 


MSDE+ltO 


0000 








17E4R 


ASMEND 


ECU 


* 




* 


ASSEMBLER MNEMONICS 


17E4R FFFF 


MSDO 


DC 


-l.-l 


FFFF 








17E8R 4241 




DC 


C'BALR* 


4C52 








17ECR 4254 




DC 


C«BTCR« 


"4352 








17F0R 4246 




DC 


C'BFCR! 


"♦352 








17F4R 4E48 




DC 


C»NHR • 


5220 








17F8R 434c 




DC 


C»CLHR« 


4852 








17FCR 4F48 




DC 


C'OHR » 


5220 








1800R 5848 




DC 


C'XHR • 


5220 








1804R tc«»a 




DC 


C»|_HR • 


5220 








1608R 4348 




DC 


C'CHR t 


5220 








leocR 4148 




DC 


C'AHR t 


5220 








1810R 5348 




DC 


C'SHR t 


5220 








1614R 4048 




DC 


C»MHR • 


5220 








1818R 4448 




DC 


C'DHR • 


5220 








181CR mts 




DC 


C'ACHR' 


4852 








1820R 5343 




DC 


C»SCHR» 


4852 








1824R 4254 


MSD2 


DC 


C'BTBS' 


4253 








1828R 4254 




DC 


CVBTFS* 


4653 








182CR 4246 




DC 


CtBFBs' 


4253 








1830R 4246 




DC 


C»BFFs» 


4653 








1834R 4C49 




DC 


C'LlS • 


5320 








1833R 4C43 




DC 


C'LCS • 


5320 








183CR 4149 




DC 


C'AIS • 


5320 








1840R 5349 




DC 


C'SIS • 



AID20080 

AID20090 

AID20100 

•« AI020110 

AID20120 

AID20130 

AID20140 

AID20150 
AID20160 
AID20170 
AID20180 
AID20190 
AID20200 
AID20210 
AIO20220 
AID20230 
AIO20240 
AID20250 
AID20260 
AID20270 
AI020280 
AID20290 
AID20300 
AID20310 
AID20320 
AID20330 
AID20340 
AID203bC 
A1D20360 
AID20370 
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5320 
1844R 4C45 

5220 
1848R 4345 

5220 
184CR fms 

5220 
1850R 53*5 

5220 
1854R 4D45 

5220 
1858R 1W5 

5220 
185CR FFFF 

FFFF 

FFFF 

FFFF 
1864R 5354 

<f820 
1668R 4241 

4C20 
186CR 4254 

4320 
1870R 4246 

4320 
1874R 4E48 

2020 
1878R 434C 

4820 
187CR 4F48 

2020 
1880R 5848 

2020 
1884R 4C48 

2020 
1888R 4348 

2020 
188CR 4148 

2020 
1890R 5348 

2020 
1894R 4D48 

2020 
1898R 4448 

2020 
189CR 4143 

4820 
18A0R 5343 

4820 
18A4R 5354 

4520 
18A8R 4148 

4D20 
18ACR FFFF 

FFFF 
FFFF 



HSD4 



MSD6 



oc 


C'LER • 


DC 


C'CER • 


OC 


C'AER • 


OC 


C'SER • 


DC 


CHER • 


DC 


C'OEr "♦ 


DC 


-1,-1,-1,-1 


oe 


C'STH • 


DC 


C'BAL • 


DC 


C«BTC • 


DC 


C»BFC • 


OC 


C»NH • 


DC 


C'CLH • 


OC 


C'OH « 


OC 


C»xH • 


DC 


C»lH » 


DC 


C'CH • 


OC 


C'AH t 


DC 


C»SH • 


DC 


C'MH • 


DC 


C'DH ♦ 


DC 


CtACH • 


DC 


C'SCH • 


OC 


C'STE • 


DC 


C'AHM • 


DC 


-1,-1, -1,-1 



AIO20380 
AID20390 
AI020400 
AID20410 
AID20420 
AID20430 
AID20440 

AID20450 
AID20460 
AID20470 
AI020480 
AID20490 
AIO20500 
AI020510 
AIO20520 
AID20530 
AIO20540 
A10i«350 
AID20560 
AID20570 
AID20580 



AID20590 
AID20600 
AID20610 
AIO20620 
AID20630 



OS 


AIDS 




FFFF 


18BHR 


mst 




4C20 


18B8R 


«»1«»2 




«»C20 


lftBCR 


525* 




tC20 


18C0R 


52"*2 




«*C20 


18C«»R 


4CH5 




2020 


18C8R 


«t3«»5 




2020 


18CCR 


11W 




2020 


18D0R 


53HS 




2020 


lBDtR 


itDHS 




2020 


18D8R 


<m<»5 




2020 


18DCR 


FFFF 




FFFF 




FFFF 




FFFF 


lSEtR 


5352 




HC53 


18EBR 


53«»C 




«fC53 


18ECR 


535H 




•♦252 


18F0R 


HCH2 




5220 


18FUR 


•♦558 




H252 


18F8R 


«»550 




5352 


18FCR 


57«t2 




5220 


1900R 


52*»2 




5220 


190<*R 


57t8 




5220 


1908R 


5248 




5220 


190CR 


574i> 




5220 


1910R 


52t«t 




5220 


191«»R 


HD48 




5552 


1918R 


5353 




5220 


191CR 


HFf3 




5220 


1920R 


<Ut9 
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MSD9 



DC 


C'ATL • 


DC 


CtABL • 


DC 


C'RTL ',"•' 


DC 


C'RBL • 


DC 


CLE ♦ 


DC 


C'CE • 


DC 


C»AE • 


DC 


C»SE • 


DC 


C • ME • 


DC 


C«DE • 


OC 


-1.-1.-1 


DC 


C'SRLS* 


OC 


C'SLLS' 


DC 


C'STBR' 


DC 


c »lbr • 


DC 


C»EXBR» 


DC 


C'EPSR' 


DC 


C'WBR • 


DC 


C'RBR • 


DC 


C'WHR • 


DC 


C'RHR • 


DC 


C'WOR • 


DC 


C'RDR » 


DC 


C»MHUR« 


DC 


C'SSR • 


DC 


C'OCR • 


DC 


C'AIR • 



-1,-1 



AID20640 

AI020650 

"A 1020660" 

A I 02 0670 

AID20680 
A1D20690 
AID20700 
AID20710 
AID20720 
AIO20730 
AID207H0 

AID207S0 
AID20760 
AI020770 
AID20780 
AID20790 
AID20800 
AlD2n«i.O 
AID20820 
AID20830 
AID208H0 
AIO20850 
AID20860 
AID20870 
Ar020fl80 
AID20090 
AID20900 



OS AIDS 




5220 


1924R 


4258 




4820 


1928R 


•♦258 




4C45 


192CR 


4C50 




53S7 


1930R 


5448 




4920 


1934R 


4E48 




4920 


1938R 


434C 




4849 


193CR 


4F48 




4920 


1940R 


5848 




4920 


1944R 


4C48 




4920 


1948R 


4348 




4920 


194CR 


4148 




4920 


1950R 


5348 




4920 


1954R 


5352 




484C 


1958R 


534C 




484C 


195CR 


5352 




4841 


1960R 


534C 




4841 


1964R 


5354 




4D20 


1968R 


4C4D 




2020 


196CR 


5354 




4220 


1970R 


4C42 




2020 


1974R 


434C 




4220 


1978R 


414C 




2020 


197CR 


5742 




2020 


1980R 


5242 




2020 


1984R 


5748 




2020 


1988R 


5248 




2020 


198CR 


5744 




2020 


1990R 


5244 
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MSDC 



MSOO 



oc 


C»BXH • 


DC 


C'BXLE' 


DC 


C'LPSW 


DC 


C»THI • 


DC 


C'NHI ' 


DC 


C«CLHI« 


DC 


C'OHI • 


DC 


C'XHI « 


DC 


C'LHI • 


DC 


C'CHI i 


DC 


CAHI • 


DC 


C'SHI • 


DC 


C»SRHL« 


DC 


CtSLHL' 


DC 


C'SRHA' 


DC 


C'SLHA* 


DC 


C'STM • 


DC 


CtLM « 


DC 


C»STB • 


DC 


C'LB • 


DC 


C'CLB • 


DC 


C, AL • 


DC 


C»WB • 


DC 


C'RB "t 


DC 


CtWH • 


DC 


C'RH • 


DC 


C»wO ♦' 


DC 


C'RD t 



AID20910 
AID20920 



AI020930 
AI020940 
AID20950 
AID20960 
AID20970 
AID20980 
AID20990 
AID21000 
AID21010 
AID21020 
AID21030 
AI021040 
AI021050 
AI021060 
AID21070 
AID21080 
AID21090 
AlD2ii00 
AID21110 
AI0 21 120 
AID21130 
AID21140 
AID21150 
A1D21160 
AID21170 
AID21180 



OS AIDS - AU 


'OMATIC INI 


TRACTIVE 




2020 






199<*R 


<+D<*6 
5520 


DC 


C'HHU • 


1998R 


5353 
2020 


nc 


C»SS • 


199CR 


<»F*3 
2020 


DC 


C»OC • 


19A0R 


tm9 

2020 


DC 


C'AI • 


19AfR 


FFFF hSDE. DC 


-1,-1 




FFFF 






19A8R 


5356 
U320 


DC 


C'SVC t 


19ACR 


53«*9 
•♦E51 


DC 


C'SINT* 


19B0R 




DO 


7 


19B0R 


FFFF 
FFFF 


DC 


m X * ™ X 


19BtR 


FFFF 
FFFF 


DC 


-1,-1 


19B8R 


FFFF 
FFFF 


DC 




19BCR 


FFFF 
FFFF 


DC 


-1,-1 


19C0R 


FFFF 

FFFF 


DC 


*1("1 


19C+R 


FFFF 
FFFF 


DC 




19C8R 


FFFF 
FFFF 


DC 




19CCR 


5252 
tC20 


DC 


C'RRL • 


19D0R 


52tC 
MC20 


DC 


C»RLL • 


19D<»R 


HSDF.Nt) EQlJ 


* 


19DHR 




END 


OSAIDS 



AID21190 

AiD21200 

AID21210 

AI021220 

A1U21230 

AI0212H0 

AID21250 

A1D21260 
AI021270 

AID21270 

AID21270 

AID21270 

AID21270 

AID21270 

AID21270 

AI021280 

A1D21290 

AID2130U 
AID21310 
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ADD 


02E6R 


ADFLOT 


0316K 


AIDSAV 


OAEOR 


ARITH 


02A4R 


ASM1 


OCOER 


ASMDMP 


0CC6R 


ASMEND 


17E<*R 


ASMPTR 


17CHH 


BIAS 


0003 


BINBLK 


08BCR 


BINOUT 


O0AER 


BR1 


11C0R 


BR2 


11CER 


BREAK 


11B«»R 


BRKMSG 


1224R 


BUFEND 


0A76R 


BUFFER 


OAtER 


BUFFLG 


11UER 


BYAS 


012CR 


CCSAUE 


OFCOK 


CD1 


0D48R 


CD2 


0D12R 


CHK1 


005ER 


CHK2 


006AR 


CHK2A 


0076K 


CHK3 


007CR 


CHK3A 


009«»R 


CHKH 


009ER 


CHK5 


00B0R 


CHK6 


00C6R 


CHK7 


OOOHR 


CHR1 


OD<fbR 


CHRtiflP 


0CF8K 


CLEAR 


07B6K 


CMCREN 


0A17R 


CHDCHR 


0AO6R 


CMDENO 


0A3AR 


CMDER 


0006 


CMDERR 


092tR 


CMDINP 


080AR 


CMDMS 


09«t6R 


CMDMSG 


09<t2R 


CMDND 


09<»ER 


CMOTBL 


0A18R 


COMMA 


UA3ER 


CPREN 


0A3DR 


Dl 


0B82R 


D10 


066ER 


D3C 


0666R 


DBLSAV 


OABCR 


DBUWK 


0AB8R 


OD1 


0B88R 


DD2 


0BA2R 


DECD1 


0BC8R 


DECD2 


OAHtR 
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DECDMP 


0B8»*R 


DEFCON 


178ER 


DELEND 


0A42R 


DELIM 


0A3AR 


DUMP 


0B2CH 


DUMPU 


0B7AR 


El 


lO'JOR 


E1E0 


1056R 


E1EON 


1086R 


E1E2 


1088R 


E1E2N 


10A8R 


E1E4 


10AAR 


E1EHN 


HOAR 


E1TRL 


ODE6R 


ENTER 


OFECH 


EX 


ODFbR 


EX2 


OE26R 


EX2A 


OE52R 


EX2B 


OE3HR 


EX2C 


OE76R 


EX3 


OE80R 


EX»t 


OEC6R 


EXi»A 


OEFCR 


EX<*B 


OF08R 


EX5 


OF2AR 


EX5A 


OF46R 


EXfe 


OF91R 


EX6A 


OF9AR 


EX7 


OEAOR 


EXBLK 


OF86R 


EXBRC1 


0FCi*R 


EXBRCH 


OFC8R 


EXCUTE 


OF7CR 


EXIT 


0FB2R 


EXLPSW 


OFBCR 


EXOUT 


OF90R 


EXRTN 


OFBCR 


EXRTRN 


0FA6R 


FCON1 


066AR 


PLOT 


02F2R 


FLT1 


OBCEH 


FLT2 


OBECR 


FLTDMP 


OBCAR 


FROM 


OOOE 


Gl 


03H0K 


G10 


03F8R 


Gil 


OtOSR 


SJ.2 


040CR 


GiA 


036HR 


GIB 


0350R 


G1C 


0376R 


G3 


040AR 


G<+ 


OtOOR 


G5 


0380R 


G5B 


038<tR 


G6 


0392R 



OS 


AIDS - 


66A 


0SA2R 


G6B 


03CAR 


G7 


03AAR 


68 


03C2K 


G8A 


03CEK 


G9 


03D2R 


GO 


032*R 


HOI 


OCF6R 


HEXDMP 


OCEOR 


IDXASM 


171CR 


ILLEG 


09I*R 


ILLMSG 


0966R 


IN 


004ER 


INPUT 


OOOA 


IOERR 


092AR 


IOMEND 


0960R 


IOMS 


0952R 


IOMSG 


094ER 


Jl 


02A0R 


JUMP 


0290R 


LDPACK 


0C72R 


LDPK1 


0C82R 


LDR1 


0C22R 


LDR2 


0C32R 


LDR3 


OC9AR 


LDR«t 


0C70R 


LDR5 


0C5ER 


LOREG 


O0t6R 


LORENO 


0C5tR 


LDROUT 


0C92R 


LENGTH 


0007 


LENTBL 


ODEER 


LINK 


OOOX 


LINKS 


0002 


LIST 


08CHR 


LOADER 


OBEER 


LOG 


0932R 


LSTBLK 


090CR 


LT1 


08D1R 


LT2 


08EHR 


LT3 


090AR 


LU 


OODER 


Ml 


079ER 


H2 


07BOR 


MODE 


0008 


move: 


079AR 


MSDO 


17E<»R 


MSD2 


182*R 


MSD4 


1864R 


MSD6 


18Ai»R 


MSD9 


18E«»R 


MSDC 


192<*R 


MSDD 


196«tR 


MSDE 


19A«*R 


MSDEND 


19D«»R 


MSGTBL 


ODDER 
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OS 


AIDS - 




OOUAH 


T 


0222N 




02B4K 


EH 


OOOD 




01C6K 




01CAR 




Olf 6R 




OlFAR 




01FCK 


LL 


0FC2R 


>DE 


OFDEK 


INT 


0220R 


1 


0004 


1 


OlflbH 




09C8K 


,ND 


0A7BR 


N 


0A3CR 


;nd 


OA8CR 


iVE 


OA96R 


OP 


OFEBR 


tB 


09A8R 


,EN 


09AFR 


l EN 


09B6R 


:en 


09C2R 


iCN 


09C6R 




OOICR 




0026K 




0042R 


OS 


OOOOR 




OfllAR 




0A26R 




0612K 


ILK 


OA3ER 


»UF 


0842R 


NO 


08AER 


»UT 


0009 


;er 


OO^AR 


;e 


0964R 


» 


093AK 




0A40R 




14H6K 


* 


14CfeK 




14D2R 




14E0R 




14EER 




1500R 


:ed 


028AK 


:el 


112ER 


:hk 


0370R 


:ln 


1I4ER 


: LG 


0A48R 


1SG 


0A9OR 


<0 


0A46R 


(EG 


110CR 


<GN 


112CR 


rEK 


149AR 
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OS 


AIDS - 


PSWSAV 


OAfAR 


RO 


OOOO 


Rl 


0001 


RIO 


OOOA 


Rll 


OOOB 


R12 


OOOC 


R13 


OOOD 


Rl<t 


OOOE 


R15 


OOOF 


R2 


0002 


R3 


0003 


RH 


ooot 


R5 


0009 


R6 


0006 


R7 


0007 


R8 


0008 


R9 


0009 


RDIN 


07CAR 


READ 


07F8R 


REGSAV 


0A98R 


RP1 


023ER 


RP2 


024<tK 


RP3 


02<*ER 


RP3A 


02S8R 


RPt 


026*>R 


RP5 


0276K 


RPLACE 


0226R 


SAVE 


OBOOR 


SAVE2 


OACOK 


SAVREG 


0A98R 


SBFLOT 


0306R 


SETBUF 


OCAAR 


SN1 


139CR 


SN2 


13AAR 


SN3 


1306R 


SNAP 


1390R 


SNPMSG 


0A8CR 


SPACE 


0A42R 


SVCl«f 


1150K 


SVCl^A 


1176K 


SVCEO 


12CAR 


SVCEOl 


12CEK 


SVCE02 


12DAR 


SVCE03 


1308R 


SVCEOt 


133«fR 


SVCE05 


133ER 


SVCE06 


13«*«*R 


SVCE2 


11EER 


SVCE21 


11F2K 


SVCE22 


11FER 


SVCE<f 


13EER 


SVCE«»1 


13F2R 


SVCE<t2 


13FER 


SVCEH3 


1«»36R 


SVCTAB 


118AR 


TAB 


097ER 
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O^AK 

097tK 

09<>AK 

099ER 

0990K 

0982R 

0156R 

0B20K 

OBPCR 

OOOF 

1272R 

1286R 

128ER 

129«*R 

12AfeR 

1200R 

1266H 

131ER 

0A94R 

13<+CR 

1350R 

0R2HR 

09£>0R 

0D52R 

0D7HR 

0O88R 

OOAER 

0OH6K 

ODHfaK 

0OC8R 

ODCER 

0D4AH 

0005 

0E1EK 

lb9t)K 

16EER 

171AR 

171«»R 

1706R 

1730R 

175CR 

17fcOR 

OEBER 

04COR 

04CCR 

D770K 

077AR 

077ER 

0786R 

0«*CCK 

04FHK 

050LK 

0Sfe8K 

0576R 

05«HR 

0598R 
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XF5 


059ER 


XF6 


05ACR 


XF7 


OSEAK 


XF8 


060CR 


XF9 


0632K 


XF9A 


OSHHH 


XFRO 


05C0R 


XFR2 


05CER 


XFSAVE 


06SER 


XH1 


OflfcK 


XH2 


0<*2ER 


XH3 


0«t3HR 


XHB1 


0«»58R 


XHB2 


0H5AR 


XHB2A 


0f5ER 


XHB3 


0466R 


XHB«» 


0^9<tR 


XHB5 


04ACR 


XL2 


06CER 


XL3 


06D4R 


XLATOB 


0«*B2R 


XLATEA 


167CR 


XLATEC 


076CR 


XLATED 


0HE2R 


XLATEF 


0516R 


XLATEH 


OtOER 


XLATEL 


0672R 


XLATEU 


158AR 


XLATHB 


0«t«tCH 


XLCMEX 


0730R 


XLDCNT 


0720R 


XLDEC 


06BAR 


XL0EC2 


06C8R 


XLDONE 


0716R 


XLEXDG 


0738R 


XLEXPT 


06F0R 


XLFT1 


06AOR 


XLFT2 


0702R 


XLFT3 


0701R 


XLOUT 


07«*6R 


XLSAVE 


0768R 


XLTF 


06EAR 


XREDU2 


065HR 


XU1 


15B6R 


XU2 


15CER 


XU3 


1508R 


XU4 


15E2R 


XU5 


15E8R 


XU6 


1626R 


XU6A 


163ER 


XU7 


16<»AR 


XU7A 


1672R 


XU8 


1648K 


XZERO 


063CR 


21 


11ACR 


ZAP 


1190R 
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ZAPHRK 1228R 

ZAPPRO l'illbK 

ZAPSNP 1 <*■•.(. H 

ZAPTRC 13bl\< 

ZR1 1236H 

2B2 12<42H 

ZB3 1258K 

ZBt 126UK 

ZPC 1S2AK 

?P1 15bbK 

ZP2 1562K 

ZP3 15f.CR 

ZP<* 1578H 

ZP5 153ER 

ZS1 116AR 

ZS2 1<+76H 

ZS3 1H8CR 

ZS*t 1<*9HR 

ZT1 1360R 

ZT2 136CR 

ZT3 1382R 

ZT<+ 138AR 



RELOCATlMf, LOADER Q6-02'»R03A13 



PAGE 



0000 
0001 
0002 
0003 
000<+ 
OS 
0006 
0007 
OOOM 
0009 
OOOA 

ooon 
oooc 
ooon 

OOOE 
OOOF 
0078 

0002 
OOOD 
OOOA 



* 

* 
* 
* 
* 
* 

* 
* 

* 
* 
* 

* 

» 
* 
* 

* 
* 
* 
* 
* 
* 
* 



BASIC REL-LOAUER 

COPYRIGHT INTERDATA. IMC. JUNE, 1973 

REVISED UYt J. PRATT 

THIS LOADER OPERATES STAND-ALONE. IT ACCEPTS STANDARD 

LOADER-FORMAT, INTFROATA TYPE M fi/ 9 OR Mlfe/if FORMATS 

PRObR fl M-RELOCATION A N0 FORW A RO-REFEREI\!CE CHAINING IS 

ALLOWED FOR. 

LABEL AND ENTRY ITEMS ARE IGNORED 

ExTRN ITEMS HALT, BUT ARE IGNOREO ON RESTART 

COMMON ITEMS HALT, WITH NO RESTART AVAILABLE 

FOR EXECUTION WITH CASSfTTE OR MAG TAPL LIBRARIES - TO POSITION 
J A ^/?!L L0ADING " ENTER THE NUHBER 0F FILEMARKS TO BE SKIPPED ON 

rv!? T r!! AN ^ PANEL - WHEN N ° PIPPINS IS DESIRED, THE MSfi SHOULD 
BE Xt 0» TO AVOID INADVERTANT SKIPPING. 

error-stop displays: 

01 checksum error 

02 SEQUENcE-ERROR 

03 ATTEMPT TO LOAD OVER LOADER 
4 * REF-CHAIN LOOP 
FX X-CONTROL-ITEM ENCOUNTERED 

START THE LOADER AT ORG TO LOAD AT 80 

TO REDEFINE BUS, INSERT NEW BIAS A T ORG+A AND 

EXECUTE AT ORG+fl 

COMTINUE IS AT 0RG+2fe 



* 

HO 

Kl 

R2 

R3 

F>YTE 

PICK 

SEQNUf- 

ONE 

TWO 

FOUR 

A 

U 

C 

(J 

L 

ABSF 
IJINDV 



EQU 
ECU 
EQU 
EQU 
EQU 
EOU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EOU 
EQU 
EQU 




1 
2 
3 

t 

5 
b 

7 

a 

9 

10 

11 

12 

13 

It 

IS 

X»7fl' 



* REDEFINE SOME REGISTERS 
RTN EQU R2 
DEv EOU 
AC1 EQU A 



LINK REGISTER 
DEVICE ADDRESS 



Rr L0003 

RIL0004 

Rl 'LOO 04 

HI LOOOH 

Rf L000<4 

Rl L0004 

RFL0004 

RIL0005 

Rl L 000ft 

RILOOO7 

RF L0008 

RFL0009 

REL0010 

RFL0011 

Rl L0012 

PI L0013 

Rf.L001<t 

RCLOOlgi 

REL0016 

Rf LOO171 

Rl LOOIfll 

Rl L0019I 

Rl LOOPOI 

RfL0021l 

R| L0022< 

Rf;L0023( 

Rf L002«V< 

RrL0025( 

RF L00261 

RIL00271 

RIL002UC 

RFL0029C 

IUL0030C 

Rf L0031C 

Rf L0032C 

RIL0033C 

RFL003tO 

RKL00350 

;;; LO0360 

Rf LO0 170 

R H. 3 8 

Rf L00390 

RIL00400 

pr momo 

Rf L00f?0 
RI.L00130 
Rl 1.0OM40 
RTLOOtSO 
RF L00t60 
RFL00t70 
RFL0d48Cf 
Rf L00<t90 
Rl LOOSOO 
>ci LOO-ilO 
Rf L00?j20 
Rl L00530 
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0001 


DAT 


EQU 


Rl 


000E 


CBA 


EQU 


E 


OOOB 


crb 


EQU 


B 


OOOC 


ZERO 


EQU 


C 


OOOOR C8A0 


START 


LHI 


A,X'«S6» 


0080 








0004R 4300 




B 


*+8 


OOOCR 
0008R ca^o/ 


REDEF 


LHI 


A,X'80» 


0080 








MOOCR 40A0 




STH 


A.LOC 


0384R 


\ 






0010R 40A0 




STH 


A.BlAs 


0388R 








0014R 40A0 




STH 


A,PTOP 


038AR 








0018R OBAA 




SHR 


A. A 


001AR 40A0 


clear 


STH 


A.LOCX 


0382R 








001LR 4200 




NOP 




0000 








0022R 4200 




NOP 




0000 








0026R 0B66 


cont 


SHR 


SEQNUMtSEONUM 


0026R OQFF 




SHR 


ABSFiABSF 


002AR C870 




LHI 


0NE,1 


0001 








002ER C880 




LHI 


TWO. 2 


0002 








0032R C890 




LHI 


FOUR. 4 


0004 










* 


skip 


1 NO. FILEMARKS 


0036R O3D0 




LB 


OEV.HINDV 


0078 








003AR OaOD 




LHR 


RO.DEV 


003CR 0409 




NHR 


RO.FOUR 


003ER 4330 




BZ 


NEXT 


005ER 








0042R 4130 




BAL 


R3.MTCHK 


35AR 








0046R 997B 




RHR 


ONE. CRB 


0048R C4B0 




NHI 


CrB.X'OOFF* 


OOFF 








004CR 4330 




BZ 


NEXT 


005ER 








0050R DEDO 


SKPFH 


OC 


DEV.SKIP 


0390R 








0054R H130 




BAL 


R3.MTCHK 


035AR 








0058R 0BR7 




SHR 


CRB. ONE 


005AR 4230 




BNZ 


SKPFH 


0050R 








005ER 0B67 


NEXT 


SHR 


seonum.one 


0060R 4120 




BAL 


R2, INPUT 


024CR 









PAGE 

INPUT OATA X STATUS 
CUR BYTE ADRS POINTER 
TEMP STOR FOR BYTE ASMR 



INITIALIZE LbC.BIAS 



BIAS REDEFINITION 



RESET PTOP TO BIAS 
CLEAR EXECUTE ADRS 



CLEAR SEQNUM 
SET REl MODE 
SET CONSTANTS 1,2,4 



ENTERED ON SWITCHES (MSB) 
GET DEvICE ADDRESS 

DEVICE ADDRESS 
MAGNETIC DEVICE 7 
NO 

CHECK MOTION - ETC. 

GET NUMBER OF FILE MARKS 
REMOVE LSB 

IT ZERO - NO SKIP 

SKIP COMMAND 

CHECK MOTION - ETC. 

DECREMENT FILE MARK COUNT 
CONTINUE 

DECR SEO COUNT 
INPUT ONE RECORO 



REL00540 
REL00550 
REL00560 
REL00570 
REL00580 
REL00590 

REL00600 

RFL00610 

RFL00620 

REL00630 

Ht L00640 

RFL00650 
RF L00660 

REL00661 

RF.L00662 

R[ LOOf.70 
RT L00680 
RCL00690 

Rf L00700 

RTL00710 

Ut L00720 
RFL00730 

RFL00740 
R[ L00745 
RELOOTSO 

RFL00760 

RFL00770 
REL00780 

RTL60790 

RtLOOfiOO 

RFL00810 

Rf L00620 
Rf LOOfl.5!) 

RElOOB^O 
REL00850 
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006tR 07CC 
0066R COAO 

6 A 
006AR <+7CA 

U392R 
006ER 0BA8 
0070R «»310 

006AR 
007<+R C7C0 

FFFF 
0078R «*230 

00E8R 
OO7CR U560 

0392R 
0080R «>230 

00F0R 
0084R C850 

0396R 
0088R C8H0 

oooc 

008CR C550 
03FER 

0090R <*380 
005ER 

009tR «t8A5 

0000 
0098R «tllO 

0236R 
009CR 08EA 
009ER OAAA 
OOAOR <+8BA 

00A6R 
OOA'tR 030B 

00A6R 005ER 
010ER 
01EER 
012CR 

OOAER Ol«f«fR 
0150R 
01B8R 
01C*»R 

00B6R 0178R 
0180R 
0198R 
01B0R 

OOBER 01D8R 
0100R 
00C6R 
01D0R 

00C6R 48A5 
0000 

OOCAR fllO 
0236R 



CHIT 



LOOP 



JUMP 



XHR 
LHI 

XH 

SHR 
BNM 

XHI 

HN£ 

CLH 

CSNE 

LHI 

LHI 



C.C 
A, 106 

CBUFFIA) 

A, TWO 
CKIT 

C-l 

Cf RR 

SEONUMtBUFF 

SERR 

PICK,BUFF+«» 

BYTE, 12 



CLHI PICK,BUFF+lo8 

BNL NEXT 

LH A.O(PICK) 

8AL RltEXTR 



EITM 



LHR 
AHR 

LH 
BR 
DC 



DC 
DC 

DC 

LH 
BAL 



E,A 
A, A 
B, JUMP (A J 

B 



CLEAR FOR CHECKSUM 
COMPUTE CHECKSUM 

BY XH OF EVERY HW OF HljFR 

AND WHEN DONE, 

WITH FFFF. RESULT SHOULD 
BE ZERO. 

compare to seo num 
adjust pick, byte 

test if Record done 

extract next command 

save item for err stop 
go to command routine 



NExT, END, CHAIN, FLIP 
LDX,LDL,RFIN,oFIN 

unab,unrl,ouab,durl 
rbcd.dbcd, ei tm, label 

a,0(pick) fetch second digit 
rl.extr of ex control items 



Hf L00860 
RFL00670 

NFL00880 

REL 00890 
REL00900 



wmawra 

REL00920 

RELOO93O 

REL009«*0 

REL00950 

Rf L00960 

Rf L00970 
REL00980 

RFL00990 

REL01000 

RELOlOlO 

REL01020 
REL01030 
REL010H0 

RLL01050 
REL01060 
RfL01070 

Rf L01080 

RCL01090 

HELOllO^ 



Rf L01110 
Rf L01120 

REL01130 
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OOCER 
OODOR 

00O4R 
OOD6R 

OODAR 

OODER 
OOEOR 

ooe4r 



OOESft 

OOECR 

OOFOR 

00F4R 

OOF8R 

OOFCR 

OlOOR 

0104R 
0106R 

OlOAR 

OlOER 

0112R 

0116R 

OllAR 
OllCR 
OHER 

0122R 
0124R 

0128R 



05A9 

4230 

OODAR 

0766 

4400 

OOflCR 

CBBE 

OOFO 

9A7B 

C200 

00E4R 

8000 

008CR 

C8A0 

0001 

4300 

0104R 

C8A0 

0002 

4300 

0104R 

C8A0 

0003 

4300 

0104R 

C8A0 

0004 

9A7A 

C200 

OlOAR 

8000 

0060R 

4A00 

038AR 

4000 

0388R 

4000 

0384R 

07AA 

9A7A 

4BA0 

0382R 

023A 

C200 

0128R 

8000 

0026R 



012CR C7F0 
FFFF 

0130R 48A0 
0384R 

0134R 48B0 
0386R 

0138R 40A0 



LERR 



* 
CERR 



SERR 
ADER 

RELP 
ERROR 

END 



FLIP 



CLHR A, FOUR 

BNE LERR 

XHR SEQNUM.SEONUM 

H LOOP 

LHI B.X'FOME) 

WDR ONE.B 

LPSW *+4 

DC X*8000».LOOP 

LHI A, I 

8 ERROR 

LHI A, 2 

3 ERROR 

LHI A, 3 

B ERROR 

LHI A, 4 

WDR ONE' A 

LPSw *+«» 



IF IT'S E4. ZERO SEQ 
OTHERWISE. LOAO-ERR 



FETCH ERROR DISPLAY 
SHOw ERROR AND STP 



SHOW ERROR STOP 



DC 

LH 

STH 

STH 

XHR 
WDR 
LH 



X«8000».A(NEXT+2) 



RO.PTOP 

RO.BIAS 

RO.LOC 

A, A 
ONE, A 
A,LOCX 



BNZR A 

LPSW *+'* 

DC X»8000',C0NT 

XHI A8SF»X»FFFF t 

LH A,LOC 

LH B.LOC+2 

STH A.LOC+2 



FETCH TOP OF LOADED CODE 

BUMP BIAS 

AND LOC COUNTER 

GET A ZERO 

DISPLAY NORM END CO 

FETCH XFER ADRS 

XFER IF NON-ZERO 



FLIP THE ABS FLAG 
FLIP LOC COUNTERS 



REL01140 
RFL01130 

REL01160 
REL01170 

Rl L01180 

Rf L01190 
RF L01200 

REL01210 

REL01220 
REL01230 

RLL01240 

R{.L01250 

RFL01260 

RFL01270 

Rl L01280 

RLL01290 

R t L01300 
Rf L01310 

RfL0i320 

Rf L01330 

RFL01340 

RCL01350 

RFL01360 
REL01370 
RFL01380 

R^L01390 
REL01400 

RCL01410 

RLL01420 
RFL01430 

RfL01440 

REL01450 

RCL01460 
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0386R 








013CR 


<tOBO 
038<+R 




STH 


B.LOC 


OltOR 


*300 
OD8CR 


* 


13 


LOOP 


OJ.H4R 


<H30 
020ER 


LDX 


BAL 


R3«GETT 


OltBR 


tODO 
0382R 




STH 


D.LOCX 


OltCR 


•+300 
008CR 




11 


LOOP 


X 50R 


t!30 
020ER 


LDL 


DAL 


K3'GETT 


0154R 


C 500 
OOOOR 


Ll)L0 


CLHI 


D, START 


0158R 


1280 
016^R 




HL 


LDLX 


015CR 


C5D0 

cmooR 




CLHI 


D.LTOP 


0160R 


1+280 
0OF8I-! 




BL 


AUER 


0161R 


fODO 
038i»R 


LOLx 


STH 


U.LOC 


0168R 


<*5D0 
038AR 


LDLl 


CLH 


D.PTOP 


OlbCH 


<»280 
008CR 




HL 


LOOP 


0170R 


Hono 

038AR 




STH 


D.PTOP 


017<+R 


4300 

08CR 




H 


LOOP 


0178R 


«*120 
021ER 


UMAH 


BAL 


R;>,WORD 


017CR 


<*300 
0188R 




B 


UNRX 


0180R 


tl20 
021ER 


UNRL 


BAl 


R2.W0RD 


01O4R 


UADo 
0388K 




AH 


O.BIAS 


0188R 


«»8C0 
0384R 


UNRX 


LH 


C.LOC 


OIBCR 


UODC 
0000 




STH 


D.OJC) 


0190R 


0AC8 




AHR 


C.TWO 


0192R 


08DC 




LHR 


D,C 


019«*R 


<+300 

Ol5"+R 




B 


LOLo 


0198R 


C8E0 
0178R 


LJUAH 


LH1 


1- .UNAB 


019CR 


<U20 
21ER 


DU 


BAL 


R2.W0RD 


OlAOR 


taco 




LH 


CLOC 



SET EXECUTION ADRS 



SET LOAD LOCATION 
CHECK FOR LOAd-LOc 
OVERLAPPING LOADER 



UPDATE PTOP IF NEC, 



LOAD 2 BYTES ABS 



LOAD 2 BYTES REl 



BUMP LOAD LOCATION 



LOAD 4 BYTES ABS 



. R EL°1«»7( 

REL01«t8( 

REL0149< 
REL0i50( 

in Lois ic 

Rf L0152( 

REL0153C 
RfL0i5i|C 

RTL0155C 

RrL0T56X 

RIL0157C 

RLL0158C 

REL 01 591 

REL01600 

Rf LOlfclQ 

RTL01620 

Rf. LOX630 

Rf L01640 
RfLoifebO 

Rf L01660 

iU L01670 

REL 01680 

REL01690 

Rf 16 1700 

Rf L01710 
RFL01720 
REL01730 

HI L01740 
RFL01750 

RfL01760 

Rf L01770 
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0384R 
01A4R 40DC 




STH 


0.0(C) 


0000 
01A8R 0AC9 
OlAAR toco 




AHR 
STH 


C.TWO 
C.LOC 


0384R 
01AER 030E 




BR 


E 


OlBOR CSEO 


OURL 


LHI 


E.UNRL 


0180R 








01.B4R 4300 




H 


Du 


(U9CR 








01B8R 4130 


* 

RFIN 


BAL 


R3.GETT 


020ER 
01BCR 40D0 




STH 


DtREF 


037ER 
01C0R 4300 




B 


LOOP 


008CR 








01C4r 4130 


DFIn 


8A|_ 


R3.GETT 


020ER 
01C8R 40D0 




STH 


D,DEF 


0380R 
01CCR 4300 




B 


LOOP 


008CR 








01D0U C6B0 


DBCD 


LHI 


B,LOOP 


008CR 
0104R 4300 




B 


SKIPD 


01E0R 
01D8R C8B0 


R13CD 


LHI 


B.LERR 


OODAR 
OlOCR 4300 




B 


SKIPD 


01F0R 
OlDOR 
01E0R 4120 


LABEL 
SKIPD 


EQU 
BAL 


DBCD 
R2.W0RD 


021ER 
OlE4R 4120 




BAL 


R2.W0RD 


021ER 
01EBR 4120 




BAl 


R2.W0RD 


021ER 








01ECR 030B 


* 
CHAIN 


BR 


b 


01EER 48D0 


LH 


D.OEF 


0380R 
01F2R 48E0 




LH 


E.REF 


37ER 
01F6R 48CE 


CHI 


LH 


C,0(E) 


0000 
01FAR 40DE 




STH 


U.OfE) 


0000 
OlFER OfiEC 
0200R 4330 




LHR 
BZ 


E.C 
LOOP 


008CR 
0204R 05CD 




CLHR 


C,0 



LOAD 4 BYTES REL 



GET REF VALUE 



GET DEF VALUE 



SKIP DATA-ITEMS 



DEFINE CHAIN: 

FOLLOW THE THREAD 

AND DEF EACH REF 

AND THIS IS A REF-LOOP. 

BUT IF A REF=A OEF , 



RFL01780 

Rl L01790 
Rf L01800 

RFL01810 
RE L01820 
Rl L01830 

Ht L01840 

REL01850 
RELOl8bO 

R[ U01870 

REL01880 

Rl L01890 
R[ 1.01900 

REL01910 

R( L0192Q 

Rl L01930 
Rl L01940 

Rl L.01950 

Rt L01960 

RIL01970 

Rl L01980 
REL01990 

Rf L0<>000 

RH.02010 

RLL02020 
REL02030 

RTL02C40 

Rl 1.02050 

REL02060 

RYL02070 

REL02080 
RFL02090 

REL02100 
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0206R 


4330 
OlOOR 






BE 


RE LP 


020AR 


4300 
01F6R 






B 


CHI 


OPOFR 


4120 


GETT 


HAL 


R2.W0RD 




021ER 










0212R 


OBFF 






LHR 


ABSF.ABSF 


(1?14r 


4233 
0000 






HN2 


0(R3) 


0218R 


4AD0 
0388R 






AH 


U,BIAS 


021CR 


0303 






BR 


R3 


021ER 


08C9 


* 
WORD 


LHR 


CiFOUR 


0220R 


4HA5 


W0RD1 


lh 


A.O(PICk) 




0000 










0224R 


4110 
0236R 






BAl 


Rl.EXTR 


0228R 


CDDO 
0004 






SLHL 


D,4 


022CR 


OfeDA 






OHR 


D«A 


022ER 


0BC7 






SHR 


C.ONE 


0230R 


4230 
0220R 






BN2 


WORDl 


0234R 


030? 






BR 


R2 


0?3M< 


CCA4 


+ 

EXTK 


SRHL 


A, (BYTE) 




0000 










023AR 


C4A0 
OOOF 






NHI 


A,X«F» 


023ER 


0B49 






SHR 


ByTE,FOUR 


0240R 


4311 
0000 






UNM 


0<R1> 


0244R 


C840 
OOOC 






LHI 


BYTE. 12 


0248R 


0AS8 






AHR 


PICK, TWO 


024AR 


0301 






8R 


Rl 






* 
* 


input 


ROUTINE 






* 
* 


CALL 


BAL 


RTN, INPUT 


024CR 


D3D0 


INPUT 


LB 


DEV.BINDV 




0078 










0250R 


083D 






LHR 


R3.DEV 


0252R 


0437 






NHR 


R3.0NE 


0254R 


4230 
026CR 






BNZ 


INI 


0258R 


DEDO 
037AK 






OC 


DEV.TWRT 


(1?5Cr 


4240 
0258R 






HTC 


4,*-4 


0260R 


4130 
034ER 






BAL 


R3.0EVCHK 


0264R 


DADO 






WD 


DEVtXON 



PAGE 7 
THEN WE'VE BEEN HERE BEFORE 

GET 2 BYTES OF DATA 

AND ADD BIAS TO IT 
IF" IN REL MODE 



ASSEMBLE 1 WORD OR 
TWO BYTES OF DATA 

INTO REG 0. 



EXTRACT ONL FOUR HIT 
BYTE FROM THE DATA 
IN REG A. 

UPDATE PICK AND BYTE 



FETCH INPUT DEV AORS 

DEVICE ADDRESS 

IF TTY, SELECT WRITE 

HSPTRP, HT OR CAS 

AND OUTPUT X-ON 

REPEAT IF FSYN 

CHECK 



REL02110 

REL02120 

IUL02130 
RIL02140 

R[ L02150 
Rl 1.02160 

REL 02170 

RCL02180 
RFL0219C 
Rl L02200 
RE L02210 

REL0222U 

REL 0223 

Rf L02240 
REL02250 
RLL0226C 

RIL0227Q 
Rf LO2280 
Rf L02290 

Rf L02300 

RFLO2310 
Rl LO2320 

RFL0233C 

REL02340 
REL02350 
Hi LO2360 
RFL02370 
REL02380 
REL02390 
REL02400 
PEL02«nO 

Rl L02420 
RrLD2425 
REL02430 

RFL02440 

RFL02450 

Rf-L02460 

RE L02470 
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0268R 


037CR 
4240 


BTC 


4,*-4 


REPEAT WRT IF FSYN. 


REL02480 


026CR 


0264R 

DEDO INI 


OC 


DEV.BINDV+1 


START DEVICE IN REaD- 


REL02490 




0079 
4240 


BTC 


4,*-4 






0270R 


MOOE (LOOP IF FSYN» 


RE L 025 00 


0274R 
0276R 
0278R 


026CR 
083D 
0439 
4230 


LHR 

NHR 
BNZ 


R3.DEV 

R3.FOUR 

MTCAS 


DEVICE ADDRESS 
MT / CAS 7 


REL02510 
REL02515 
REL02520 


027CR 
027ER 


0316R 

07EE IN2 XHR 

40E0 STH 


CBA.CBA 
CBA.CFLG 


AND BUFFER-INDEX 


REL02530 
RFL02540 


0282R 


0376R 
40E0 


STH 


CBA.BFLG 




RFL02550 


0286R 


0378R 
08CE 

* 


LHR 


ZERO.CBA 




REL02560 
REL02570 


0288R 


4130 READIT BAL 


R3.0EVCHK 


CHECK FOR NOT BUSY 


REL02580 


028cR 
028ER 


034ER 

9BD1 

4240 


RDR 
BTC 


DEV.DaT 
4,*-2 


READ A BYTE 
REPEAT IF FSYN 


REL02590 
RFL02600 


0292R 
0294R 


028CR 

9A71 

48A0 


WDR 
LH 


ONE.DAT 
ACl.CFLG 


SHOW DATA READ 
TEST C FLAG 


REL02610 
REL02620 


0298ft 


0376R 
4220 


BP 


STORE 


if + its hig/17 format 


REL02630 


029CR 


02E4R 
4210 


BM 


TESTB 


IF - ITS M08/09 FORMAT 


REL02640 


02A0R 


02B0R 
C510 


CLHI 


DAT.X'FO' 


ELSE. WAIT X SEE 


REL02650 


02A4R 


OOFO 
4230 


BNE 


TESTB 


IF X'FO* SET C + 


RFL02660 


02A8R 


02B0R 
4070 


STH 


ONE.CFLG 




RtL0^670 


02ACR 


0376R 
4300 


B 


READIT 


AnD READ in BUFFER 


REL0?*«0 


02BOR 
02B2R 


0288R 

08A1 TESTB LHR 

C4A0 NHI 


AC1.0AT 
AC 1.15 


OTHERWISE SEE IF 
LEGAL MOB/09 CHAR 


REL02690 
REL02700 


02B6R 


OOOF 
D3AA 


LB 


aci.ztabucii 


FETCH TaBLED-ENTRY 


Rl L02710 


02BAR 
02BCR 


0366R 
051A 

4230 


CLHR 
BNE 


DAT.AC1 
READIT 


AND IS IT = DATA? 

IF NOT, IGNORE 


REL02720 
Rrl02730 


02C0R 


0288R 
48A0 


LH 


ACl.BFLG 


IF SO. TEST B FLAG 


RTL02740 


02C4R 


0378R 
4230 


BNZ 


ASMB 


IF SET. THIS IS AN ODD 


REL02750 


02C8R 


02DAR 
4070 


STH 


ONE.BTLG 


HALF-BYTE SO ASSEMBLE 


REL 02760 


02CCR 
02CER 


0378R 

08B1 

COBO 


LHR 
SLHl 


CRB.DaT 
CRB.4 


IF RESET, SAVE EVEN- 
TTALE-BYTr AND~5ET ~ff 


REL02770 
RELD2T80 


02D2R 


0004 
4060 


STH 


SEONUh.CFlG 


IF LEGAL ZONES. SET C - 


REl.02790 
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0376R 
0206R 1(300 B 

n?fln« 

02I3AR <4 0CO ASMI) STH 

378R 
020ER cno NH1 

000F 
02E2R 061B OHR 

02EHR D21E STORE STB 

0392R 
02E8R 0AE7 AHR 

O2EAR C5E0 CLHI 

006C 
02EER «»280 BL 

0288R 
02F2R 083D LHR 

02F<+R 0<*37 NHR 

02F6R 4230 BNZ 

0310R 
02FAR DEDO TTYOFF OC 

037AR 
02FER t»2«f0 BTC 

02FAR 
0302R 9DD1 SSR 

030tR «+2F0 BTC 

0302R 
0308R DADO WD 

037DR 
030CR <*2H0 BTC 

0308R 
0310R C880 IJVHOUT lHi 

0002 
031<*r 0302 BR 

0316R 9DDi MTCAS SSR 
0318R «»32o BNP 

032HR 
031CR '♦ISO BAL 

035AR 
0320R 4300 H 

026CK 
032HR D7D0 MTCASl RB 

038CR 
0328R «H30 BAL 

03HER 
032CR <+320 BNP 

03HER 
0330R C<*l0 NHI 

00A0 
033«*R H330 BZ 

0310K 
0338R «H30 BAL 

035AR 
033CR DEDo OC 

037CR 
03t0R *»130 BAL 

035AR 



READIT 

ZtROtBFLC 

OAT, 15 

DAT.CRB 
DATiBUFF(CBA» 

CBA,ONE 
CBA.1O8 

READIT 

R3.DEV 
R3.0NE 
OVROUT 

DEV,TWRT 

«♦,*-«♦ 

OEV.DaT 
15,*-2 

QEV.XOFF 

<♦,*-<♦ 

TW0«2 

R2 

DEv.DAT 

MTCASl 

R3.MTCHK 

INI 

DEV.BUFBLK 

R3.DEVCHK 

OEVCHK 

DaT.X'AO' 

OVROUT 

R3.MTCHK 

UEV.BAKREC 

R3.MTCHK 



ON ODD-ITIMS. RESFT H 

AND ASSEMBLE A WHOLE 

BYTE 

PUT IT IN BUFFER 

BUMP THE POINTER 
THRU YET??? 

NO. GET SOME MORE 

DEVICE ADDRESS 
HSPTRP ? 

WRITE COMMAND 
WAIT FOR A CHANCE 
AND SEND X-OFF 



RESTORE RETRY COUnTER 

RETURN 

COMMANO ACCEPTED ? 

YES ,EOM DROPPED 

NO .WAIT FOR NMTN 

RETRY 

READ A BLOCK 

CHECK FOR ERRORS ON MT / CASSETTE 

WAIT FOR EOM TO SET 

CHECK ERR AND ET BITS 

MOT SET - RETURN 

WAIT FOR NO MOTION 

backspace a record 
wait for no motion 



RELOCATING LOADER 06-02«fR03Al3 
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03ttR 0B87 




SHR 


TWOtONE 


DECREMENT RETRY COUNTER 


03<t6R «*310 




BNM 


INI 


RE-READ 


026CR 










03<+AR t300 


MTERR 


B 


CERR 




00E8R 
OSfER 9D01 


DEVCHK 


SSR 


DEV.OAT 


SENSE STATUS (ALL DEVICES) 


0350R *210 




BM 


CERR 


OU 7- INDICATE CKSUH ERROR 


00E8R 










n35«»R "*280 




BTC 


8,DEVCHK 


BUSY 7- WAIT 


034ER 










0358R 0303 




BR 


R3 


RETURN 


035AR 9DD1 


WTCHK 


SSR 


OEVitJAT 


SENSE STATUS (MT / CASSETTE) 


035CR CUO 




NHI 


DAT,X«10» 


CHECK MOTION 


0010 
0360R t330 




BZ 


PJTCHK" 


WAIT FOR NO MOTION 


035AR 










036<+R 0303 




BR 


R3 


RETURN 




* TABLE 


OF NON-PRINTING ASCII 


SET 


0366R 9o8l 


2TAB 


DC 


X«908l» 




0368R 8283 




DC 


X'8283' 




036AR 8495 




DC 


X«8t95» 




036CR 9697 




DC 


X»9697« 




036ER 9H99 




DC 


X»9899» 




0370R 9A9B 




DC 


X«9A9B» 




0372R 9C9D 




DC 


X»9C90» 




037«fR 9E9F 




DC 


X»9E9F' 




0376R 0000 


CFLG 


DC 







0378R 0000 


BFLG 


DC 







037AR 98A9 


TWRT 


DC 


Xt98A9« 




037CR 9193 


XON 


DC 


X'9193* 




037DR 


XOFF 


ECU 


XON+1 




037ER 0000 


REF 


DC 







0380R 0000 


DEF 


DC 







0382R 0000 


LOCX 


DC 







0384R 0080 


LOC 


OC 


X«80« 




0S86R 0000 




DC 


6 




0388R 0080 


BIAS 


DC 


X»80» 




038AR 0000 


PTOP 


DC 







037CR 


BAKREC 


EOU 


XON 




O38CR 0392R 


BUFBLK 


DC 


BUFF.BUFF+107 




03FDR 










0390R A320 


SKIP 


DC 


X»A3Z0* 




0391R 


HTCLR 


EOU 


SKIP+1 




0392R 


BUFF 


DS 


108 




03FER 




DS 


....... 




OtOOR 


LTOP 


END 







RFL03100 
REL03110 

Rf L03130 

RFL031t0 
Rf L03150 

RIL03160 

RFL03170 
REL03180 
REL03200 

RFL03210 

REL03220 

REL03230 

REL032H0 

REL03250 

REL03260 

REL03270 

RFL03280 

RFL03290 

RFL03300 

Rf L03310 

Rf L03320 

Rf L03330 

RFL03340 

REL03350 

Rf L03360 

Rf L03370 

R[L03380 

RFL03390 

Rl L0.5i»00 

RLL03m0 

RCL03t20 

REL03430 

RLL03440 

Rr_L03<»5U 

RLL03t60 
REL03470 
REL03480 
RFL03490 
RHL03500 



NrLOCATIfviG LOADLR 06-02«»R03A13 
MO ERRORS 
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A 


OOOA 


ARSF 


OOOF 


AC1 


OOOA 


ADER 


00F8R 


ASMB 


02DAR 


n 


OOOB 


HAKRFC 


037CR 


HFLG 


378R 


MIAS 


388R 


BINOV 


0070 


BUFBLK 


038CH 


PUFF 


0392R 


BYTE 


000>t 


C 


OOOC 


CHA 


OOOE 


CERR 


OOE8R 


CFLG 


0376R 


CHI 


OlFfaR 


CHAIN 


01EER 


CKIT 


OOfeAR 


CLEAR 


0O1AR 


CONT 


0026K 


CRR 


OOOB 


n 


OOOD 


DAT 


OOOl 


HHCL) 


0100K 


DEF 


38UH 


OEV 


OOOD 


OEVCHK 


034ER 


OFIN 


OIC^R 


nu 


019CR 


DUAll 


0148K 


OURL 


OlHOR 


nVROUT 


0310R 


t 


OOOE 


EITM 


00C6R 


END 


010ER 


ERROR 


oin^R 


EXTR 


0236H 


FLIP 


012CK 


FOUR 


0009 


GETT 


020ER 


INI 


026CR 


IN? 


027CK 


INPUT 


02tCR 


JUMP 


00A6R 


LABEL 


01D0R 


LC1L 


0150R 


LRLO 


0154R 


LDLl 


01f.SK 


LDLX 


016<*R 


LDX 


OWK 


LERR 


OODAR 


LOC 


03»<fK 


LOCX 


03R2R 



UHOCATIIMO LOAOf R 06-024N 03A 1.5 



I'AGf 1? 



LOOP 


oonCK 


LTOP 


OfOOH 


MTCAS 


0316U 


MTCAS1 


032tR 


MTCHK 


035AH 


MTCLR 


0391R 


MTERR 


03*»AK 


NEXT 


OOSER 


ONE 


0007 


PICK 


000b 


PTOP 


038AR 


RO 


0000 


Rl 


0001 


R2 


0002 


R3 


0003 


RBCD 


OlOttrt 


KEADIT 


02Bflt< 


REDEF 


0008R 


REF 


037ER 


RELP 


0100R 


RFIN 


01BSK 


RTM 


0002 


SEQMUM 


0006 


SERR 


00F0R 


SKIP 


0390R 


SKIPD 


01E0R 


SKPFM 


00S0R 


START 


0000R 


STORE 


02F<*R 


TESTB 


02B0R 


TTYOFF 


02FAR 


TWO 


0008 


TWHT 


37AK 


UNAH 


0178R 


UNRL 


0180R 


UNRX 


0188R 


WORD 


021ER 


WORDl 


0220R 


XOFF 


037DR 


XON 


037CR 


ZERO 


OOOC 


ZTAB 


0366R 



Cni* 



ft/ to &/U>0 



k 






Af n* 



INTEflOATA OS ASSEMBLER- 



03.Q25R02AJ.3- 



PAGE JU- 






&£*»' 



?5">£ 



r* 



z-e *i k 



0000R 

OOOO 
0001 
0002 

0003 

000H 

0005 
0006 
0007 
0006 

0009 

04X0 A 

0008 
flflOC 

0000 

-0JJUE 

000F 

000% 
000B 



0200 
1000 

oi-oa 
ogoo 

0400 

o&oo 
oeoo 
ocoo 



f !■ 



tar 



frnZei) 



*+*A 



'A 



INC. 



GETCHR 
STATEMENT 



* COPYRIGHT. INTERDATA. 

* REGISTER DEFINITIONS 

* CONSTANTS 

ZERO XflU a 

ONE ECU 1 
TWO ECU 2 

* ADDRESS, 

GET EQU 3 

* POINTER INTO SOURCE 
SRX . _ EflU... ..» ._ 

* TEMPORARY USEAGE 
R EOU 5 

REG EftUL A 

HOLD EOU 7 
TEMP EOU B 

* GENERAL -COUNTER _ 

COUNT EOU 9 

* GENERAL POINTER 

P EttlL...._lo - 

* CHARACTER FROM SOURCE STATEMENT 
CHAR EOU 11 

VALUE -EOU 12. 

* LINKAGE REGISTERS 
RETURN EOU 13 

LINIC E01L lit 

EXIT EOU 15 

* REGISTER REDEFINITION 

Six EOU SRx 

NXTSYM EOU CHAR 

* SYMBOL* 3__»SY. 



MARCH lt78 



w 



symbol table dump, inue* 
and pointer to next symbol 



OEFBIT 


EOU 


X»0200» 


USEDBT 


EOU 


X'lOOO* 


RELBIT 


EfllJL- 


...X 1.0.100. t 


ENTBIT 


EOU 


x»oaoo» 


EXTBIT 


EOU 


X'0»00» 


undefx 


EOU - 


X ' 0600 • 


XENTDF 


EOU 


X'OEOO* 


EXTENT 


EOU 


XiQCOO* 



"CQnf gYTF gTT DEFINITIONS 



O0O0R E120 


PASS! 


SVC 


lfiAOR 






000«*R 4895 




LH 


0000- 






0008r 4050 




STH 


162ER 






DO OCR ...D.15.0. 




LM 


1638R 







* ASSEMBLER MAIN FLOW - PaSS A OPTION CONTROL 
ft******************************************************* 

* "P ASS1 1 -IS-JME EXECUTION ENTnY POINT rOp ___ 

* PASS ONE ASSEMBLY OPERATIONS OF EITHER 

* SINGLE OR MULTIPLE PASS ASSEMBLIES 
?J SIZJLS FETCH 8YMTAB SIZE FROM ROSS 

R.O(R) 



RtSlZE 

£*P.P2& 



SET UppER SYMTAB LIMIT 



* S ?I *?? l,H ? OPTIONSbPaSS l OF a PAStf ASSEMBLY 

-CHECK. FLO ATIN6 tSllOL 



* STOP. PRINT, PUNCH. NO ScRaTCH. NQ S FQN 



S, 



ASM00025 

ASM000H0 
ASM00050 

ASM00070 
ASMOOOSO 

ARMoangn 

ASM00100 

ASM00110 

ASM0JLL2JL 

ASM00130 

ASM00140 

ASM0Q1S0 

ASM00160 

ASM00170 

ftSMOOlBQ 

ASM00190 

ASM00200 

ASMOpaift 

ASMOO22O 
ASM00230 



ASM00250 
ASM00260 
ASM00»70 

ASM00280 
ASH00290 

ASftaoJao 

ASM00310 
ASM00320 

_ASMft03SDL ._. 
ASM003H0 
AsM00350 

ASM003j60 

ASM00370 
ASMJ003SO 

ASM00390 

ASMOO^OO 

ASMOOtlO 

ASHQOjtaJL. 

ASM00H30 

Asi«|00«»«*0 

-AsMOOIflfl 

ASM00»»60 
ASM0Oi(70 
ASMOO tSO 

ASMO0*90 



ASM08500 

-ASM.Q05JJ1 

ASM00520 
ASBMU 



INTEKDATA OS ASSEMBLER 



03-025R02A13 



PAGE 



0010R 0070 

1MCR 
001AR <»0'->F 

oooo 

0018R 0250 

18A5R 
©01CR 4300 

003FR 



0020R Cfl60 
0002 

0024R 4300 
0038R 



0028R C860 
0003 

002CR C850 
0002 

0030R 4300 
003AR 



• SYMBOL TABLE POINTERS SET =SYMTAB,AND FIRST NULL 

• ENTRY SET = X«8000« 

STM 7»0PTI0N 



STH 
STB 
8 



<StO< IS) 

5,SRBLK*1 

BEGIN1 



STORF X»8000« HhGIN SYMTAH 
ON PASS1 SET SR LU =1 



• "PASS22" IS THE EXECUTION ENTRY POINT FOR 

« PASS TWO OF A TWO-PASS ASSEMBLY 

PASS22 LHI REG, 2 2-PASS ASSEMBLY 



• 8 



PASS33+4 



SETUP CURRENT PASSs2 



• "PASS23" IS THE EXECUTION ENTRY POINT FOR 

• PASS TWQ Of A THREE-PASS ASSEMBLY 
>PASS23 LHI REG, 3 3-PASS ASSEMBLY 



LHI 

B 



R.2 
BEGIN 



SETUP CURRENT PASS=2 



• "PASS33" IS THE EXECUTION ENTRY POINT FOR 

• PASS THREE OF A THREE-PASS ASSEMBLY 

0034R C860 * PASS33 LHI REG. 3 3-PASS ASSEMBLY 

0003 

r LHR R,REG SETUP CURRENT PASS=2 

BEGIN STH REG.OPASS SET TOTAL NO OF PASSES 



0038R OSSfS 
003AR 4060 

161CR 
003ER 41E0 

00^6R 
0042P 4300 
0008R 

0046R 4050 

161AR 
004AR C85S 

0030 
004ER 0250 

18F5R 
0052R E120 

180CR 
0056R 030E 

0058R 4U0 

0046R 
005CR 4850 

161ER 
0060P 4330 

0068R 
O0ft4R F120 

18U6P 
0068P moo 

1662R 



BEGIN1 BAL LINK.PASMSG WRITE PASS MESSAGE 

B GO SKIP PAUSE ON PASS1/OR RESTART 

• INITIALIZATION REQUIRED PRIOR TO EACH ASSEMBLY PASSt 
PASMSG STH R,PASS SET CURRENT PASS NUMBER 



LHI 
STB 
SVC 



R,X«30« (R) 

R,PASNUM 

2,PASBLK 



SET IN PASS NUM8ER MESSAGE 



REQUEST "PASS #• MESSAGE 



8R LINK RETURN TO MAIN FLOW 

• RE-ENTRY POINT BETWEEN PASSES OF MULTIPLE ASSEMBLIES. 

BEGINP BAL LINK.PASMSG WRITE PASS MESSAGE 

LH R.OPAUSE 

BZ GO 

SVC 2.SUSPND 

GO LM 0,PSETUP 



IS "STOP" OPTION IN EFFECT? 

NO, GO ON. 

PAUSE BETWEEN PASSES 



ASM00540 
ASM00550 
ASM00560 

AM100570 

ASM00580 

ASM00590 

ASM00600 
ASM00610 
ASM00620 

ASM00630 

ASM00640 
ASMQQ650 
ASM00660 

ASM00670 

ASM00680 

ASM00690 
ASM00700 
ASM00710 

ASM00720 
ASM00730 

ASM00740 

ASM 750 

ASM00760 
ASM00770 

ASM00780 

ASH00790 

ASM00800 

ASMO0810 
ASM00820 
ASM00830 

ASM0O840 

A<;M00850 

ASMOOfSiSO 
ASM00870 



INTEHOATA OS ASSEMBLER 



03-025R02A13 



PAGE 



006CR OOOO 

1684R 
-0O7-OR 4000 

1682R 
0074R 4000 

1912R 
0078R 40F0 

189CR 
407CR 02B4 

189BR 
0080R 41F0 

©S1CR 



• INITIALIZE GENERAL REGISTERS ZERO, ONE AND TWO TO 0,1,2 

li^Ii^iIfn2T*i^f SCM * 2fLCOUNT=0 » DOCa0 'LOC=0,MAS: O C=0 

• rLIP g-0, S FO Mu M T S r t Ar E S , D O UBLE - PUN C H BUFFE R -^OtCH-JIt 

• PBSWCH=PB1/PB2, AND FIRST OBJECT RECORD SEQNUM=-1 

• PAGE NO.= 001,PSTART AND LSTART =0 

- * * SS F H RL Y t-l STTN O F RBOP S- O A NQ -BLAMK-OUI. HE A D E R LI N E.- ..__ 
STM ZEROtPSTART SET 16 HALFWORDS=PSETUP 




■ZERO. LSTART 



ZERCERRCNT 
15, PAGE 



*SIS ++PAGE-1 

*BAL EXIT,NTITLE 



-NO-U STING I/O X£X 

NO LISTING ERRORS YET 
INITIALIZE PAGE NO. =1 
INI TI ALIZE- >U,tNOREDTHS -BQS1T4-OM 



BLANK OUT TITLE RECORO 



0084R 

0088R 
008AR 
008CR 

0090ft 

0094R 

0098R 

009CR 
009ER 

O0A2R 

00A6R 

OOAAP 

OOAER 

0082R 

00B6R 

-OOBAR, 

OOBER 

00C2R 

00C6R 
00C8R 



48A0 
162AR 
0BA2 
(UA2 
4SA0 
162CR 
A230_ 
00B6R 
485A 
0000- 
4310 
008AR 
086S 
C460 
0200 
433* 
008AR 
C450 
FEOO 
405A 
0000 
02SA 
0003 
4300 
008AR 
C800 
011CR 
C854 
0068 
4A50 
169CR 
4005 
0002 
Q3SZ 
4550 
169CR 



.* JT E ^G;Nfc?S5 T ;? L iA?H T pA5S! VALUE ~° F *^ Defined -symbols 

- J-H- e*SJE0- SYMBOI TABLE -OR1GXM 



SHR p,TWO 

LQOPSM AHH P^IMO 

CLH P,STE 



-SJDflNE. 



TEMpORARY DECREMENT 
RUMP TNDFX^lNTn SYMBO LS 
EQUAL TO SYMBOL TABLE END? 

YFS.FTMTgmrn. 



LH 
BNM 



R,0«P) 



FETCH CODE BYTE 



LOOPSM 



-4MK — *EG**- 
NHI 

NHI 
STH 
ST-& 
B 



REG.DEFBIT 

L O OP S M — 

R,X»FE00» 



IF NOT MINUS, IN MIDDLE 
D EF BIT»O t OEFl MEO- 



DEFB I T= 1 , UNOEF I NED 
-LOOP 4 U D EF I N ED S 
STRIP REL BIT AND 



R,0(P) 
R*31P1 
LOOPSM 



VALUE 

XLEAR JaUiE- LABS ZEBOJ 
CONTINUE LOOPING THRU TABLE 



STDONE LHI RETURN, OOLINE 

ZEROEB_.-_UU_.. _JUiJ&4 

AH R,PBSWCH 

CLRPB ""STH~~ ""ZEROTZ Tr^ 

SMR _fijLlMft. 

CLH R,PBSWCH 



GO DOLINE AFTER ZEROING PB 
-Z ERO THE CURRENT -JUiMCMBuFfL. 
PB1 FIRST PUNCH BUFFER 



CLEAR 52 HALFWORDS 



DON'T CLEAR RECORD SEONUM 



ASM00880 

ASM00890 

ftg M OOQOO 

ASM00910 

ASM00920 

ASM00925 - 

ASM00930 

ASM0O9A0 

ASM00950 

ASM00960 

-ASMOO-9-70— 

ASM00980 

ASM00990 
ASM01000 
ASMO10-1O- 

ASM01020 
ASM01030 - 
ASM01040 

ASMJHQ5IL 

ASM01060 

ASM01070 

ASM010OO 
ASM01090 

ASMOUOO 

ASM01U0 

ASM01120 

ASM41430 

ASM01140 

ASM01150 

ASM01160- 

ASM01170 

ASM01180 

ASMUU90 
ASM01200 



I Nit l-'MA I A OS ASM MMI FW 



O3-O?SR0?Ai * 



l-'ACF. 



0OCCM **? 10 

00C2H 
O0D0R 4000 

17B8R 
00D4R 030O 



hnf: clrph 
sth zero.pbx 



RESET PUNCH BUFFER INDEX 



8R RETURN 

• "IOWAIT" ISSUES I/O WAIT WITH IMMEDIATE STATUS CHECK 

• OR ISSUES "WAIT" WITH STATUS CHECK ON PREVIOUS 

• I/O AND PROCEED DATA TRANSFER MADE. 

• ON GOOD DATA TRANSFER RETURN TO PROCESSING 
» 

• FOR TROUBLED I/Q DUE TO ILLEGAL. OR DEVICE UNAVAILABLE* 

• "IOWAIT" LISTS "XXNN I/O ERROR" MESSAGE ON SYSTEM 

• CONSOLE AND PAUSES FOR OPERATOR INTERVENTION 

• NN = PHYSICAL DEVICE ADDfiESS OF TROUBLED I/O 

• XX = FRROR STATUS SENT BACK TO ASSEMBLER BY OS 

• AFTER OPERATOR CONTINUES. "IOWAIT" REISSUES THE 

» SVC I/O CALL IN TROUBLE UNTIL GOOD TRANSFER OCCURS 
• 

• FOR TROUBLED I/O DUE TO EOM. EOF. UNRECOVERABLE ERROR, 

• OR OVERFLOW "IOWAIT" LISTS I/O ERROR MESSAGE AND 

• RETURNS TO CONTINUE PROCESSING BEST GUESS DATA 
» 

• CALLING SEQUENCE FOR STATUS CHECK ON LAST I/O 6. PROCEED: 

• 8AL RETURN, IOWAIT 

• DC A (WAIT PARAMETER BLOCK) 

• DC A (I/O «, PROCEED PARAMETER BLOCK) 
« 

• CALLING SEQUENCE FOR I/O WAIT AND CHECK ON STATUS 

• BAL RETURN, IOWAIT 

• DC A (I/O «. WAIT PARAMETER BLOCK) 

• OC A<SAME I/O «. WAIT PARAMETER BLOCK) 

• ■-■ - -■ ■ 

• (INTEGRITY OF REGISTER ZERO=0000 MAINTAINED FOR 

• ASSEMBLER CONSTANT) 



FETCH LU/WAIT PARAMETER ADRS 
FETCH ADRS LAST BLOCK 
ISSUE WAIT ON LU 
GET STATUS TO CHECK 
DATA TRANSFER GOOO.GO ON 
REISSUE SVC ON EOF ONLY 

GET STATUS AGAIN 
REQUEST STATUS PACKING 
REQUEST I/O ERROR MESSAGE 



O0D6R 

I 


485D 
J000 


IOWAIT 


LH 


R.O(RETURN) 


OODAR 


4860 
0002 




LH 


REG, 2 (RETURN) 


00OEP 


E115 
0000 


SVCALL 


SVC 


1,0(R) 


00E2R 


4806 
0002 




LH 


0,2(REG) 


• 0E6R 


4330 
0004 




87 


4 (RETURN) 


OOEAR 


C400 
7700 




NHI 


0,X«7700« 


OOEER 


4330 
OODER 




B2 


SVCALL 


O0F2R 


4806 




LH 


0,2(REG) 




0002 








00F6R 


E120 
18E6R 




SVC 


2.ERBLK1 


OOFAR 


E120 
18EAR 




SVC 


2.ERBLK2 



ASM01<M0 

ASM01220 

ASM01230 
ASM01240 
ASM01250 
ASM01260 
ASM0127Q 
ASM01280 
ASM01290 
ASMQ13Q0 
ASM01310 
ASM01320 
ASM01330 
ASM01340 
ASM0 13SO 
ASM01360 
ASM01370 
ASM01380 
ASM01390 
ASM01400 
ASM01410 
ASM01420 
ASM01430 
ASM01440 
ASM01450 
ASM01460 
ASM01470 
ASM01480 
ASM01490 
ASM01500 
ASM01510 
ASM01520 
ASM01S30 
ASM01S40 
ASM01550 

ASM01560 

ASM01570 
ASM01580 
ASM01590 
ASM01600 
ASM01610 
ASM01620 
ASMf) 1(^30 
ASM01640 



INTERDATA OS ASSEMBLER 03-025R02A13 PAGE 5 

OOFER E120 SVC 2.SUSPND PAUSE FOR OPERATOR INTERVENTION 

1806R 
• 102R C400 NM1 ©*X^*04«-» ILL E G. OU ■ QAO TRANSFER 

6000 
0106R 433D BZ ^(RETURN) BAO DATA BUT CONTINUE 

OOO^i - ■ 

010AR £116 SVC 1,0 (REG) REISSUE TROUBLED I/O 
0009 

• DON'T REISSUE WAIT BIT OF~ TROUBLED USL.1U1GEL-. — 
010ER 0556 CLHR R.REG IF EQUAL* ARGUMENT HAS I/O 
0110R 4330 BE SVCALL»4 WAIT BIT IMBEDED 

. _ _ O0g2R . 

0114R 4300 B SVCALL GO BACK TO CHECK AGAIN 
OODER 

• ASSEMBLER DIRECTIVES (PSEUDO-OP) PAUSE 
0118R E120 PAUSE SVC 2iSUSPND CONTINUE AT DOLINE 

_ LBQ6B _— 

• ASSEMBLER MAIN FLOW - SOURCE LINE EVALUATION 

• MAIN FLOW RE-ENTRY POINT TO PROCESS NEXT SOURCE STATEMENT 

• INITIALIZATION REQUIRED PRIOR TO PROCESSING ONE LINE: 
-- • CLEAR. LINE -ERROR- BYTE FLAGS lS*f-» 1 R , U ,X»M . 

• FILL PRINT AND SOURCE BASIC BUFFERS WITH SPACES 
011CR C890 DOLINE LHI COUNT. 14 CLEAR ERROR INDICATORS 

OOOE .. - - _ - _ - _.. 

0120R D209 CLRERR STB ZERO.ERRORE <COUNT I 

1S60R 

4124R- -03-92 $m C O U NT »TW» 

0126R 4310 BNM CLRERR 

0120R 
042AR 4000 SW--- ZER O>EOL CLE A R END -OF— LINE-FLAG- 

15D4R 

• SAVE CURRENT LOCATION COUNTER 

012ER 4B50 LH R»LOC--- -LOC^-LOC-AT- -BEGINNING 43F LINE 

168ER 
0132R 4050 STH R.SAVLOC 

L5C8R _ _ __ 

• BETWEEN SOURCE READS WAIT HERE ON SCRATCH 

0136R 4850 LH R.OPSCRT IF NOT IN SCRATCH MODE 

1626R _ _. 

013AR 4330 BZ NOSCRT SKIP WAIT ON SCRATCH 

014ER 
013ER 4510 ._ CLH -ONE* PASS SOL -IF NOT ON.-E.IRST-.gASS 

161AR 

0142R 4230 BNE NOSCRT ALSO SKIP WAIT ON SCRATCH 

014ER ... _.. _ ._ ._.... 

0146R 41D0 BAL RETURN* IOWAIT CHECK STATUS ON LAST I/O 

0006R 

014AR 18BCR OC SCWALI MA1X J. CHECK LASJ -I/O. .PROCEED 

Ol^CR 18B4R DC SCBLK REISSUE SCRATCH ON BAD STATUS 

014ER 4850 NOSCRT LH RtDOC IN MIDST OF DOING "DO"? 

.1.6.8CR _ _._.. __ 

0152R 4220 BP DECDOC SKIP READING IN ANOTHER LINE 

0256R 



ASM01650 

ASM41-660-- 

ASM01670 

ASM01680 

ASM0169O- 
ASM01700 
ASM01710 



ASM01720 

ASM017^0 
ASM01750 

ASM01760 
ASM01770 
ASMO 17.80- 
ASM01790 
ASM01800 
ASM018L0 
ASM01820 
ASM01830 

ASM01840 

ASM© I 850 
ASM01860 

ASM048-70- 

ASM01880 
ASM048-94-- 

ASM01900 

ASM01910 
ASM01920 

ASM01930 

ASM0194A- 

ASM01950 

ASM01960 

ASMO 1 970- . 

ASM01980 

ASM01990 

ASM020b"o" 



INTEKDATA 

0156R C8F0 
021ER 

015AR C890 
OOSE 

015ER C8b0 

2020 

0162R 4059 
178AR 

0166R 0892 

0168R 4310 
01b?R 

016CR 03CF 



016ER 

0172R 

0176R 

017AR 
017CR 

01B0R 
0182R 

0186R 
0188R 
018AR 

018ER 
0190P 
0192R 

0196R 

©19AR 

019ER 
©1A0R 



C5B0 

0020 

4330 

0186R 

C5H0 

0000 

033E 

D210 

1S6CR 

01F3 

4300 

OlfcER 

0799 

0A91 

C590 

0010 

3JF 

01F3 

C5B0 

0020 

4330 

0188P 

C5B0 

OOQD 

033E 

430E 

0004 



0U4R csao 

0020 
01A8R 4230 

01BSR 
01ACP 41L0 

01B6R 
01BOR 4300 

0CC6R 
01B4R 4300 

0292R 

01B8P 41E0 
016ER 

01BCP 4300 
01 DOR 



OS ASSEMBLER 
REAOIN LHI 

LHI 
BLKOUT LHI 

STH 

SHR 

BNM 

BR 



03-025R02A13 

EXIT.READ 

COUNT. SREND-PR 

R,X«<?020« 

R,PR<COUNT> 

COUNT, TWO 
8LK0UT*4 

EXIT 



PAGE 



BLANK OUT PR AND SR 



FINDSP CLHI CHAR,Xt20» FIND A SPACE PRIOR TO END 
BE SPACER 
CLHI CHAR.X'OO' 



BER 
STB 



LINK 
ONE.ERRORF 



BALR FXITtGET 
B FINDSP 



SPACER XHR 
LOOPB AHR 



COUNT. COUNT 
COUNT. ONE 
CLHI COUNT. 16 



BER LINK 

BALR EXIT. GET 

CLHI CHAR.X»20» 

HE LOOPB 

CLHI CHAR. X» 00* 



IF AT END 

HIT ENO BEFORE A SPACE 
NOSPACE AFTER LABEL OR OP 

BYPASS ILLEGAL CHARACTER 
SEEK A SPACE TO CONTINUE 

CHAR HOLDS A SPACE 
SPACEOVER TO 1ST NON-BLANK 
PRIOR TO END 

TREAT SPAN OF lb SPACES=CR 



BER 

B 



LINK 
4<LINK) 



END OF LINE 



FOUND 1ST NON-BLANK CHAR 



TRYSPC CLHI CHAR.X»20« FIRST CHARACTER = SPACE? 
BNE INERR NO 

SPACER 

PRINT BLANK LINE 

NO LABEL TRY FOR COMMAND 

INERR BAL LINK. FINDSP 
B RESERR 



BAL 


LINK, SPACER 


B 


PRINTR 


B 


COMAND 



BAD LABEL &. NO COMMAND 



ASM02010 

ASM02020 

ASM02030 

ASM02040 

ASM020S0 
ASM02060 

ASM02070 
ASM02080 
ASM02090 

ASM02100 

ASM02110 

ASM02120 
ASM02130 

ASM02140 
ASM02150 

ASM02160 
ASM02170 
A r ,M()?180 

ASM02lyO 
ASM02200 
ASM02210 

ASM02220 

ASM02230 

ASM02240 
ASM02250 

ASM02260 
ASM02270 

ASM02280 

ASM02290 

ASM02300 

ASM02310 

ASM02 320 
ASM02330 

ASM02340 



INTERDATA OS ASSEMBLER 



03-025R02A13 



PAGE 



01COR 4300 
0292R 

01C4R 4lF© 
09E8R 

01C8R -430*- 
0CC6R 

_*1CCR-0210.-. 

1568R 
01D0R 41F0 

9 E8 R - 



8 COMANO 

- unumtMmn 



LBONLY BAL 

- --a — 



EXIT.EOITC 

P-RltUA 



BAD LABELtBUT TRY FOR OP 

EDIT SOLITARY LABEL ON LINE 
eiUUX»-JH£ti.-GOTO OOLINE 



OP E RR _ _ STB - ONE.ERRORO 



RESERR BAL EXIT.EOITC 



EDIT LABELW/VALUEsLOCOUNTR 



01D4R C8C0 
0004 
-04 OBR 43QQ 
06F2R 



LHI 

■■■» 



VALUE»4 
BESERV 



LOCR-4850— -ySQCHK- 

16B8R 
01E0R 4330 * BZ 

- 02A2JL 

01E4R 0766 it XHR 
01E6r 4856 -TLOOPSQ L H 
--.-1ZE2R 



SEQNUM IF--IN-. 



CHKDOC 



REGtREG 
R.SR*72(rEG) 



SEQNUM = 4 HALFWORDS 
FEjCH N E W sEq NUM 



01EAR 4556 
1694R 

-4lEER-42fia 

0200R 

0iF2R A230- 

0212R 

01F6R 0A62 

0ITSR-XS6* 

0008 

01FCR 4280 
01E6R 

0200R C850 

0023 
0204R 0250 

178BR 
0208R 4850 

1912R 
020CR 0A51 
O20ER 4050 

1912R 
0212R D1CO 

J.IE2R 

0216R DOC0 

1694R 
021AR 431* 

0242R 

021CR..41DO 

00D6R 
0222R 18A4R 



^CLH 



Rt SEQNUM I REG) 
SQgRR 



COMPARE TO OLO SEQNUM 

IF NEW LESS THANJM-DgERRQB. 



• IF ANY PARTFROM LEFT TO RIGHT GREATER THAN LAST/OK 
■< BN E UPO A T F IF NFW GT THEN 01 n r,0 nppATE 



A AMR REG t TWO 

cut*— it£6+8 



f BL 



BUMP INOEX 

WERE THE S E THE UtST~-2-04GiTS~ 



LOOPSQ 



CONTINUE TO NEXT 2DIGITS 



• IF ENTIRE SEQNUM EQUAL TO LAST LINE'S SEQNUM/ERROR 
^SQERR LHI R»X»23« SEQUENCE FLAG IS NUMBER SIGN 



+ STB 

-t'-JLH--' 

< AHR 
./--SIM- 



R.PR*1 

JUERRCNT 

RtONE 
R.ERRCNT 



\UPDATE LM 12.SR*72 



STM 

._a_ 



12 ♦SEQNUM 
CHKDQC 



SET ERROR FLAG INTO PR 

-AOO-ONE-Xa-F-LAGS. 

COUNT* FOR EACH SEQNUM 

UPDATE NEW SEQNUM 

BEIUfiU JUL MA1H ASSEMBLY .. .JFUQM. 



READ ._HAL__fiEigR!iilflMAUL READY WJUIZC HECK STATUS 
OC SRBLK REQUEST SOURCE READ 



ASM02350 

ASM02360- 
ASM02370 

ASH02380- 

ASM02390 
ASMQ240Q 

ASM02410 

ASM02420 

AS MQ243Q 

ASM02440 
ASMO2450 

ASM02460 

ASM02470 
ASM02480 

ASM02490 

ASMQ25D.ft _ 

ASM02510 
-ASM02520 -- 

ASM02530 
ASM02S4O 

ASM02550 

ASM02560 
ASM02570 

ASM02580 

ASW025B-1 

ASM02582 
ASMQ2583 

ASM02590 

ASM02600 

ASM02610-... 

ASM02620 
ASM02630 

ASM02640 



INTEROATA OS ASSEMBLER 
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0224R 
0226R 

022AR 

022ER 

0232R 

0236R 

023AR 

023ER 

0242R 

0246R 

024AR 

024ER 

0252R 

0256R 
0258R 

025CR 

0260R 

©264R 

0268R 

026CR 
026ER 

0272R 

©276R 

027AR 

027ER 

0282R 

0286R 

028AR 

028ER 

0292R 



18A4R 

4850 

1626R 

4330 

023AR 

4510 

161AR 

4230 

023AR 

E110 

18B4R 

4850 

1628R 

4230 

01DCR 

4850 

168CR 

4330 

0264R 

C450 

7FFF 

4050 

168CR 

4330 

0CC6R 

0851 

4050 

168CR 

C860 

0020 

D260 

1799R 

CS40 

179AR 

C830 

0942R 

01F3 

C5B0 

002A 

4330 

0CC6R 

C5B0 

000O 

4330 

0CC6R 

C850 

000A 

41dO 

094CR 

4300 

01A4R 

41F.0 

OlbFR 

4300 

01C4R 

41D0 



DC 
LH 

BZ 

CLH 

8NE 

SVC 

4 QUESTS LH 

* BNZ 

CHKDOC LH 

BZ 

NHI 

STH 

BZ 

DECDOC SHR 
STH 

LHI 

STB 

PROCES LHI 

LHI 

BALR 
CLHI 

8E 

CLHI 

BE 

LABEL LHI 
BAL 
B 

BAL 
B 

COMANO BAL 



SR8LK 
R,OPSCRT 



STS 



QUE 

ONE, PASS 

QUESTS 

ltSCBLK 

R.OPSQNM 

SQCHK 

R.OOC 

PROCES 

R,X«7FFF« 

RtDOC 

PRINTR 

R.ONE 
RtDOC 

REG,X«20' 

REG.SR-1 

SRX^SR 

GET.GETCHR 

EXITtGET 
CHAR»C»»» 



REISSUE REQUEST ON BAD STATUS 
TO SCRATCH OR NOT TO SCRATCH 

NOf GO CHECK SEQ 

ON PASS 1 ONLY SCRATCH 



WRITE SOURCE LINE TO SCRATCH 

WAS A SEQNUM CHK REQUESTED? 

YES, GO COMPARE SEQNUMS 

GET DO COUNTER 

NOT IN MIDST OF DOING A "DO" 

DELETE 1ST TIME NEG FLAG 

STORE ZFRO/OR POS PORTION 

IF O0C=0, DON'T ASSEMBLE 

DECREMENT DO COUNTER 
UPDATE DO COUNTER 

REPLACE CR WITH SPACE 

BETWEEN DO ITERATIONS 

INITIALISE SRX 

INITIALISE FOR BALR TOGET 

FETCH 1ST CHAR 

IF ITS A COMMENT STATEMENT 



PRINTR PRINT IT ANO GET NEXT LINE 

CHAR»XiOD« IF CARRIAGE RETURN* 

PRINTR PRINT A BLANK LINE 

R,10 FLAG FOR SYMBOL TOGOIN LS 

RETURN,SYM80L>2 FETCH «, PACK LA6EL 

TRYSPC 1ST CHAR WAS NOT LETTER 

LINK.FINDSP 

LBONLY 

RETURN, SYMBOL 



ASM02650 
ASM02660 

ASM02670 

ASM02680 

ASM02690 

ASM02700 

ASM02710 

ASM02720 

ASM02730 

ASM02740 

ASM02750 

A'^Mn2/60 

ASM02 7 70 

ASM02780 
ASM02790 

ASM02800 

ASM02810 

ASM02820 

ASM02830 

ASM02840 
ASM02850 

ASM02860 

ASM02870 

ASM02880 

ASM02890 

ASM02900 

ASM02910 

ASM029?n 

ASM02SI30 
ASM02940 
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PAGE 



<mAR 

0296R 4300 

029AR 41E0 

016ER 
02 9ER 02 10 



8 



OPERR 



1ST CHAR NOT A LETTER 



15D4R 
02A2R 4100 

pn«R 

02A6R 1630R 
02A8R 15E6R 
02AAR-- 

03AAR 
02AER 41E0 
OB££R_ 



BAL L1NK.FINDSP 
$19 O NE . E OL 



MATCH FOUND, SPACEOVER EXP 



BAL^ RETURN, SEARCH LOOK FOR MATCH I.N OP TABLE 



DC OPORG 
DC SS 
J3 SPEC OP 



NOT FOI INO . CHECK- SPEC I AL QBS- 



BAL LINK, UNPACK 



UNPACK SYMBOL'S COOE&VALUE 



02B2R 
02B6R 
02BAR 
02BER 
02C2R 
02C6R 
02CAR 
«2C€R 
02D2R 



4070 

15D8R 

C560 

OOOD 

4330 

04B6R 

4850 

1688R 

4334 

011CR 

C560 

OOOC 

4330 

04E4R 

X560 
OOOE 
4330 

^4DCR 



STH HOLD, SAVE 
CLHI BEfitX'Q* 



SAVE RIGHT HALF OF CODE 
X»D' FOR "lEIt-A.-'JEMDiL- ,. 



IFEND 



BE 

LH R.ASSEM 

-8*4 OOLINE— 



CLHI REGtXtC* 

I _ 

BE 



SWITCH 
-CUH—R EG . X'St 
BE SWTCH1 



IGNORE ALL OTHER LINES 
-If I N C O N DITIONAL ^ASSEM 

MUST BE AN E0U.ORG, OR OPT 
CODE ^E F O R -ALL OTHER -- - 



EDIT LABEL PRIOR SWITCHING 



02D6R 
02DAR 



C560 
0008 
*230 
OICCR 



CLHI REG, 8 

^NE OPERR. 



IS IT A LEGAL INSTRUCTION 
NO , GO R ESE RV E- 4BXT-ES- 



• -SOUR C E LI NE - EVALUATION - 



iCZIONS- 



• ASSEMBLE SOURCE STATEMENTS OF THE FORMt 

• (LABEL) OP - 8JUAFIEUUX21 XMQ..MQRD. INSTRUCTION 

•(LABEL) OPX AFIELDCX2) TWO WORD EXTENDED INSTR 

•< LABEL! OP R1.R2 ONE WORD INSTRUCTION 

• ILABEU- OP)L R2 ONF WORD JJlIENDEfl .1NSTR 

•(LABEL) OPX A 



02DER AJ)C0 

15E0R 
02E2R 41F0 

Q9F8R 
02E6R 48C0 

15E0R 
02EAR 4Q.C4 

15DCR 
02EER C850 



INSIR- ... S TH VALUE.W3 



8AL EXIT.EDITC 



INSERT LABEL & PACK PR 



LH VALUE,W3 

_sihJ yju_u£jja_ 



ASM02950 

ASM02960 

A SM 297 - 

ASM02980 

ASM02990 
ASM03000 

ASM03020 
ASM03030 
ASM0304ft 
ASM03050 
ASM03060 
ASM03070 
ASM030B0 
ASM03090 

ASM03110 

ASM03120 

ASM0313A- 

ASM03140 

ASM031S0-- 

ASM03160 

ASM03170 

ASM03X80- 

ASM03190 

ASM03200 

ASM0321B. 

ASM03220 

ASM03230 

ASMO 324-0^ 

ASM03250 



LHI R,8 



ASM03260 
_ASH&327J>__ 
ASM03280 
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PAGE 10 





0008 






02F2R 


4050 
158ER 


STH 


R.PC 


02F6R 


4870 
15D8R 


LH 


HOLO.SAVE 


02FAR 


C570 
0003 


CLHI 


HOLD* 3 


02FER 


4330 
0336R 


BE 


TWOWRX 


0302R 


CS70 
OOOC 


CLHI 


HOLD,X«C» 


0306R 


4330 
0390R 


8E 


ONEWRX 


030AR 


C570 
0000 


CLHI 


HOLD,X«D« 


030ER 


4330 
03E0R 


BF 


SHORTX 


0312R 


93SC 


LBR 


Rt VALUE 


0314R 


0250 

15D8R 


STB 


R,SAVE 


0318R 


C4C0 
FFCO 


NHI 


VALUEtX'FFOO' 


031CR 


40C9 
15DCR 


STH 


VALUE. Wl 


0320R 


C570 
0008 


CLHI 


H0LD»8 


0324R 


4330 
037ER 


BE 


ONEWRO 


0328R 


0527 


CLHR 


TWO, HOLD 


032 AP 


4230 
01CCR 


8NE 


OPERR 


032ER 


41E0 TWOWRD BAL 


LINK.R1 




0468R 






0332R 


41 KO 
04A2R 


8AL 


LINK.EVENR1 


0336R 


4020 TWOWRX STH 


TWO.RFCF 




15CCR 






033AP 


4020 
15CER 


STH 


TWO, AFIELD 


033ER 


41tO 
U7CR 


BAL 


LINK#AEXP 


0342R 


40CO 
15DER 


STH 


VALUE, W2 


0346R 


4000 
15CCR 


STH 


ZERO.RFCF 


034AR 


4000 

15CER 


STH 


ZERO, AFIELD 


034ER 


CA60 
OOOA 


AH I 


REG.X'A' 


0352R 


4060 
15BER 


STH 


REG, PC 


0356R 


C5B0 
0028 


CLHI 


CHAR,C < • 


035AR 


4230 
039AR 


8NE 


FINEND 


035ER 


01E3 


BALR 


EXIT, GET 



GET RIGHT HALF OP'S CODE 
3=TW0 WORD EXTENDED 

C=ONE WORD EXTENDED 

CODE= D FOR SHORT EXTENDED 

BRANCHES 

ONEWRD/TWOWRD OP VALU£S=XX00 
UNLESS EVEN CHECK REO'D 

STRIP EVENESS CHECK BITS 

UPDATE Wl PRIOR"ORING»FIELDS 

IF 8, ONE WORD INSTRUCTION 



GET Rl FIELD 

SEE IF Rl NEEDS EVEN CHECK 



GET ADDRESS FIELD 
PACK IT 



MAKE RC=a-IF EXP RELOCATABLE 
OR PC=A IF EXP ABSOLUTE 
IS THIS AN INDEXED INSTR 
NOtGO CHECK FOR PROPER END 
BYPASS LEFT PAREN 



ASM03290 

ASM03300 

ASMQ3310 

ASM03320 

ASM03330 

ASM03340 

ASM03350 

ASM03360 

ASM03370 
ASM03380 

ASM03390 

A^Mrmoo 

ASM03410 
ASM03420 

ASM0 34 30 
ASM03440 

ASM03450 

4SM03460 

ASM03470 

ASM03480 

ASM03^90 

ASM03t>00 

ASM03510 

ASM035?0 

ASM03540 

ASM03550 

ASM03S60 

ASM03570 

ASM03580 



0360ft 
0364R 
0368R 
036CR 
-0370R 
0374R 



INTFHDATA OS ASSEMBLER 03-025R0ZA13 PAGE 11 

STH RtSAVFRF OF ADDRESS FIELD 

*AL LINJU*2 £VAUM*C4*ACK X2 JNOEX 

LH R.SAvFRF RESTORE FORWARD REF FLAG 



4050 

1SCAR 

41E0 

048AR 

4850 

1SCAR 

4050 

15B4R 

csao 

0029 

<»230 
03 9 ER- 



STH R.FRF 

CLHI r.HAR.CtH 

BNE FINEND*4 



?378R 
37AR 



01F3 
4300 
39 A R 



BALR EXIT. GET 
B FINEND 



OF ADDRESS FIELD 

—I F N O R IG HT . -BAREtU. 

GO TO FLAG FORMAT ERROR 
BYPASS RIGHT PAREN 



037ER 41E0 

0468R- 

0382R 41E0 
04A2R 
-03S6R 035^ 
15D8R 
038AR 0A55 
038CR D2SQ_ 
15D8R 
0390R 41E0 
J>4aAR_ 



ONEWRD BAL LINK.R1 



GET Rl FIELD 



BAL LINKtEVENRl 
LB R_.SAVJE 



SEE IF RI NEEDS EVEN CHECK 
-FFTCH KFY FOB FtfFN r.HFCKS 



AHR 
STR 



R*R 
R.SAVF 



AFTER ONEWRO Rl CHECKED* 
MOVF R? CHECK -KEY- ID SIGN. BIT 



ONEWRX BAL LINK*R2 



0394R 
0396R 

039AR 

039E* 

03A2R 

03A6R 

03AAR 

03AER 

03B2R 

03B6R 
03B8R 
03BAR 

ll3BER 

03C2R 

03C6R 

OSCAR 



0861 

41L0 
-OAA6R-- 

41E0 

0C2CR 
.-0*10— 

156CR 

41F0 
-0A30R 

4300 

011CR 

4as« — 

1688R 

4330 

011CR- 

41D0 

0F34R 

162AR 

15E6R 

4300 

Dicca 

485A 

0000 

C450 

OFOO 

4230 

01CCR 

41E0 

0BC8R 



LHR 
BAL 



REGtONE 
LINK.EVENR2 



GET R2 FIELO 

CHECK bTTIV FOR EVENESS OF 
R2 FIELD OF FLTG-PT RR INSTR 



FINEND BAL 

5*8- 

BAL 



B 



SPECOP LH 



LINKtCHKEND 

EXIT. EDIT 
DOLINE 
R.ASSEM 



CHECK IF END PROPER 

FORMAT ERROR 



-IGNORE IF IN 



AS S E H — 



BZ 



DOLINE 



BAL RETURN* SEARCH 



DC 



-SJJL 



DC 
B 



SS 

OPERR 



LH 
NHL 



RtO(P) 



BNZ 



OPERR 



NOT INfABLE. ERROR 
FOUND MATCH 7f "P" ' 
-JtALUE-MUST BE ABS/DEFINFO 
AND NOT AN ENTRY/EXTRN 



LINK. UNPACK 



VI "OPCODE 



ASM03600 

ARM03610 

ASM03620 

ASM03630 

ASM036AI)— 

ASM03650 

ASM03660 
ASM03670 

ASM03680 
ASM03690 

ASM03700 

ASM03J4J1 

ASM03720 
ASM0373O- 

ASM03740 

ASM03750 
ASM03760 

ASM03770 

ASM03780 

ASM03790 

ASM03800 

ASM03B10 . 

ASM03820 

ASM03830 

-ASMfl3a4iL- 

ASM03850 

ASM03860 

ASM03870 

ASMQ3ft8iL ... 

ASM03890 

ASM03900 



INTfHDATA 


OS ASSEMBLER 


03-02 


©3CER 


087C 


LHR 


HOLD. VALUE 


03D0R 


C470 
000F 


NH1 


HOLD»X'F» 


0304R 


4070 

1S08R 


STH 


HOLD.SAVE 


03OBR 


C4C0 
FFFO 


NHI 


VALUE. X'FFFO' 


03DCR 


4300 

02DER 


B 


INSTR 






oo»ooo«*aoeoo»»<>»>o»*oo4<>»» 


03E0R 


41E0 
117CR 


SHORTX BAL 


LINK.AEXP 


03E4R 


4330 
03F4R 


BZ 


• ♦16 


03E8R 


D210 
1564R 


STB 


ONE.ERRORU 


03ECR 


4860 
16«6R 


LH 


REG. MODE 


03F0R 


48C0 
168ER 


LH 


VALUE. LOC 


03F4R 


4560 

1686R 


CLH 


REG.MQDE 


03F8R 


4330 
0400R 


BE 


•♦a 


03FCR 


0210 
156CR 


STB 


ONE.ERRORF 


0400R 


4860 

168ER 


LH 


REGtLOC 


0404R 


0788 


XHR 


TEMP. TEMP 


0446R 


056C 


CLHR 


REG. VALUE 


0408R 


4280 

042ER 


BL 


FORWRO 


040CR 


0B6C 


B0TH8F SHR 


REG. VALUE 


040ER 


CF60 
0001 


SRHA 


REG.l 


0412R 


4380 
041AR 


8NC 


• ♦a 


0416R 


0210 
156CR 


STB 


ONE.ERRORF 


041AR 


08C6 


LHR 


VALUE. REG 


041CR 


41E0 
043CR 


BAL 


LINK, TEST 


0420R 


06C8 


OHR 


VALUE, TEMP 


0422R 


4600 
150CR 


OH 


VALUE. Wl 


0426R 


40C0 

1SDCR 


STH 


VALUE, Wl 


042 AR 


4300 
039AR 


8 


FINEND 


042ER 


0856 


FORWRO LHR 


R.REG 


0430R 


086C 


LHR 


REG, VALUE 


0432R 


08C5 


LHR 


VALUE. R 


0434R 


C880 
0100 


LHI 


TEMP.X'0100' 


0438R 


4300 
O40CR 


8 


BOTHBF 



)2A13 PAGE 12 

V2=EXTENSI0N *2.3.,8 OR C 
HOLD HOLDS 2,3,B,0R'O 

SAVE RIGHT HALF OF CODE 



GET VALUE OF OPERAND 
AEXP RETURNS W/LOAD FRF 
SET UERROR FOR UNDEFINEOS 
DON'T COVER UERROR, 
ASSURE NO F ERROR GETS SET. 
VALUE'S MOOEs LQC'S MQOE 

ELSE ERROR 

CURRENT LOCATION COUNTER 

FLAG=ZERO FOR BACKWARD 
COMPARE LOC TO VALUE 
CARRY MEANS FORWARD BRANCH 

GET HALFWORD DISPLACEMENT 

EVEN DIFFERENCE OK 

ODD BYTE DISPLACEMENT ERROR 

CATCH OUT-OF-RANGE ERRORS 

CHANGE BACKWARD TO FORWARD 
IF TEMP=X'0100',ELSE NOT 

UPDATE OBJECT DATA 

CHECK £NO- AND EC IT 

SWITCH UPPER/LOWER LIMITS 

FLAG FOR FORWARD OP CODE 



ASM03910 
ASM03920 

ASM03930 

ASMO-mO 

ASM03950 

ASM03960 
ASM03970 

ASM03980 

ASM03990 

ASM04000 

ASM04010 

ASM04020 

ASM04030 

t.SM04040 

ASM04050 

ASM04060 
ASM04070 
ASM04080 

A^M04090 
ASM04100 

ASM041 10 

ASM04120 

ASM04130 
ASM04140 

ASM04150 
ASM04160 

ASM04170 

ASM04180 

ASM04190 
4SM04200 

ASM0<»210 
ASM04220 

^M04230 



INTEROATA OS ASSEMBLER 
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043CR C5C0 
0010 

0440R~oaaE 

0442R 0210 
156CR 

0448R 030E 

Q44AR 40EQ , 



• TEST TO SEE IF EXPRESSION HAS A VALUE BETWEEN fc 15. 
TEST CLHI VALUE.16 



B UR L IN K 



BAOVAL STB ONE.ERRORF 
XH R V ALUE t VALUE 



IF VALUE WITHIN THAT RANGE 
RE T URN. 



OTHERWISE FLA6 FORMAT ERR 
AN D RESET VALUE-TO ZERO. ... 



SCAN 



BR LINK 

STH LINKtENnSCN»2 



BEFORE RETURNING 
SAVE t 1NKAGF ADDRESS 



044ER 



0466R 
41e0 
_LL7Cfl_ 



BAL LINKtAEXP 



EVALUATE EXPRESSION 



0452R 

0A56fl_ 

045AR 
-445CR- 

0460R 



4330 

045AR 

DZL0-. 

1564R 

0866 

A33H- 

0464R 

O210 



0464R 4300 
0000 



0468R 40E0 

04A0R 
046CR 41E0— 

044AR 
0470R 41E0 

Q43 CR 

0474R COCO 

0004 
0478R XSBO 

002C 
047CR 4330 

0484R 
0480R 0210 

156CR 
0484R J11F3 
0486R 4300 

0496R 



048AR 
04JBER 
0492R 
0496R 
049AR 
049ER 



40E0 

O4A0R 

A1£A 

044AR 

41E0 

043£ft 

46C0 

15DCR 

40C0 .... 

15DCR 

4300 



BZ •♦S FRF GET SET? NO, IT«S OK 

SIB QNF.ERRQRU SET "U" ERROR F O R UN DEFINED 



LHR 
BZ— 



REGtREO 
-±*& 



WAS VALUE RELOCATABLE? 
NO. SKIP OVER ERROR 



STB ONE.ERRORF 



YES. SET FORMAT ERROR 



ENDSCN B 



0000 



RETURN 



Rl STH LINK»R2END*2 
BA1 LI NK * S CA N 



RU EXPRESSION MUST NOT BE 
FRF/ REL O R UT SIOE- 0T H RU 15 



BAL LINK. TEST 



SLHL VALUE. 4 

CLH I 

BE •♦S 

STB ONE.ERRORF 

BALR -EAUaGEI 



POSITION VALUE TO Rl FIELD 

FOLL OW . 1ST 

OPERAND 



B 



R1R2 



R2 



STH LINK.R2END*2 



BAL LINKtTEST 



R2/X2 EXPRESSION CANNOT BE 
i-TSIDE 0THRU15 



R1R2 OH 

-STH- 

R2END B 



VALUE. Wl 



0000 



"OR" INTO R2/X2 FIELD OF 
-_MACHIJtfL.j:NSIRUCTION 



ASM04240 
ASM042S0 



ASM04270 

A S M0 4 2 80 
ASM04290 

ASMQ43QQ 
ASM04310 
ASM04320 

ASM04340 



ASM04360 

ASM04370— 

ASM04380 
ASM04394J _ 

ASM04400 

ASM04410 

ASM04420 

ASM04430 

ASM04440 

ASM044S0 

ASM04460 

ASMQ4490 

ASM04500 

ASM04510 

ASM0452fl._ 
ASM04530 

ASM04540 
ASM04550 

ASMO4560 - 

ASM04570 



ASM04580 
ASMQ459Q 
ASM04600 



INTFROATA OS ASSEMBLER 
0000 

EVENRI LH I fiEG*X 1 0i)10-i 

EVENR2 LH R,SAVE 
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04A2R C860 

0010 

04A6R 4850 

15D8R 
04AAR 031E 
04ACR 04C6 
04AER 033E 
04B0R 0210 

1560R 
04B4R 030E 



04B6R C570 

0003 
04BAR 4230 

04C6R 
04BER 4020 

1688R 
04C2R 4300 

04DCR 

04C6P 41E0 

U7CR 
04CAR 4330 

0404R 
04CER 08C1 
04D0R D210 

1564P 
0404R 40C0 

1688R 
0408R 4300 

OCBER 



04DCR 41f"0 
09E8R 

04E0R 4870 
1508R 

04E4R 0A77 

04E6R 4877 
1548R 

04EAR 0307 



BNMR 


LINK 


NHR 


VALUE»REG 


BZR 


LINK 


STB 


ONE,ERRORE 



BR 



LINK 



CHECK BXT-LL FOR Rl EVENESS 

LEFT BYTE=EVENCHK KEY,RT=TYPE 

RETURN WHEN NO CHECK REQ»D 
CHECK EVENESS OF Rl OR R2 
R1/R2 VALUE IS EVEN. SO RETURN 
ELSE, SET E ERROR FLAG 

BEFQR. RETURNING 



• ASSEMBLER DIRECTIVES (PSEUDO-OP) IF 

• ASSEMBLE SOURCE STAIFMENT J)F THE -FORM! 

• IF (AN EXPRESSION) (COMMENT) 

•IF OPERAND QE -I'JLF" .LINE EQUAt ZERO 

• NO LINES WILL BE ASSEMBLED UNTIL THE NEXT 

• "IF" OPERATION OR "END" STATEMENT. 

• 

• IF OPERAND NOT EQUAL ZERO, THE ASSEMBLY PROCESS 

• CONTINUES AS PER OPTIONS SELECTED. 



IFEND 



CLHI 
BNE 
STH 
B 



HOLD* 3 
IF 

TWOtASSEM 
SWTCH1 



•"IF" STATEMENT TO PROCESS 
IF 



BAL 

BZ 

LHR 
STB 

STH 

B 



LINK»AEXP 

• ♦10 

VALUE, ONE 
ONE.ERRORU 

VALUE, ASSEM 

ENOCHK 



3= END, 0= IF STATEMENT 

FORCE UNCONDITIONAL ASSEMBLY 
OF THE END CARD 

GET VALUE OF "IF" OPERAND 
OPERAND'S VALUE SETS ASSEM 
UNDEFINED7FORCE ASSEMBLY. 



• SWI TCHIN& PROC E SS - JMR^L 1U>IAB4E1' TO_RSEUOO«Oe RO UT INE 
SWTCH1 BAL EXIT,EDITC EDIT LABEL 

LH «OLO*SAVE 

SWITCH AHR HOLO.HOLD YES, DOUBLE FOR HW ADRS 
LH HOLD, DTABLE WOLD) 

BR HOLD GOTO PSEUDO-OP ROUTINE 

• ASSEMBLER DIRECTIVES (PSEUOO-OP) TITLE 

• ASSEMBLE SOURCE STATEMENT OF THE FORM: 



ASM04610 
ASM04620 

ASM04630 

ASM04640 
ASM04650 
ASM04660 
ASM04670 

ASM04680 
ASM04690 
ASM04700 
ASM04710 
ASM04720 
4SM04730 
ASM04740 
ASM04750 
ASM04760 
ASM04770 
ASM04780 
ASM04790 
A5M04800 

ASM04810 

ASM04820 

ASM04830 

ASM04840 
ASM04850 

ASM04R70 

ASM04880 
ASM04890 

ASM04900 

ASM04910 

ASM04920 
ASM0A930 
ASM04940 

ASM04950 

ASM04960 
ASM04970 

ASM04960 
ASM04990 
ASM05000 
ASM05010 



INTEWDATA OS ASSEMBLER 
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TITLE (UP TO 56 CHARACTERS IN OPERAND) 



*- 04 E C R 
O4F0R 
04F4R 

_ A4F8R 

04FCR 

•500R 

0504R 

0508R 

050CR 
050ER 
Q5XOR 

05UR 

0518R 

651 CR 
051FR 

0522R 

0526R 
0528R 

052CR 

0530R 



J4£4 ^ TITLE BAL E X IT , NTITLE 



8LA M K O UT — TIT L E RE CORD 



051CR 

4850 

1SD4R 

4230 

0514R 

CS80 t 

0000 

4330 

0S14R 

C550 

0038 

438» 

0514R 

D2B5 

18 5CR - 

0A51 

01F3 

4300 -— 

04F8R 

41E0 

QCCAR 

4300 

011CR 

0155 

C860 

2020 

406S 

185CR 

0A52 

C55« 

0038 

4280 

0522R 

030F 



LH 



RtEOL 



IF END OF LINE GOT SET 



X BNZ EJECT 
LOQPT CLHI- CHAR»X«0Qt - 

r- BE EJECT 
*- CLHI Ri56 

V.JMI E J ECT 

• STB CHAR.TR(R) 



ASSUME NO TITLE 
END AT .CB— - - 

OR AT MAXIMUM OF 56 CHARS. 

STORE CHARACTER 



-<AHR R.ONE 
j( BALR EX IT .GET 



jLB- 



LOQPT 



TITLE RECORD FOR FUTURE 
PRINTING. =—- 



- EJECT BAL LINK. PRINT 



B 



DOLINE 



NI1TJUL JUffi RsJPL 



-BLANK OUT T LTLEL ..BECOSP.. 



«LHI REG.X«2020» 

LOOPTR SIH REG.J-8-ULt — 

* AHR R.TWO 

Y OMI JU5A 



WITH SPACES 



i BL 
v BR 



LOOPTR 
EXIT 



» AS S E MB LE R DIRECTIVES- ( PS SU OO»OP J OPT- 

• ASSEMBLE AN OPTION STATEMENT: 

• OPT PASS1. PRINT, PUNCH, STOP. SQCHK 

• O PT P ASS2 . NOPRNT . NOPNCH . NFLT .60— 

• OPT PASS3.LAB«SYMB0L»SCRT 



._ -G532R 11210 - 




156CR 


0536R 


C5B0 




-JM2C- 


053AR 


4230 




05BAR 


0S3ER 


01FJL 


0540R 


41D0 




094AR 


0544R 


4300 




0532R 


0548R 


4100 



OPTERR- STB ONFiERRORF 



SFT FORMAT FRROR 



OPTEND CLHI CHAR.Ct,. 



COMMA? 



BNE OPTPRT 
BAU3— EXIT t GET 



END OF OPTION STATEMENT 
BY PASS COMMA 



OPT 



BAL RETURN, SYMBOL 
_JB_ OP TERR 



S YMBOL'S 1S T CH AR NOT LETTER 



BAL RETURN, SEARCH FIND MATCH IN OP TABLE 



ASM05020 
ASM05030 



ASM05050 

ASM05060 

ASM05.07.0~. 

A5M05080 

ASM05090 

ASMOSIOO 

ASM05110 

ASM05120 
ASM05130 

ASM05160 

ASM05170 

ASMD51M 
ASM05190 

ASM05200 

ASM05210 
ASM05220 

ASM05230 

ASM05240 

ASM05250 

ASM05260 

ASM05270 

ASM05280 

ASM05290- 

ASM05300 

ASM05310 



ASM05330 
ASM05340 

ASM0535XL 

ASM05360 

JkSM.ft53Ift.. 
ASM05380 



INTEHOATA OS ASSEMBLER 
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054CR 
054ER 

0550R 

0554R 

0558R 

055CR 

0560R 

0564R 

0568R 

056CR 

0570R 

0574R 

0578R 
057AR 

057ER 

0582R 
0S86R 
©58AR 
058ER 
0592R 
0596R 
059AR 
059ER 
45A2R 
05A6R 
05AAR 
05AER 
05B2R 
05B6R 



0F34R 

1630R 

15E6R 

4300 

0532R 

41E0 

0BC8R 

C560 

0009 

4230 

0532R 

C570 

000F 

4230 

0596R 

C580 

003O 

4330 

0574R 

0210 

156CR 

4070 

15SER 

01F3 

41D0 

094AR 

4300 

0532R 

C8S0 

15UCR 

C8A0 

15E6R 

41E0 

OBEAR 

41F0 

OAAAR 

4300 

0536R 

035A 

0001 

C570 

COOA 

4230 

05B2R 

4510 

161AR 

4230 

05B2R 

E110 

18BER 

E110 

18B4R 

4057 

161CR 

4300 

0536R 



DC 
OC 

B 

8AL 

CLHI 

BNE 

CLHI 

BNE 

LAB CLHI 

BE 

STB 

STH 

BALR 
BAL 

B 

LHI 

LHI 

BAL 

BAL 

B 

0PT2 LB 

CLHI 

BNE 

CLM 

BNE 

SVC 

SVC 

SETOPT STH 
8 



OPORG 

£S ._ 

OPTERR 

LI NK» UNPACK ..— 

REG, 9 

OPTERR 

HOLD,X«F» 

0PT2 

CHAR.C»=t 

• ♦a 

ONEtERRORF 

HOLD, PC 

EXIT. GET 
RETURN,SYM80L 

OPTERR 

RtWl 

P.SS 

L1N*URACS¥M- 

EXIT.PACKPB 

OPTEND 

R,1(P) 

HOLD.X'A' 

SETOPT 

ONE^PASS 

SETOPT 

ltSCRWD 

l-.SCBLK 

R, OPT I ON (HOLD* 

OPTEND 



NO MATCH, BYPASS BAD SYMBOL 
—UNPACK XOOES-EOR-QPJ-10NS 
FIRST HALF OF C0DE=9 
MATCHEO BUT NOT AN OPT SYMBOL 
CODE=X«F'F0R"LAB="0PTI0N 

I 

CORRECT FORMAT SHOULD BE 

XAB=SjrMBQL 

SET FORMAT ERROR 

LOADER CONTROL ITEM FOR LAB= 

BYPASS EQUAL OR ERR CHAR 
GET LABEL OF ENTIRE PROGRAM 

ERRONEOUS FIRST CHARACTER 

PACK TEMP STORAGE W1.W2.W3 

WITH ASCII CODED SYMBOL 

-JN TEMP S¥M80L STORAGE 

ON PUNCHING PASS, PACK PB1 

CHECK IF AT END 

GET FLAG VALUE OF OPTEOSYMBOL 

IS THIS THE "SCRT" OPTION 

NO, CONTINUE 

IS THIS PASS 1 

NO, CONTINUE 

REWIND SCRATCH DEVICE 

WRITE- OPT LINE -TO SCRATCH 

SET THIS OPTION 

CHECK IF AT END 



ASM05390 
ASM05400 

ASM05410 

ASMQ5420 

ASM05430 

ASM05^40 

ASM05450 

ASM05^60 

ASM05470 

ASM0548Q 

ASM05490 

ASM05500 

ASM05510 
ASM05520 

ASM05530 

ASM05S<»0 

ASM05550 

ASM05560 

ASM05570 

ASM05580 

ASM05590 

ASM05600 

ASM05610 

ASM05620 

ASM05630 

ASM05640 

ASM05650 

ASM05660 

ASM05670 



INTEHOATA OS ASSEMBLER 
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OSBAR 41E0 
0C2CR 



0CC2R 
05C2R D350 

05C6R 0855 
05C8R 4330 

— 011CR - 

05CCR 4300 
0CC2R 



OPTPRT BAL 

. 9 



LINKtCHKEND 

-PRINTF- — 



LINE SHOULD END WITH CR/SPACE 



LB 



R.ERRORF 



LHR 
BZ 



R.R 
OOLINE 



PRINTF 



IF OPT STATEMENT HAD F ERR 

PRINT IT / OTHERWISE 
DON'T PRINT CORRECT OPTION 

PRINT IF ERROR, AS WARNING. 



!^l-2 J. *■*, 1 ********** t# * t ** * A ^ JU " t *^A***^AA*A»A«J t JLt- 

• ASSEMBLER DIRECTIVES <PSEUOO-OP> EXTRN 

• ASSEMBLE SOURCE STATEMENT OF THE FORM I 

J HI ABFI ) FX T RN SYMB Q l l . SY M Bffl 9 SYHBOJ fP OMMFNTl 



05D0R C850 
Q600 

05D4R 4300 
05DCR 



EXTRN LHI R,X»0600» 



SET EXTRN/UNDEFINED BITS 



• ♦8 



• ASSEMBLER DIRECTIVES (PSEUDO-OP) ENTRY 
•ASSEMBLE SOURCE STATEMENT OF THE FORMl 

» . » . t S YM BOl tCOMMENI-X— 



0508R C850 ENTRY LHI R,X«0A00« 



05DCR 

^OSEOR 

05E4R 

05EAR 

05EER 

05F2R 
05F4R 
05F6R 

05FAR 

OSFER. 
0600P 

0604R 

0608R 

060CR 

061 OR 
0612R 



SET ENTRY/UNDEFINED BITS 



4050 
15C6R 

-4aoo— 

05E6R 
01F3 



STH 
_8 



R.XNBITS 
_*^6 _ 



COMA 



094AR 
4300 
0CC2R 
4100 
0F34R 
162AR 
15E6R 
4300 
Q64ER 
485A 
0000 
0875 
C450 
0C00 
4330 
0646R 
4510 
JL61AR 
4230 
061ER 
.0557 
4650 
15C6R 



BALR EXIT, GET 

STUPN, SYMBOL 



BYPASS COMMA 



B 



PRINTF 



PRINT LINE W/ F ERROR 



BAL RETURN, SEARCH 



-DC- 
DC 

B 

LH 



--ST1L- ... 
SS 

ENTER 

R,0<P) 



SYMBOL NOT IN TABLE PASS 1 



LHR HOLDtR _ 

NHI R, EXTENT 

BZ— -£XTERR 

CLH ONE, PASS 

BNE CHKDEF 

LHR RaMQLDL 



IF N EI T HE R -EXT NQRENX,ERa 
ON PASS1 SET BITS OF 



MULT I ENTRY/EXTRNiERROR F 



OH 



R,XN8ITS 



SET CURRENT LINES EXT/ENT 



ASM05680 



ASM05700 

ASM057IO 
ASM05720 

ASM05730 

-ASM05740 
ASM05750 
ASM05760 
ASM05770 
ASM05780 
ASM05790 

ASM05800 

ASM05810 

ASM05820 

ASM05830 

ASM0584O . 

ASM05850 

ASM05860 



ASM05870 

4SMOSBBO - 

ASM05890 
ASM0 590 

ASM05910 

ASM05920 

ASM05930 

ASM05940 
ASM05950 

ASM05960 

„asmos9Z0- 

ASM05980 
ASM05990 
ASM06000 
ASM06O1O 

ASMn60?n 
ASM06030 



INTEKDATA 



0616R 
061AR 
061ER 
0622R 
0626R 
062AR 
062ER 
0632R 
0636R 
063AR 
063ER 
0642R 
0646R 
064AR 

©64ER 
0652R 
0656R 
065AR 
065ER 
0662R 
0666R 
066AR 



405A 

0000 

4300 

06<t6R 

C470 

0200 

4330 

063ER 

C450 

0400 

4230 

0632R 

0210 

156CR 

D20A 

0001 

D20A 

OO0J3 

4300 

0662R 

C450 

0800 

4230 

06b2R 

0210 

156CR 

4300 

0662R 

4850 

15E6R 

4650 

15C6R 

4050 

15E6R 

C860 

15E6R 

41D0 

1116R 

C5B0 

002C 

4330 

05E4R 

4300 

OCBER 



066ER 41F0 
0EO4R 

0672R 41E0 
U7CR 

0676R 4330 
0682R 



OS ASSEMBLER 
STH 

a 

CHKDEF NHI 
BZ 
NHI 
8NZ 
STB 
STB 
STB 
B 

CHKENT NHI 
BNZ 

EXTERR STB 
B 
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R.O(P) IN CASE BOTH AN EXTRNENTRY 

EXTERR .2ND HUE TD SEE THIS SYMBDL 

HOLD.DEFBIT IF THIS SYMBOL DEFINED 
CHECK TO SEE IF ENTRY 
IF UNDEFINED SYMBOL =ENTRY 
SET F ERROR AND TREAT AS 
AN EXTRN 

ZERO VALUE FOR EXTRN »S 
LEAVE CODE EXT-UNO 



CHKENT 

R.EXTBIT 

» + 8 

ONE.ERRORF 

ZERO. UP) 

ZERO,3(P) 

COMMA 

RiENTBIT 

COMMA 

ONE.ERRORF 

COMMA 



IF DEFINED SYMBOL IS AN EXTRN 
F ERROR, IF ENTRY OK 



• EXT-ENTRY OPERAND SYMBOL NOT FOUND IN SYMTAH 



ENTER LH R.SS 

OH R.XNBITS 

STH R.SS 

LHI REG.SS 

BAL RETURN, INSRTS 

COMMA CLHI CHAR.C*,' 

8E COMA 

B ENDCHK 



SET EXTRN AND UNDLF BITS 
SET EXTRN/ENTRY AND UNDEF 
EXTERNALLY DEFINEO IF 
NEEDED TO INSERT SYMBOL SS 
NOT DEFINED THIS ASSEMBLY 



CHECK END AND PRINT 



• ASSEMBLER DIRECTIVES (PSEUDO-OP) ORG 
» ASSEMBLE SOURCE STATEMENT DF -THE FQRHt 
•(LABEL) ORG (AN EXPRESSION) (COMMENT) 



ORG 8AL EXIT.MAXLIM 

BAL LINK.AEXP 
BZ ORGOK 



UPDATE MAXLOC IF NECESSARY 

GET VALUE OF OPERAND 



ASM06040 

ASM06050 

ASM06060 

ASM06070 

ASM06080 

ASM06090 

ASM06100 

ASM06110 

ASM06120 

ASM06130 

ASM06140 

A5M06150 

ASM06160 

ASM06170 

ASM06180 
ASM06190 

ASM06200 

ASM06210 

ASM06220 

ASM06230 

ASM06240 

ASM0625O 

ASM06260 

ASM06270 
ASM06280 
ASMQ6290 
ASM06300 
ASM06310 
ASMC632f) 

A^MOftlVJO 
ASM06360 
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067AR 0210 STB ON£»ERRORF »F" FORMAT ERR IF UNDEFINED 

156CR 

Q67 Eft 086 1 LHR- REG . ONE FO RCE O R G EB R -IO-- REL2ER0 

0680R 07CC XHR VALUE. VALUE FOR UNDEFINED OPERANDS 

0682R 4060 ORGOK STH REG.MODE SET MODE 

16 86 R — ■- 

0686R C4C0 NHI VALUE. X'FFFE* FORCE ORIGIN LOW & EVEN 

FFFE 
_068AR-A0CO -SXH VALUE. LOC S ET -NE W L OC A T ION -COUNTER 

168ER 
068ER 41F0 BAL EXIT.MAXLIM 

QEP4 R - 

0692R 41F0 8AL EXIT.EDITC PACK PRINT RECORD, POST LABEL 

09E8R 
4696ft 4300 -!- 8 E NDCHK - X HK E ND -AND- PR1MT 

OCBER 

-•ASSE M BLER DI R EC T IVE S ( P SEUD O« OP-J EQU 

• ASSEMBLE SOURCE STATEMENT OF THE FORM J 
•(LABEL) EQU (AN EXPRESSION) (COMMENT) 

»m»»iii in»»«»»ntm» it»nm»»«m»nni» mi> t»nt . ... 

069AR 41E0 EQU BAL LINK.AEXP EVALUATE EXPRESSION 
117CR 

-069ER 485Q LH R.LS - CHECK -FDR-PRESENCE OF LABEL- 

1SF0R 
•6A2R 4210 BM »*8 OK. LABEL FIELD HAD SYMBOL 

-H6AAR- .. . .- „ - . _ 

06A6R 0210 STB ONE.ERRORF 

156CR 
06AAR 4860 LH^ REG* FRF- WAS OPERAND OEF I NEO 

15B4R 
06AER 4330 BZ DEFEQU DEFINE THIS LABELS SYMBOL 

46BER- - -— - 

06B2R D210 STB ONE.ERRORF ERR TO EQUATE TO UNDEFINED 

156CR 

-06B6R-C654 OHI ft+OEFB-IT -SE4-~-UNDEF---LA8£L- SYMB OL 

0200 
06BAR 4050 STH R.LS 

.._ _ 15FQR : . . 

06BER 4860 DEFEQU LH REG.RELFLG FETCH RELBIT OF VALUE 
15B8R 

— 06C2 R 4 1F& BAL EXIT»E0ITC1 INSERT LABEL -IN- SYMTAB -- 

09F0R 
06C6R 4300 EQULAB B ENDCHK 
- - OCBER- - — . 

• ASSEMBLER DIRECTIVES (PSEUDO-OP) DO 
> ASSFMBI E-SOJURCE-STATFMENT ■OJL..IHE- FORM! ... 
•(LABEL) DO (AN EXPRESSION) (COMMENT) 

06CAR 41 Eft DO BAL_ LINKj-SCAR OPERAND MUST NOT BE JlBEQEL REL 

044AR 
06CER 0855 LHR R.R TEST FRF 

06D0R 4230„ - __ BNZ ZERVAL ZERO VALUE FOR UNDEFI NES _ 

06DAR 
06D4R 08CC LHR VALUE.VALUE CHECK FOR PROPER OR POS VALUE 



ASM06370 

ASM06390 
ASM06400 

ASM06410 

-ASH06420 - 

ASM06430 

ASM06440 

ASM064S4) 

ASM06460 

ASM06470 

ASM06480 

ASM06490 

ASMfl6Sa0- 

ASM06510 



ASM06530 
ASM06540 
ASM06550 
ASM06560 
ASM06570 
ASM*6584 
ASM06590 



ASM06600 

ASMO6610 

ASM06620 

ASM06630 
ASM06640 
ASM06650 
ASM06660 
ASM06670 
ASMQ66aft. 

ASM06684 
ASMfi66a5__ 

ASM06690 



INTERDATA 

06D6R 4310 

060CR 
06DAR 07CC 
OlSDCR CftCO 

HOOO 
06E0R 40C0 

168CR 
06E4R 4300 

OCOER 



OS ASSEMBLER 
BNM 

ZERVAL XHR 

OHI 

STH 
R 



03-025R02A13 



ZERVAL*2 

VALUE t VALUE 
VALUEtX«flOOO» 

VALUEtDOC 

ENDCHK 
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OK 



OON.T ASSEMBLE NEXT LINE 
FLAG NEG = "DO" MODE 

SET DO COUNTER = VALUE OF OPERAND 
CHECK END. PRINT, GOTO OOLINE 



06E8R 



06ECR 
06EER 

06F2R 

06F6R 

06FAR 
06FCR 
06FER 
0700R 

©704R 

0708R 



41E0 
044AR 

oass 

4230 

01D4R 

41FO 

0E04R 

4AC0 

168ER 

OBSC 

0451 

0AC5 

40C0 

168ER 

41F« 

0FD4R 

4300 

0CC6R 



070CR 
070ER 

0712R 

0716R 

071AR 

071ER 

072?R 

0726R 



01F3 

C890 

001C 

409« 

15AER 

4020 

15CER 

C850 

0008 

40S0 

1S8ER 

41 to 

1 1 7CR 

CA60 

0008 



« AN EXPRESSION) (COMMENT) 

. value ^ S!SSJ?SIS: # SKIS # s; # ::-:;s 

• IF ANY, IS INSERTED ^ ^taPlV? C CQUNTES » LABEL. 

* PR ALREADY JaCKeJ SlTH CURHEN7 !lr t°S t? UNTER VALUE 
•«•••«»••••».««..«».!.." ....f NT L0C & R IF NECESSARY 

8AL LINK, SCAN OPERAND MUST NOT BE REL/FRF 



LHR 

SN2 

RESERV BAL 

AH 

LHR 
NHR 
AHR 
STH 

BAL 

B 



RESERR.-4 

EXIT.MAXL1M 
VALUE. LOC 

R, VALUE 
R.ONE 
VALUE, R 
VALUE. LOC 

EXIT.MAXLIM 

PRINTR 



XF OPERAND UNOEF .RESERVE 4 
RESERVE 4BYTES FOR UNDEFINED 

UPDATE CURRENT LOCATION COUNTER 
OPERANO MUST BE FORCED EVEN 



CANNOT DO NORMAL ENDCHK 



8ALR EXIT.GET * * 



DC 



LHI COUNT, 28 

STH COUMT^TYPEGN 

STH TWO. AFIELD 

LHI R.8 

STH R.PC 

HAL LINK.AEXP 

AHI REG, 8 



FORCE AEXP TO DO DC C»,E«, 

AND D-«-~GOWSTANTS 

LEAVE RFCF A ZERO 

SET PC=8 BETWEEN OPERANDS 



REG=0 ABS/REG=1 REL 



A5M06700 

ASM06730 

ASM0ft740 

A5>M067bO 

ASM067(SO 

(VSM06780 
ASM06790 
ASM0680Q 
ASM06810 
ASM06820 
ASMQ6830 
ASM06840 
ASM06850 
ASM06860 
ASM06870 

ASM06880 
ASM06890 

ASM06900 

ASM06910 

ASM0b920 
ASM06930 
ASM069S0 
ASM06960 

ASM0f>970 

A C .M06980 

ASM06990 
ASM07000 
ASM07010 
ASM07020 
ASM07030 
ASM0 7040 
ASM07050 

A5H07O6O 

ASM07070 

ASM07071 

A«;M0707? 

flSM07il*i() 

asmo71oo 
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•72AR 
♦72ER 
0732R 
• 736R 

-073AR 
073ER 
0742R 
A146R 
074AR 
074ER 

-6752R 



4060 

158ER 
4*C* 

15DCR 

C5B0 

*«2C 

4330 

0742R 

A1 FQ 

0C2CR 

0210 

156CR- 

41F0 

0A30R 

C5flft ..... 

002C 

4330 

HlftCR 

C850 

000C 

4J>5* 



STH REG. PC 
EDITOC STH- 

CLHI CHAR»C«t» 



SET PC*8 ABS/PC*9 REL 
P ACK T H E V A L UE-TO g&JT 
IF NOT AT COMMA THIS IS 



BE 
BAL- 



• ♦12 

I TNK.CHKENO- 



LAST OPERAND OF DC. 
SEX- FORMAT- ERROR IF- EN£L 



15AER 
0756R 4000 

- 1SCER- 



075AR 4300 
011CR 



075ER 4850 
15D4R 
-ftT62R 4230 .._ 
076ER 
0766R 41E0 

H7CR 

076AR 40C0 
1636R 

076ER 41F0 
0ED4R 

0772R 41E.Q 
0D98R 

0776R 4850 



STB ONEtERRORF 
BAL IexTtTeoIT ~~ 

CLHI CHAR.C». ? _ 

BE OC-2 



IS NOT SPACE OR CR. 



LHI 
STH 



R.12 
JUTYPECkL 



RFFST ABL I SHJMORH-TJfPJL CONSTANT 



STH ZERO, AFIELD 



RESET AFIELD FLAG 



B 



DOLINE 



IUIlMUUUIWUUIUUIUUUllUUiUlllU«lltlH|« 

• ASSEMBLER DIRECTIVES (PSEUDO-OP) END 

• ASSEMBLE SOURCE STATEMENT OF THE FORM! 

• UA8EU £NO- IAN E X PR ESS I ON= TRANSFER- ADDRESS ) 

• THE "END" ROUTINE PROCESSES THE END OP*FUNCTION 

• TO-OHMP-JtH£-SYMRni TABI F.n FAP t| { UMOCC1NEO VALUES, 

• GETS THE REFERENCE/DEFINITION ADDRESSES FOR GLOBaLS 

• OUT TO TAPE. SENDS THE MAXIMUM RELOCATABLE LOCATION, 

• PUNCH A TRANSFER ADDRESS. If PRESENT -IN OPERAND. 

• SWITCH THE TAPE MODE TO RELOCATABLE IF NECESSARY, 

• SENDS THE END OF TAPE CONTROL ITEM TO PUNCH THE LAST 
• -PUNCH aUEEOU AND, GOTS FTTHFR TO nn thf m F »t _e»as£ 

• OR IF THIS IS THE LAST PASS OF THE ASSEMBLY ISSUES 

• AN END OF JOB SVC TO OS 

END LH R.EOL " 



-BNZ 



-*JlL2 



BAL LINK.AEXP 
STH VALUE .XADRS 



SKIP IF NO OPERANQ- 



FETCH VALUE OF TRANSFER AD 
RELFLG HOLOS REL OF XADRS 



* LABEL^IEANX.AND-LOC__CQUMT 1M PO t «svmt^ P 

BAL EXIT.MAXLIM SET HIGH ADRS FOR LOADER 



BAL -JLINKaCHKQPJL 
LH R.OPSCRT 



-PRINT END-STATEMEML 
WAS THIS PASS WRITTEN/ 



ASM07110 

ASM4742-^ 

ASM07130 

ASM07140 

ASM07150 - 

ASM07160 

ASM07170 

ASHOliaQ.- 

ASM07190 

ASM07200 

ASM0J210 

ASM07220 

ASM07230 

ASM0_72Afl 
ASM07250 
ASM07260 
ASM07270 
ASM07280 
ASM07290 
ASM07300 
ASM07310 
ASM07320 
ASM07330 
ASM07340 
ASM07350 
ASMOia&O. 
ASM07370 
ASM07380 
ASMH129J1 
ASM07400 

ASM07410- 

ASM07420 

ASM07430 

-ASM47A40— . 

ASM07450 

ASMQ746D 
ASM07470 
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1626R 








077AR 


4330 
07A6R 




BZ 


NOSCRA 


077EP 


D3S0 
18H5R 




LB 


R,SCRLK*1 


07B2R 


D250 
18A5R 




STB 


R.SRBLK*1 


0786R 


41D0 
00O6R 




BAL 


RETURN, IOWAIT 


078AR 


18BCR 




DC 


SCWAIT 


078CR 


18B4R 




DC 


SCBLK 


A7BER 


4100 
00D6R 




BA4. 


..-flEIUBiiUIOMAII- 


0792R 


18BER 




OC 


SCRWD 


4794R 


lBBER 




OC 


SCR WO 


0796R 


4300 
07AER 




8 


STDUMP 


079AR 


DIAO 
18ECR 


NOLERR 


LM 


10.NOERR 


079ER 


DOAO 
178AR 




STM 


lOtPR 


07A2R 


4300 

07D0R 




B 


PRINIT 


07A6R 


41FQ 
092FR 


NOSCRA 


BAL 


EXlTtPASCHK 


07AAR 


E110 
18C2R 




SVC 


1»BKSPFL 


07AER 


C8E0 
07D4R 


ST DUMP 


LHI 


LINK,NPRPAS 


07B2R 


41F0 
OCFAR 




8AL 


EXIT»PRNTCK 


07B6R 


4000 

1A8AR 




<STH 


ZERCLCOUNT 


07BAR 


48C0 
1912R 




LH 


OtERRCNT 


078ER 


4 3 JO 
079AR 




8Z 


NOLERR 


07C2R 


E120 
18D8R 




SVC 


2.CNVERT 


07C6R 


0700 




XHR 


ZERO, ZERO 


07C8R 


0180 
1908R 




LM 


8.YESERR 


07CCR 


0080 
178AR 




STM 


8, PR 


07D0R 


41E0 
0D98R 


PRINIT 


BAL 


LINK.CHKQPT 


0704R 


48B0 
162AR 


NPRPAS 


LH 


NXTSYM.STO 


07D8R 


4300 

07E0R 




B 


DUMP* 4 


07DCR 


41E0 

0Ds>8R 


DUMP 


8AL 


LINK.CHKOPT 


07E0R 


084B 




LHR 


STX,NXTSYM 


07E2R 


454J> 
162CR 




CLH 


STX,ST£ 


07E6R 


4330 




BE 


ENDUMP 



OR READ FROM SCRATCH? NO 

FETCH LU USED FOR SCRATCH 

FORCE SR LU = SC LU 

CHECK STATUS ON LAST I/O 

ISSUE WAIT ON SCRATCH 
REISSUE SCRATCH IF TROUBLE 
-ISSUE . SCRAZCH-BEJWINO 

DUMP THE SYMBOL TABLE 
PACK PRINT RECORD WITH 
NO ERRORS MESSAGE 

IF NON-LAST PASS, 
BACKSPACE LU1 TO FILE MARK. 

ON PRINTING PASSES 

EJECT FOR ERRMSG 8. STDUMP 

DID LISTING CONTAIN ERRORS? 

NO, 

YES, UNPACK NUMBER INTO MSG 

MAINTAIN REG ZERO=0000 
PACK PRINT RECORD WITH 

ERROR MESSAGE i. COUNT 

PRINT UNLESS"NO PRNT" OPTED. 

SET POINTER TO 1ST SYMBOL 

SKIP CALL ON CHKOPT 

PRINT UNLESSMNOPRNT" 

OR ON PASS 3 OF 3 

END DUMP IF NONE/ OR LAST 



ASM07480 

asmii T<*90 

ASM07S00 

ASM07510 

ASM07520 
ASM07530 
ASM07540 

ASM07541 
ASM07542 
ASM07550 

ASM07560 

ASM07570 

ASM07S80 

ASMQ7590 

ASM07600 

ASM07M0 

ASM07620 

ASM07630 

ASM076<+0 

ASM07650 

ASM07660 

ASM07670 
ASM07680 

ASM07690 

ASM07700 

ASM07710 

ASMQ7720 

ASM07730 

ASM07740 
ASM077S0 

ASM07760 



INTERDATA 


OS ASSEMBLER 
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08A6R 




R.£r»2 






• 7EAR C850 


LHI 


SET R POINTER FOR PACSYM 


ASM07770 


178CR 










©7EER 08A4 


LHR 


P.STX 




ASM07780 


07FOR 41E0 


BAL 


LINKtPACSYM 




ASM07790 


OBf.AR 










•7F4R 08B9 


LHR 


NXTSYM, COUNT 


PRINT RECORD/COUNT«NEXTSYM 


ASM07800 


•7F6R 41E» 


BAL 


LINK* UNPACK 


UNPACK SYMBOL'S CODEfcVALUE 


ASM07810 


•SCAR 




* 






07FAR 41E0 


BAL 


LINKtPACKPR 


PACK SYMBOL'S VALUE INTO 


ASM07820 


0C48R 




Ai£r*10) 






07FER 1794R 


DC 


PRINT RECORD *10 


ASH07-830 
ASM07840 


•BOOR 0374 


LB 


HOLDtO(STX) 


FETCH CODE OF SYMBOL 


0000 










0804R 0857 


LHR 


R-tHOLO 




-ASM07SS0- 
ASM07860 


0806R 0451 


NHR 


RtONE 


ISOLATE RELBIT OF SYMBOL 


0808R 0365 


LB 


REG.RSPACE(R) 


R=0»GET SPACE 


ASM07870 


15D2R 










080CR 0260 


STB 


REG*PR*1* 


APPEND "R" IF R*l 


ASM07880 


1798R 










•810ft J186 7 


LHB rfr.hoi n 




ASM07B9& 


0812R C460 


NHI 


REG.X'2E« 


DUMP THIS LINE IF LOCAL 


ASM07900 


002E 










0816R 4330 


BZ 


DUMP 


SINGULARLY OEFINFD SYMBOL 


ASM07910 


07DCR 










•81 AR C560 


CLHI 


REG»X'20» 


FORM FLAG TABLE INDEX 


ASM07920 


J&A20 










081ER 4330 


BE 


MLTLOC 




ASM07930 


0868R 










0822R 4220 


BP 


MLTEXT 




ASMQ79&0 


0870R 










•826R 4856 


LH 


R*FLAGS-2(REG) 


GET 2CHARS TO PRECEDE SYM 


ASM07950 


156ER 










082AR 4050 


strfl*g sth 


RiPR 


STORE IN PRINT RECORO 


ASM07960 


178AR 










082ER 0867 


LHR 


--R£G*HOU>- - - 


GET ORIGINAL CODE 


ASM07970 


0830R C460 


NHI 


REG,X'E» 


DUMP THIS LINE IF ITS A 


ASM07980 


OOOE 










0834R 4330 


«z 


_j._ouihp_ 


MULTIPLY DEF-INED SYMBOL 


ASM0J990 


07DCR 










0838R C460 


NHI 


REG.X'C 


IF ONLY THE UNDEFINED BIT 


ASM08000 


oooc 










•83CR 4330 


BZ 


DUMP 


IS SET* FORWARD REFERENCE 


ASM08010 


07DCR 










0840R 0867 


LHR 


REG. HOLD 




AS^nnnpo 


0842R C460 


NHI 


REGtX'12' 


GET USEDBIT8.UNDEFBIT 


ASM08030 


0012 










0846R 0562 


CLHR 


REfi.TWO 


IF THIS EXTRN/ENTRY IS 


ASM0PI040 


0848R 4330 


BE 


NOREFX 


UNDEFIUNSTRUNG.VALNOT REF 


ASM08050 


089AR 










ftB4Cfi.0A57_ 


LHR 


R.HOLD 


POSITION RFlfttT FOR Fl IP 


ASM38JQ6jQ 


084ER 41F0 


BAL 


EXIT.FLIP»4 




ASM08070 


0F16R 










0852R D374 


J.B ...._. 


HOLD»0(STX) 


GET SYMBOL'S CODE AGAIN 


ASM0808Q 


0000 










•856R 40C0 


STH 


VALUE. Wl 




ASM08085 
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085AR 
0B5CR 

0860R 

©864R 

0868R 

086CR 

0870R 

0874R 

0878R 

087CR 

0880R 

0884R 
0886R 

088AR 

088ER 

0892R 

0896R 

089AR 
089ER 
08A2R 
08A6R 
08AAR 
08AER 
0882R 
08B6R 
088AR 
08BER 
08C2R 



15DCR 

0472 

4230 

0B78R 

C850 

0007 

4300 

087CR 

C850 

40<?0 

4300 

082AR 

C8S0 

2A4D 

4300 

082AR 

C850 

0006 

41E0 

0AA6R 

C850 

150CR 

08A4 

41E0 

OBEAR 

C850 

0006 

4A50 

158ER 

41F0 

0AA6R 

4300 

070CR 



case 

2A2A 

4050 

178AR 

4300 

07DCR 

4850 

15D4R 

4230 

08C4R 

4850 

1636R 

405« 

15DCR 

4850 

15B8R 

41F0 

0F16R 

41F0 

OAAOR 

0004 



NHR 
BNZ 

LHI 

B 
MLTLOC LHI 

B 
MLTEXT LHI 

B 
EXTRNS LHI 
SETPC BAL 

LHI 

LHR 
BAL 

LHI 

AH 

BAL 

B 



HOLD. TWO 
EXTRNS 

Ri7 

SETPC 

RtC'M • 

STRFLG 

R.C'»Mi 

STRFLG 

R.6 

EXIT.PACKPB-4 

R.ttl 



P.STX 
LINK.PACSYM 

R.6 

R.PC 

EXIT.PACKPB-4 

OUMP 



IF DEFBITaOTREAT AS ENTRY 

ENTRY BIT SET. SET PC=7 
FOR DEFINITION AORS/VALUE 
LOCAL MULTIPLE DEFINED 

EXTERNAL MULTIPLE DEFINED 

EXTRN BIT SET, SET PC=6 
PACK PB W/PC=6/7 «. VALUE 

RESET POINTER TO SYMBOL 
PACK SYMBOL IN tfl.W2.W3 

6*6=X»C«F0R REFERENCE SYMB 

6*7=X»D»F0R DEFINITION SYM 

PACK C OR WITH SYMBOL 



COVER PREVIOUS LETTER 

IF NO XADRS SKIP TO 
SEND END OF TAPE CODE 



• FOR UNSTRUNG UNDEFINED EXTRN OR ENTRY SYMBOLS 

• JUST PRINT VALUE DON'T PUNCH REF ADRS ON TAPE 
NOREFX LHI R,C'"» SHOW UNSTRUNG UNDEFINED 

STH R.PR 

B DUMP 

ENDUMP LH R.EOL 

BNZ ENDREL 

LH R, XADRS 

STH R*W4 

LH R.RELFLG 

BAL EXIT.FLIP*4 SEND FLIP FOR XADRS IF NEC 

BAL EXIT.PACKPB-10 PACK XADRS WITH CONTROL 

DC 4 ITEM 4 



ASM08090 
ASM08100 

ASMO^llO 

ASM08120 

ASM08130 

ASM08K0 

ASM08150 

ASM08160 

ASM08170 

ASM08200 

ASM08210 

ASM08220 
ASM0B230 

ASM08240 

ASM08250 

ASM08270 

ASM08280 

ASM08290 
ASM08300 
ASM08J10 

ASM08320 

ASM0B33O 

ASM08340 

ASM08350 

ASM08360 

ASM08370 

ASM08380 

ASM08390 

ASM08410 

ASM08420 
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•8C4R 4010 
1686R 

*8€«R -48S*- 
1690R 

08CCR 4330 
-4BDCR 



08DOR 4050 

168ER 
— 08D4R 41FQ 

OED4R 
0808R 4300 

aB£OR_ 

080CR 41 FO 

0F12R 
--WEOR 41FA 

OAAOR 
08E4R 0001 
08E6R 4B50 

1620R 
08EAR 4330 

A8F6R 
08EER 4100 

00O6R 

o«F2R laoaa 

08F4R 18CAR 
08F6R 41F0 

092ER 
08FAR 4300 

0058R 
♦BFER 4SS« 

1620R 
0902R 4330 

4SOER 
0906R 4100 

0006R 
090AR 1BC6R 
090CR 18C6R 
090ER 4850 

1622R 
0912R 4330 

092AR 
0916R 4850 

169ER 
091AR C8S5 

006C 
091ER 4050 

0928R 
0922R 41 DO 

00D6R 
0926R 1804R 
0928R 0000 
092AR E130 

18D6R 
092ER 4860 

161CR 
0932R 4850 



BZ 



ENOONE 



STH 
-BAL- 



RfLOC 
EXIT.MAXLIM 



SEND MAXLOC TO TAPE 
_ANO_LEAVE MODE -REL-ON-IAgE- 



8 



• ♦8 



ENDONE BAL 



DC 
LM. 



EXIT, FLIP 
tm P A CKP B - 1 -SEND. -£ND_flF-TAPE-SlGNALal 



-R+QPRINI 



BZ CHKPAS 

BAL RETURN, IOWAIT 
UC PRWAIT 



<QC 



CHKPAS BAT 
B 



TXIT.PASCHK 



AND PUNCH LAST BUFFER 
-DID J ISTXNG TAKE PLACE? 

continue 

check status of last i/o 

-WAXT---ON_LASI-.-LtSIEXl-.LINE 
REISSUE IF TROUBLED I/O 
WAS THIS THE FINAL PASS? 



BEGINP 
R . OPR IN T- 



BZ 



• ♦12 



NO, BEGIN NEXT PASS 

01© LISTXNG TAKE PLACE? 

NO, SKIP EOF 



BAL RETURN, IOWAIT WRITE END-OF-FILE TO LISTDV 



DC 
DC 
LH 

BZ 

Lit 

LHI 

STH 



-PREOF 
PREOF 
RtOPUNCH 

EOJ 

RfPBSMCiliL2L. 

R,108(R> 

R,ADRBLK 



YES, DID OBJECT OUTPUT OCCUR? 
NO, ISSUE END OF JOB 
GET LASI.-I/0 OBJECT BUFFER 
GET BLOCK ADDRESS 



8AI JiEXURH^XQWAXT 



DC 

ADRBLK OC_ 
EOJ SVC 

PASCHK- LM . 

LH 



PBWAIT 

-0000 

3.SUSPND 



-REGjlQPASS 

RtPASS 



SET ARG FOR IOWAIT ROUTINE 

CHECK-SIAIUS OF LAST I/O 

WAIT FOR LAST OBJECT OUTPUT 
REISSUE-XE TROUBLED I/O 

SEND OS END OF JOB REQUEST 

FEJ.CJU>gEC£DlMG PASS-NUHBJER_ 
FETCH CURRENT PASS NUMBER 



ASM08430 

AS M 844 O - 

ASM08450 

ASM08460 

ASMQ847-0— 

ASM08480 

ASM08490 

ASMOSSftft 

ASM08510 
ASMQ852Q 

ASM08530 

ASM08540 

ASMOB550 
ASM08560 
ASM08570 

ASM08580 

ASM0858S 

ASM08586 

ASM08587 

ASM08588 
ASM08589 
ASM08590 

ASM08600 

ASM08610 

ASM08620 

ASM08630 

ASM0B640 

ASM08650 
ASM086AO 
ASM08670 

ASMjOJ6BDL- 

ASM08690 
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161AR 
0936R 0A51 
0938R C556 

0001 
093CR 028F 
093ER 4301" 

0004 



0942R D3B4 

oooo 

0946R 0A41 
0948R 030F 



AHR R.ONE 
CLHI JUUREGl 



094AR 
094CR 

0950R 

0954R 
0956R 
0958R 

095CR 

0960R 

©964R 

0968R 

096CR 

0970R 
0972R 

0976R 

097AR 
097CR 
097ER 

0982R 

0986R 

098AR 



0755 

C895 

OOOA 

4009 

15E4R 

0B9? 

0595 

4230 

O950R 

41F0 

09BAR 

4300 

09A0R 

C860 

8000 

4069 

15E6R 

D2B9 

15E8R 

0A91 

4300 

0»7AR 

D2B9 

15E8R 

0A9I 

01F3 

41E0 

09CAR 

430D 

0004 

C595 

0007 

4280 



BLR 
B 



EXIT 
*t£XIT4 



UPDATE CURRENT PASS NUMBER 
MAS THIS JtME-EINAL PASS? 

NON-LAST PASS 
XINAl -PASS DONE* 



• SOUHCE CHARACTER ISOLATION ROUTINE 

GETCHR LB CHAR.O(SRX) 

AHR SRX.ONE 
BR EXIT 

• SOURCE SYMBOL RETRIEVAL ROUTINE 

• IF THE VARIABLE NUMBER Of CHARACTERS IN THE SOURCE 

• STATEMENT FORM A SYMBOL RETURN IS MADE TO THE 2ND 

• INSTRUCTION FOLLOWING THE CALL ON "SYMBOL" 

• WHEN THE VERY FIRST CHAR 1SL NOT A LETTER RETURN 

• TO THE FIRST INSTRUCTION FOLLOWING THE CALL 

SYMBOL XHR R*R . _. ___ 

LHI COUNT. 10 (R) R=0. CLEAR SYMBOL STORAGE 

CLEARS STH ZERO. SS-2 (COUNT) R=10. CLEAR LABEL STORAGE 

SHR COUNT. TWO 
CLHH COUNT. H 
BNE CLEARS 



BAL 
8 
STRCHR LHI 
STH 

STB 

AHR 
B 



EXIT. LETTER 

NOTLTR 

REG.X«8000» 

REG .SS (COUNT) 

CHAR»SS*2(COUNT> 

COUNT. ONE 
• ♦8 



CHAR WAS NOT HOLDING A LETTER 
SET BEGINNING OF ENTRY BIT 



LOOPS STB CHAR»SS*2(COUNT) 

AHR COUNT .ONE 

BALR EXIT. GET 

BAL LINK.ALFNUM 

B 4 (RETURN) 

CLHI COUNT. 7 (R) 

BL LOOPS 



ASM08700 
ASM08710 

ASM08720 
ASM08730 

ASM08740 
ASM08750 
4SH08760 
ASM08770 

ASM08780 
ASM08790 
ASM08800 
ASM08810 
ASM08820 
ASM08830 
ASM08840 
ASM08850 
ASM08860 
ASM08870 
ASM08880 
ASM08890 
ASM08900 

ASM08910 

ASM08920 
ASM08930 
ASM08940 

ASM08950 

ASM08960 

ASM08970 

ASM08980 

ASM08990 

ASM09000 
ASM09010 

ASM09020 

ASM09030 
ASM09040 
ASM09050 

A C .M040M: 

ASM0VU7O 

KSM090H0 
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0976R 
098ER 0210 

1S6CR 
0992R 01E3 
0994R 41E0 

9C AR 

•998R 4300 

0004 
099CR 4-306 

0992R 
09A0R C5B0 

-O02E- 

09A4R 433Q 

0964R 
-Q9A8R C 5 BQ-- 

0024 
09ACR 4330 

_. 0J964R- 

©9B0R C5B0 

0040 
09B4R 4330 

0964R 
09B8R 030D 



09BAR C5B0 
0041 

09BEJR QZBF 

09C0R CSBO 
005B 

09C 4 R 03 8 F 



09C6R 430F 
0004 



09CAR 41F0 
09BAR 

09CER 4300 
09 D 6R 

09D2R 430E 
0004 

0.906R 08FE 



STB ONE.ERRORF 



GETENO 



BALR 
BAL 



EXIT, GET 
LINKtALFNUM 



B 



4 (RETURN! 
GETENO 



NOTLTR CLHI CHARfC'.i 



ALLOW SPECIAL CHARS . ,S,9 



BE 
CLHI 



STRCHR 
CHAR.CtSt 



BE 



STRCHR 



CLHI 

BE .... 



CHAR,C»^» f 
-STRCHR 



BR RETURN 
tt«»itmttt»tttt«tti 

• IF CHAR IS A LETTER RETURN TO 2ND INSTRUCTION 

• IF CHAR NOT A LETTER RETURN TO 1ST INSTRUCTION 

• -FOLLOWING THE„CALL-IOlJL£TJ£R, 

LETTER CLHI CHAR»CtA« 



BLR EXIT 

CLHI CHAR.C«Z»*1 



t .*.»•.**_.. 



BN LR - EXIT 



B 



4(EXIT) 



• IF CHAR IS AN ALPHANUMERIC CHAR RETURN TO 2ND INSTRUCTION 

• FOLLOWING THE CALL TO ALFNUM 

ALFWUM. -SAL -PIT, L ETTER - 



B 



CHKDIG 



XMKOXG — LHB- 



4(LINK) 
XXJTiLINK 



• IF CHAR IS NOT A DIGIT RETURN TO THE 1ST INSTRUCTION. 

• IF -CHAS-IS-JL DIGIT RETURN TO JHE_2NO-INSTRUCTI0N ...... 

• FOLLOWING THE CALL TO DIGIT 



09D8R C5B0 


DIGIT 


CLHI 


CHAR.C'O* 


0030 








09DCR 028F 




BLR 


EXIT 


09DER C5B0 




CLHI 


CHAR»C«9«*1 


... .. _ JUL3* 








09E2R 038F 


BNLR 


EXIT 


•9E4R 430F 




B 


4CEXIT) 



ASM09090 

ASM09100 
ASM09H0 

ASM09120 

ASM09130 

ASM09140 

ASM09150 

ASM09-160 

ASM09170 

ASM09180 

ASH09190 

ASM09200 
ASM0.921fl 
ASM09220 
ASM09230 
ASM092L40 
ASM09250 

ASM092i>0 
ASM09270 

A S M09280 
ASM09290 

ASM&93G0 
ASM09310 
ASM09320 
ASN4933© 

ASM09340 

ASM09350 



ASM09370 
ASM09380 
ASMQ9390 
ASM09400 
ASM09410 

ASM09420 
A5M09430 



ASM09440 
ASM09450 



INTEHDATA 
0004 
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09E8R 4860 
1686R 

09ECR 48C0 
168ER 



• EDITING THE LINE'S LABEL AND LOCATION. COUNTER 

•"EDITC" PACKS"LOC"i THE LETTER "R» INTO PRINT REC0RD*2 
EOITC LH REG. MODE 



LH 



VALUE, LOC 



•"EDITC1" EXPECTS "VALUE" PRESET TO VALUE OF OPERAND 
• AND "REG" HOLDING REJJOJi. OF QP£RAM)'S VALUE 



PACK LETTER'R', IF REG=1 
RETURN TO DO NEXT LINE IF IN 
CONDITIONAL ASOEMBLY 

REPOSITION RELBIT. IF ANY 
"OR" IT INTO LABEL'S CODE 
<USE"REG"B£FOR PACKPR DOES 
PACK VALUE (LOO 

WAS THERE A LABEL? 

NO t DON'T INSERT ONE 
PACK VALUE OF LABEL 



©9F0R 


D356 EDITC1 LB 


R.RSPACE(REG) 




1502R 






09F4R 


4880 
1688R 


LH 


TEMP.ASSEM 


09F8R 


4330 
OllCR 


BZ 


BOLINE 


09FCR 


D250 
1790R 


STB 


R,PR*6 


0A00R 


CD60 
00C8 


SLHL 


REG, 8 


OA04R 


4660 
1SF0R 


OH 


REG.LS 


OA08R 


4060 

15F0R 


STH 


REG.LS 


OAOCR 


41E0 
0C48R 


BAL 


LINK, PACKPR 


0A10R 


178CR 


DC 


ACPR+2) 


0A12R 


4850 
15F0R 


LH 


R.LS 


©A16R 


031F 


BNMR 


EXIT 


0A18R 


02CO 
15F3R 


ST8 


VALUE, LS*3 


0A1CR 


CCCO 
0008 


SRHL 


VALUE ,8 


0A20R 


D2C0 


STB 


VALUE»LS»1 




15F1R 




- __. 


0A24R 


40FO 
0A2ER 


STH 


EXIT,EDITCX*2 


0A28R 


41 DO 
1004R 


8AL 


RETURN, INSERT 


0A2CR 


4300 EDITCX B 


0000 




0000 







0A30R 40F0 

0A96R 
0A34R 48C0 



SAVE LINKAGE REGISTER 
INSERT IN SYMBOL'S TABLE 



• EDITING THE LINE'S ASSEMBLED OBJECT PRINT (, PUNCH DATA 

•"EDIT" PACKS PRINT RECORD W/CONTENTS Ml FOR PC= 8,9 

• PRINTS THE LINE AND PACKS THE PUNCH BUFFER. 

• FOR PC= A OR B, W2 GETS PACKED FOR PRINTING OF SECONO 

• LINE. ADDITIONALLY, THE LOCATION COUNTER GETS UPDATED. 

EOIT STH EXIT,EDITX*2 
LH VALUE, Wl 



ASM09460 
ASMQ9470 
ASM09480 
A C .M09490 
ASM09S00 

ASM09510 

ASM09S20 
A^M09S30 
ASH09540 
ASM09550 
ASM09560 

ASM09570 

ASM09580 

ASM09590 

ASM09600 

ASM09610 

ASM09620 

ASM09630 

ASM09640 
ASM09650 

ASM09660 
ASM09670 

ASM09680 

ASM09690 

ASM09700 

ASM09710 

ASM09720 

ASM09730 
ASM09740 
ASM097S0 
ASM09760 
ASM09770 
ASM09780 
ASM097 )0 
ASMO'Mi'O 

ASM09810 
ASM09820 
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15DCR 








0A38R 41E© 


BAL 


LINK.PACKPR PACK PRINT RECORD 


ASM09830 


0A3CR 1792R 








DC 


A(PR*8) 


ASM09840 


0A3ER 4850 


LH 


RfPC 


ASM09850 


isacR 




— — ._ 




0A42R C550 


CLHI 


RtX»A» 


ASM09860 


0OOA 








0A46R 4338 


BE 


**IZ .... 


ASM09870 


0A52R 








0A4AR C550 


CLHI 


R.X»8» 


ASM09880 


. 0006 








0A4ER 4230 


BNE 


EOIT1 


ASM09890 


0A6AR 




X- 




QA52R 4lFp 


BA1 


| imk.PRTWT PRINT FIRST 1 TNF WHFN A 


ASM09900 


OCCAR 








0A56R 4850 


LH 


R.LOC SECOND LINE WILL FOLLOW 


ASM09910 


16BER- 








0A5AR 0A52 


AHR 


R.TWO NEVER APPEND "R" OR "F" 


ASM09920 


0A5CR 4050 


STH 


RtLOC BUHP LOC COUNTER BY TWO 


ASM09930 


16BER - 








0A60R 48C0 


LH 


VALUE. W2 GET 2ND LINE INFO 


ASM09940 


15DER 








AA64R 44E* 


BAL - 


LINK.PACKPR 


ASM0995O 


0C48R 




.«*- 




0A68R 1792R 


OC 


A(PR*8) 


ASM09960 


0A6AR 41F0- 


EDIT1 BAL 


-EJUT«*ACK*»fl PACK THE PUNCH BUFFER 


ASM09970 


0AAAR 








0A6ER 4850 


LH 


R»LOC BUMP LOC COUNTER BY TWO 


ASM09980 


1686R- 


— 


. - - . - . - - 




8A72R 0A52 


AHR 


R.TWO 


ASM09990 


0A74R 4050 


STH 


R.LOC 


ASM10000 


16BER 








0A78R 4850 


LH 


R.PC IF PC OOD. PC=9.B 


ASM10010 


158ER 








0A7CR xcaa 


...- SRHL 


-&*i - PACK »R» FOR RELOCATABLE 


ASM10020 


0001 








0A80R 4280 


BC 


PACKR IF PC EVEN.PC=8.A 


ASM10030 


- 0A98R 








0A84R 4860 


LH 


REG. FRF PACK "F" IF FORWARD 


ASM10040 


158AR 








OAflflR H366 


J-B 


REGtESPACF(REG) REEEfiENCfLJLAG. SEJ__ __ . 


ASMiaOSil 


15D0R 




REG. PR* 1^ 




0A8CR 0260 


STORE ST8 


ASM10060 


-IZ96R__. 




- 




0A90R 41E0 


BAL 


LINK. PRINT 


ASM10070 


OCCAR 








-0A94R— 43A0 


EDITX B 


0000 


ASMKIOBO 


0000 






0A98R C860 


PACKR LHI 


REG.C'R' 


ASM10090 


0052 


B 






0A9CR 4300 


STORE 


ASM10100 


0A8CR 






ASMIPUO 
ASM10120 




• PACKING THE 


: LINE'S ASSEMBLED BINARY OBJECT PUNCH DATA 








ASM10130 
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OAAOR 

0AA4R 
0AA6R 

©AAAR 

©AAER 
4AB0R 

0AB4R 
0AB6R 

OABAR 

OABER 
OACOR 

OAC4R 

0AC8R 

OACCR 
OACER 

OA02R 

0AD6P 

OADAR 

OADER 

0AE2R 

0AE6R 

OAEAR 

OAEER 

0AF2R 

0AF6R 
0AF8R 

OAFCR 

OBOOR 

OB04R 
0B06R 

OB OAR 

OBOER 



485F 
OOOO 
0AF2 

4050 

158ER 

1622R 
033F 

4-850 

16P8R 

033F 

4850 

161CR 

4550 

161AR 

023F 

4850 

158ER 

03A5 

157ER 

40A0 

1590R 

087A 

4AA0 

1788R 

C5A0 

OODO 

42«0 

0AE2R 

41E0 

086CR 

4850 

158ER 

4100 

0B1FR 

4510 

158ER 

4230 

0AF2R 

41E0 

OBbCR 

4870 

1590R 

033F 

4860 

15DCR 

41E0 

0B52R 

C570 

0008 

028F 

4860 

15DER 

41E« 

0B52R 

C570 



LH 

AHR 
STH 

PACKPB LH 

BZR 
LH 

BZR 
LH 
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R.OCEXIT) FETCH PUNCH CODE 



EXIT. TWO 
R.PC 

R^OPUNCH- 

EXIT 
R.ASSEM 

EXIT 
R. OP ASS 



CLH R.PASS 



BNER 
LH 

LB 

STH 

LHR 
AH 

CLHI 

BL 

BAL 

LH 

GOPACK BAL 

CLH 

BNE 

BAL 

LH 

BZR 
LH 

BAL 

CLHI 

BLR 

LH 

BAL 
CLHI 



EXIT 
R,PC 

P.CONTRL(R) 

P. ITEMS 

HOLD.P 
P.PBX 

P. 208 

GOPACK 

LINHUPUNCH 

R.PC 

RETURN.PACK4 

ONE. PC 

• ♦8 

LINK, PUNCH 

HOLD. ITEMS 

EXIT 
REG. Hi 

LINK.PACHAF 

HOLD. 8 

EXIT 
REG.W2 

LINJWPACHAF 

HOLD. 12 



BUMP LINKAGE BEYOND DC 
SET PC (PUNCH CODE) 

-EXIT* IE MO -PNCH SELECTED 



RET URN I E_I N-CONDI T IONAL 

ASSEMBLY 

EXIT ALSO IF THIS IS NOT 

THE LAST PASS OF THIS ASSEMBLY, 



FETCH PUNCH CODE 

FETCH NUMBER OF DATA ITEMS 

SAVE NUMBER OF DATA ITEMS 

SAVE NUMBER OF DATA ITEMS 
ADD PUNCH BUFFER INDEX TO 

SEE IF BUFFER HAS ROOM 

YES. GO PACK WHAT IS NECESSARY 

NO. PUNCH THE FILLED BUFFER 

FETCH PC AGAIN 

PACK PC AS CONTROL ITEM 

IF PC = ONE THIS IS END 

PUNCH THE LAST BUFFER 

EXIT IF PC = 0.1. 2. 3. OR E 

PACK A HALFWORD ONLY FOP 

PC=4,5.6.7,8»9 

PACK 2 HALFWORDS ONLY FOR 
PC=A OR B 



ASM10140 

ASM101S0 
4SM10160 

ASM10170 

ASM10180 
ASM10I90 

ASM10200 
ASM10210 

ASM10220 

ASM10230 
ASM10P40 

ASM10250 

ASM10260 

ASM10270 
ASM10280 

ASM10290 

ASM10300 

ASM10310 

ASM10320 

ASM10330 

ASM10340 

ASM10350 

A^M1036n 

ASM10370 

ASM10380 
ASM10390 

ASM10400 

ASM10410 

ASM104Z0 

ASM 10 \ 30 

A<,M10440 
ASM104S0 
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oooc 

•B12R 028F 
' *»14R 4860 
15E0R 
ORlftR 41£o 

OBS2R 
OB1CR 030F 



BLR 
AM- 

BAL 

8R 



EXIT 
-RE«*#3- 



LINK.PACHAF 
EXIT 



PACK 3 MALFWORDS ONLY FOR 
_RCaC*D*--Oll~£- 

PCVC.Dt OR F 



OB1ER 48A0 

17JB8R- 

0B22R 088A 
©B24R 0A81 
6826* UO&9- - 
1788R 
0R2AR CCAO 



• PACKA -fiACK&-I»E RT GHT ■ II ISTJF1ED. ABITS- JFfiOM »R" JNTO 

• THE NEXT AVAILABLE 4BIT POSITION INDICATED BY PBX 
PACK4 LH PtPBX 



0B2ER 

OB32R 

0B36R 

0B3AR 

•B3ER 

0B42R 
0B44R 

0B48R 

OB4CR 

0B50R 

OB52R 

0B56R 
0B58R 

OB5CR 

0B60R 

0B64R 
0B66R 

0B6AR 



4280 

0B36R 
XD50. 

0004 

CCAO 

ftOftl - 

4280 

0B42R 
...CD.50...._ 

0008 

OAAA 

4AA0 

169CR 

465A 

0004 

40SA 

0004 

03CD 



CB90 

0004 

0856 

CC50 

OOOC 

41D0 

0B1ER 

CDbO 

0004 

0891 

4230 

0B56R 

030E 



LHR TEMPtP 

AHR TEMP .ONE 

ST H TEM PfPB X 

SRHL P.l 



PBX=INDEX INTO 208 4BITS 
UPDATE PBX BY ONE 



IS PBX EVEN OR ODD 



BC 



PACK1 



PACK1 



SRHL P.l 



IF ODD. LEAVE RIGHTJUSTlFIED 
UEEI JIISTIFY-MXIHJJjLBYTE 
DOES PBX=LEFT OR RIGHT BYTE 



PACK2 



BC 


PACK2 


SLHL 


. Rj8_ ... 


AHR 
AW 


P.P 

P »PBSMCH 


OH 


R.4(P) 


STH 


R.4JP) 


88 


RETURN 



LEAVE 4BITS RIGHTJUSTlFIED 
LE£1 JUSTIFY JUTJHIM HAFMRD 



DOUBLE TO GET HALFWORD ADRS 
PBSWCMsPfll OR PB2 

COPY 4BITS INTO 

PUNCH BUFFER 



• PACK PUNCH BUFFER WITH THE HALFWORO IN "REG" 
PACHAF UU COUNT.4 



LOOPP LHR R.REG 
SRHL -R+12 



BAL RETURN, PACK4 



FETCH HALFWORD TO PACK 
-ISOLATE LEF-TMOSI ABITS 

PACK 4BITS 



SLHL REG.4 

SHR COUNTiQNE 
BNZ LOOPP 



BR 



LIAIK 



REPOSTION NEXT 4BITS 

DONE? NO. LOOP 
YES*EXII- 



• FINAL CHECK SUM ON ACCUMULATED BINARY OBJECT DATA 

• AND OUTP UT OF ONE OBJECT RECORD ( D OUBL E BUFFEREO) 



ASM10460 
ASM;UX47* 

ASM10480 

ASM10490 

ASM10500 

ASM1Q5UL 

ASM10520 

ASM10530 



ASM10540 
ASM10550 
ASH10S6O- 

ASM10570 



• COMPUTE CHECKSUM, PUNCH A RECORD, CLEAR BUFFER. 4SET SEQ. 



ASM10580 

AS*tLQS90_- 

ASM10600 

ASMI0610 

ASM10620 

ASM10630 
ASM10640 

ASM10650 

ASM10660 

ASM1067O 
ASM10680 
ASM10690 
A SMI 0700 

ASM10710 
ASMiai2XL- 

ASM10730 

ASM10740 

ASM1075Q 
ASM10760 

ASM1077Q 
ASM10780 
ASMI0790 
ASM1080Q 
ASM! 0810 
ASM10820 



INTEKDATA 



0B6CR 

0B70R 

0B74R 
0876R 
0B78R 

0B7CR 

0B80R 

0B84R 

0HB8R 

0R8CR 

0B90R 

0B94R 

0B98R 

0B9CR 

OBAOR 

OBA4R 
OBA6R 
0BA8R 

VWCR 

OBBOR 

08B4R 

0BB8R 

OBBCR 
OBBER 



C880 

FFFF 

48A0 

169CR 

08SA 

0862 

C875 

0066 

4785 

0000 

4785 

0004 

C150 

0B80R 

40 8A 

0002 

4880 

169ER 

C858 

006C 

4050 

0RA6R 

4850 

1684R 

4330 

0BA8R 

41D0 

OOOiSR 

18D4R 

0000 

4010 

1684R 

fUA 

006C 

40A0 

169ER 

4080 

169CR 

485A 

0000 

0B51 

4058 

0000 



0BC2R 4100 

OOBAR 
0BC6P 030F 
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LHR 
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TEMP»-1 

P.PBSMCH 

R.P 

R*1»TW0 

R*2»102(R) 



XH TEMP. OCR) 

CHKSUM XH TEMP.4(R) 

BXLE RtCHKSUM 

STH TEMP. 2 IP > 

LH TEMP.PBSWCH*2 

LHI R.108(TEMPI 

STH R.BLKADR 

LH R.PSTART 

BZ SETP 

BAL RETURN. IDWAIT 



BLKADR 
SETP 



DC 
DC 
STH 

SVC 

STH 

STH 

LH 

SHR 
STH 



P8WAIT 

00000 

ONE.PSTART 

l-^1484P> 

P»PBSWCH*2 

TEMP.PBSWCH 

R.OJP) 

R.ONE 
R.O(TEMP) 



START CHKSUM WITH -1 

FETCH FILLED BUFFER ADSS 

SETUP BXLE LIMITS TO 
CHECKSUM ALL DATA EXCEPT 
SEQNUM. 

XH WITH SEQNUM. 

CHECK SUM FILLFD BUFFER. 

STORE CHECKSUM. 

FETCH NEXT BUFFER'S AORS 



1ST TIME THRU EACH PASS 
PSTART=O.SKIP I/O CHECK 
CHECK STATUS ON LAST I/O 

REISUE P81/PB2 ♦ 108 
SET PSTART NON-ZERO 

ISSUE BOSS SVC TO PUNCH 

REVERSE PUNCH BUFFERS 

STATUS 

FETCH OLD SEQNUM 

DECREMENT RECORD SEQNUM 
NEWSEQ=OLOSEO-1 



• ZERO NEXT PUNCH BUFFER EXCEPT FOR PB SEQNUM AND PBX 
BAL RETURN, ZEROPS 



oaaoaatnumvaaa 



0BC8R D37A 
0000 



BR LINK 

• UTILITY ROUTINE - UNPACK 

•"UNPACK" UNPACKS THE SYMBOL AT »P" SUCH THAT 

• HOLD = RIGHT HALF OF CODE 

• REG = LEFT HALF OF CODE 

« VALUE = VI ANO V2.F0R INSTRUCT I QWS=QP CODEWLXTENSIQN 
UNPACK LB HOLDtO(P) FETCH SYMBOL'S CODE BYTE 



ASM10830 

ASM10840 

ASM10850 
ASM10860 
ASM10870 

ASM10880 

ASM10890 

ASM10900 

ASM10910 

A^Ml 0920 

ASM10930 

ASM10940 

ASM109SO 

A5M10960 

ASM10970 

ASM10980 
ASM10990 
ASM11000 

4SM11010 

ASM11020 

ASM11030 

ASM1 1040 

■\SM1 1050 
A5M11060 

ASM11070 
ASM1 1080 

ASM1 1090 
ASM1U00 
ASM11H0 
ASM1H20 
ASMlil'iO 
AS'-' 1 i j ,>0 
A^Ml i ibO 
A5MH160 
ASM11170 



INTEROATA 


OBCCR 


0867 


OBCER 


C470 




OOOF 


0BO2R 


C4h0 




OOFO 


0806R 


CC60 




0004 


OBDAR 


48CA 




0004 


OBDER 


coco 




0008 


-0BE2fi-.-Aa.aA--.. 




0002 


OBE6R 


928C 


OBE8R 


010F 
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LHR 
NHI 



REG t HOLD 
HOLDtX»0r» 



NHI REG,X«F0« 

SRMV R€G*4 

LH VALUE. 0<P> 



SLHL VALUE. 8 

-LH TFMP.?IPI 



SAVE IT IN SECOND PLACE 
ISOLATE RIGHT HALF OF CODE 

ISOLATE LEFT HALF OF COOE 



FETCH VI 

LEFT JUSTIFY VI 

FFTCH V2 



STBR TEMP. VALUE 
-flfi LINK 



PACK V2 WITH VI 
EXIT 



•BEAR 

4BEEA 

0BF2R 

0BF6R 

OBFAR 

OBFER 

0C02R 
•C04R 

0C08R 

-OCOCR 
•COER 

^C12R- 
0C14R 

-0C18R 

•C1CR 
0C1ER 
0C20R 

0C24R 

0C28R 



C880 
2020 
40B5 
0000 

4085 
0002 
4085 
0004 
D3BA 
0002 
0285 

4x00a 

0875 

C89A 

11004.. 

4889 

0000 

H2LEL 

D389 

0000 

-OflBB 

4330 

0C28R 

0285 

0001 

0A51 

0A91 

C59A 

0009 

4280 

0C08R 

0A91 



• UTILITY ROUTINE 
nn m»t«nt»«n »i 



PACSYM 



>»»»»»*»»«»»»»»•*»»*•** » »n«««l«i ft ft • HJU tSAMJtSJt ft • 

• PACSYM PACKS THE 6 CHARACTER SYMBOL IN "SYMBOL TABLE 

• FORMAT" INTO THE 6 CONSECUTIVE BYTES AT (R) AND 

• F ILLS E MPTY P OSlilONS-WlJR ASCII SPACES 

• THIS ROUTINE IS CALLED ON TO PACK A SYMBOL INTO 

• EITHER W1.W2.W3 FOR TAPE OUTPUT OR PR FOR PRINTING 

*M***MAM* MMMmmMMMMM&JUU*MaMM*MJk ». mjkaJkA*MJU kAAMmmmMMJUkM*Am*. - 

PACSYM LHI TEMP.X«2020» 

SJH TEMP. OtPl 

STH TEMP.2(R) 
STH TEMP.4(R) 



-FI1X JL2 BXTES W/SPACES 



STB TEMP.OCR) 



INTO 

1ST BYTE OF Wl OR PR*2 



LHR 
LHI 



HOLD.R 
C0UNT»4(P> 



LOOPAC LH 



TEMP.O(COUNT) 



-HMR LINK 

LB TEMP. 01 COUNT) 

4-HR TEMP. TEMP 



ALIGN 



BZ 

STfl- 

AHR 
-AHR- 

CLHI COUNT. 9(P) 

BL LOOPAC 

AHR COUNT .ONE 



ALIGN 

TEMPj4.1RJ- 

R.ONE 
COUNT* ONE 



ASM11180 
ASM11190 




ASM11270 
ASM11280 
ASM1L290 
ASM11300 
ASM11310 
ASM11320 
ASM11330 
ASM11340 
ASM11350 
ASM11360 

ASM11370 

ASM11380 

ASM11390 

ASM 11 400 

ASMll^lO 

ASM11420 
ASM11430 



ASM11440 

ASM114SJ1 
ASM11460 



ASM11480 

ASM1143a 

ASM11500 
ASMUSX0-- 

ASM11520 

ASM11530 
ASMU540 
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0C2CR 


C5B0 
OO^O 


CHKEND 


CLHI 


CHAR,X»20» 


0C30P 


433E 
0004 




BE 


4CLINK) 


0C34R 


C5b0 
0000 


CHKCR 


CLHI 


CHAR,X»OD» 


0C38R 


433E 
0004 




BE 


4U.INK) 


0C3CR 


C5B0 
OOOA 




CLHI 


CHAR.X'OA' 


0C40R 


023E 




BNER 


LINK 


0C42R 


01F3 




BALR 


EXIT.GET 


0C44R 


4300 

0C3<*R 




8 


CHKCR 



0C48R 

0C4CR 

0C50R 
0C52R 

0C56R 

0C5AR 

0C5ER 

0C62R 

0C66R 

0C6AR 

0C6EP 
0C70R 

0C74R 

0C78R 



C890 

OOOC 

485E 

0000 

086C 

CC69 

0000 

C460 

OOOF 

CA60 

0030 

C560 

003A 

4280 

OCfeAR 

CA60 

0007 

0265 

0000 

0A51 

C890 

0004 

4380 

0C50R 

430E 

0002 



0C7CR 4850 

189CR 

0C80R 9365 

0C82R 0A61 

0C84P C560 

003A 



CHKEND RETURNS TO 1ST 
INSTRUCTION FOLLOWING 
CALLING SEQUENCE FOR 
ERROR FLAGGING IF CHAR 

NOT A PROPER END OF 

SPACE. CARRIAGE RETURNt 
OR LINEFEED AND CARRIAGE 
RETURN. 



• UTILITY ROUTINE - PACKPR. _ 

. "PACKPR" CONVERTS THE 4 HEX DIGITS IN VALUE TO ASCII 

• AND PACKS THEM IN THE 4 BYTES AT POINTER "R» 



PACKPR 



LHI 

LH 



COUNT, 12 
R.Q(LINK) 



REPEAT LHR REGtVALUE 

SRHL REGfO (COUNT) 



SETUP SHIFT COUNT TODO 4 

SETUP POINTER INTO PR 

OBTAIN HEX DIGITS 
POSITION DIGITS IN LSD 

ISULATE SINGLE DIGIT 

CONVERT TO ASCII NUMERIC 

IF ALPHAt ADO 7 

PACK 7BIT JVSCII IN BYTE 

UPDATE BYTE ADDRESS 
DONE? 

NO. DO AGAIN 



« UTILITY ROUTINE - PAGING 



NHI 


REG.X'F* 


AHI 


REG. C'Ot 


CLHI 


Ree*C«9«^4 


BL 


• ♦8 


AHI 


REG. 7 


STB 


REG.OIR) 


AHR 


R.ONE 


SHI 


COUNT .4 


BNL 


REPEAT 


B 


2 (LINK) 



PAGING LH 



R.PAGE 



INCREMENT PAGE NUMBER 



LRR REG.R 
AHR REG^ONE 
CLHI REG.X«3A» 



ASM1 1S50 
ASM1156C 
ASM11570 

ASM1 1-iHO 

ASM11S90 

ASM11600 

ASMllhlO 

4SMllh20 
ASMlliS30 
ASM11640 

ftSMl lhbO 
ASMllf)60 
ASMl 1^.70 
A5M11680 
ASM11690 
ASM1 1 700 

ASM11/10 

ASM11720 
ASM11 730 

ASM1 1 '40 

ASM 11 750 

4SM11760 

ASMH ,'70 

ASM11780 

ASM11790 

ASMUmOO 
ASM11H10 

ASM11820 

ASM1U30 

ASMllb40 
ASMUH50 
ASM1 1K60 
ASM}. JH70 

ASH1 > HBO 
A SMI It', 90 
ASM11900 
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0C88R 4260 
0CB8R 
- O C SCR -CASO 

0100 
0C90R C650 

. 10AO 

0C94R C450 

FFFO 
0C9BR C550 

3A30 
0C9CR 4280 

4CB2R 
OCAOR D360 

189BR 
©CA4R 0A61 
0CA6R C660 

0010 
OCAAR 0260 

189BR 
•CAER C8S0 

3030 
0CB2R 4050 

189CR 
QCB6R &309 
0CB8R 0260 

1890R 
.JlCflCB-Jll3.ft2.._ 



OCBER 41E0 

0C2CR 
OCC2R-02IO- 

156CR 
0CC6R C8E0 
«UCR 



^BL 
- c * A HI - 
<-OHI 



OKPAGE 



R.XtlOOOi 



rNHI R.X'FFFO* 
X .XUU-..JUXL3A3UU- 

^BL SETPAG 
■y LB REG, P AGE- 1 



5.-AHB REG, ONE 

y OHI REG.X'OOIO* 

.*-SIB. REG. PAGE- 1 

^LHI R,Xt3030« 

SETPAG STH R.PAGE 



-InO-DIGIT 

NEEDED TO SUPPRESSED 

LAST RAGE MAS 99 

GET HUNDREDTHS POSITION 

FORCE ASCII 21 TO ASCII 31 
XIRST TIME THRU AEZEfi-J>6.99- 
RESTART PAGING AT XOO 
STORE TENS AND UNITS DIGITS 



-a-.._BR- 



COUNT 



OKPAGE STB 

y BR _ 



REG,PAGE*1 
.£QUH1 



• • FINAL ERROR EDITING PRIOR LINE'S OBJECT LISTING 
»tt.tttt«nt..ttttttt«t««.tt« m.MJn mnnt»t «t»tt»«tn«ii. 

ENDCHK BAL LINK.CHKENO PRINTF IF NOT PROPR END 



PRXWIF STfl ONS.ERRORF 



PRINTR LHI LINK.DOLINE 



OCCAR 

OCCER 
OCDOR 

0CD4R 
0C06R 

OCDAR 

6CDER 

0CE2R 
0CE4R 

0CE8R 



4850 
1688R 
033E 
4850 
1620R 
033E 
D350 
179AR 
4050 
1654R 
D350 
156XR 
0855 
4230 
JLQACR 
0350 
178BR 



• A STRAIGHT BRANCH TO PRINTR SENDS PROGRAM CONTROL TO 

• PROCESS THE NEXT SOURCE STATEMENT AFTER PRINTING. 

• IN S TE AO OF A » BAL "TO PRINT A LIN E. - _ 



PRINT 



R.ASSEM 

-LINK. 

R.OPRINT 

LINK 

R.SR 

—SIM R*SVCHRJ 

LB R* ERRORS 



LH 

BZR 
LH 

B2R 

LB 



RETURN TO DO NEXT LINE IF 

m CQNDIXIQNAL ASSEMBLY 
WAS "NOPRNT" OPTION OPTED? 

-JCES-* -REHIRR WITHOiil. PAINTING 
GET SOURCE'S FIRST CHAR 

SAVF TT FOB I T*T ROUTINE 

IF SYMBOL TABLE OVERFLOWED 



LHR 
BNZ 



R.R 
PRNTER 



PRINT LINE WITH»S" ERROR 
UNLESS"NOPRINT"WAS OPTED. 



ASM11910 

ASM4I-924- 

ASMU930 

ASM11940 

ASM 11 950 

ASM11960 

ASMU970 

ASM119AXX 
ASM11990 

ASM 12 004- 

ASM12010 

ASM12020 

ASHL2034) 
ASM12040 

ASM1205jCL 
ASM12060 
ASM12070 
ASM12Oa0 
ASM12090 

ASMI2I0© 

ASM12110 

ASM12120 
ASM12130 
A SM1 2 14Q 
ASM12150 

ASM12I60 
ASM12161 

ASM12162 
ASM12163 

ASM12164-. 

ASM12170 



LB 



R,PR*1 



WAS THERE A SEQNUM ERROR 



ASM12180 
ASM12190 

AS Mill 200 
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OCECR 


C550 
0023 




CLHI 


R,X»23» 


OCFOR 


4330 

ODACR 




BE 


J>HN1ER 


0CF4R 


0788 




XHR 


TEMP»TEMP 


0CF6R 


C8F0 
0D12R 




LHI 


EXIT.PRIJASS 


OCFAR 


4510 
161AR 


PRNTCK 


CLH 


ONEtPASS 


OCFEP 


4?30 
ODOAR 




BNE 


CHKTWO 


0D02R 


4510 
161CR 




CLH 


ONE. QP ASS 


OD06R 


033F 




BER 


EXIT 


0D08R 


030E 




BR 


LINK 


ODOAR 


4520 

161AR 


CHKTWO 


CLH 


TWO. PASS 


OOOER 


023E 




BNEK 


LINK 


0O10R 


030F 




BR 


EXIT 


0012R 


C5E0 
0518R 


^PRPASS 


CLHI 


LINK.EJECT*4 


0016R 


4230 
ODIER 




BNE 


• ♦8 


OOIAR 


400 

168AR 


*' 


STH 


ZERO.LCOUNI 


ODIER 


4850 
168AR 


/ CHKLCT 


LH 


RtLCOUNT 


0D22R 


4230 

0D56R 




' BNZ 


CHKERR 


0026R 


4850 
1682R 


i 


LH 


R.LSTART 


0D2AR 


4330 

0D3AR 


< 


BZ 


TITLED 


OD2ER 


4000 

1C82R 




STH 


ZERO.LSTART 


0D32R 


41D0 
00D6R 




SAL 


RETURN, IOWA IT 


0D36R 


18D2R 


'. 


DC 


PRWAIT 


003AR 


18CAR 


•i ' 


OC """*' 


RETURNtlOWAIT 


0D3AR 


41l>0 


v TITLFD 


BAL 




00O6R 








0O3ER 


18ACR 


"- 


DC 


TR8LK 


0040R 


18ACR 




DC 


TRBLK 


0D42R 


4020 

16 8AR 




STH 


TWO.LCOUNT 


OD46R 


4190 
0C7CR 


V 


BAL 


COUNT, PAGING 


004AR 


0888 




LHR 


T£MP,TE-MP 


OD4CR 


4230 

0D56R 


'< 


BNZ 


CHKERR 


0D50R 


C5E0 
0518R 




CLHI 


L INK, EJECT *4 


0OB4P 


033E 




BER 


LINK 


0056R 


C89C 
FFF2 


CHKERR 


LWI 


COUNT, -14- 


005AR 


0788 




XHR 


TEMP, TEMP 



YES, IF 1ST CHAR IS NUMBER SIGN 

.PRINT UNI,ESS"NOPRNT"QPT£D. 

FLAG=NO TITLE ERROR. 

PRNTCK EXIT FOR PRINT PASSES 

PRINT OR NON-PRINT PASS? 



PRINT IF 1ST PASS OF PASS! 
EXIT, 1ST PASS OF PASS2 0R3 



EXIT, 3RD PASS OF PASS3 
GO TO PRPASS/STDUMP*8 
DID TITLE ROUTINE CALL? 

IF SO, PRPASS&NO ERRORS, SET 



IF ZERO, TOF, PAGE AND TITLE. 

LINE AWAITING OUTPUT 

IF LSTART NON-ZERO, 

I/O (. PROCEED NEEDS CHECKING 

RESET LSTART=0 

CHECK LAST LINE EACH PAGE 

WAIT FOR LIST DEVICE 
REISSUE LAST LINE/IF TROUBLE 
WAITS, CHECK ON STATUS 

WRITE TOF.HEADER i. SKIP LINE 
REISSUE I/O WAIT IF TROUBLE 
SET LINE COUNTER=TWO 



BUMP PAGE NO. BY 1 

WAS T+4IS A.-T4T4E LINE - ERR O R ? 
YES, LIST SOURCE TITLE, ALSO 

DID TITLE ROUTINE CALL PRINT 

IF SO GO BACK TO DOLINE 

FLAG=0000 FOR NO ERRORS ON LINE 



ASM J 22 10 

ASM12220 

ASM1?230 
ASM12240 

ASM12250 

ASMl??f>0 

ASM12270 

ASM12280 
ASM12290 

<\SM1?300 

ASM12310 
ASM12320 
ASM12330 

ftSM12340 

ASM12350 

ASM12360 

ASM12370 

ASM12380 

ASM12390 

ASM12400 

ASMU410 

ASM12420 
ASM12430 

ASM12440 

ASM12480 
ASM12490 
ASM12500 

ASM12510 

ASM12520 
ASM12530 

ASMt?S<+0 

ASM12S50 
ASM12560 

ASM12570 
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0D5CR 4859 
156ER 



0062R C450 

0100 
4©6£R 4030— 

0D74R 
0D6AR 0881 
A06CR 026Q-- 

178AR 
0070R D209 

15&£R- 

0074R 0A92 
0D76R 4320 

005CR 
0D7AR 4A80 

1912R 
6D7ER AQM 

1912R 
0082R 4150 

— 0OCAR- 
0D86R C890 

OOOE 

015ER 
008ER C850 

ooon 

0D92R D250 

1799R 
0096R 030E 
0098R 0788 
009AR 4850 

4624ft 
0D9ER 033E 
ODAOR 0350 

JU79AR 
00A4R 4050 

1654R 
ODAflR 4300 

0D1ER 
ODACR C5E0 

ilSlSR 

ODBOR 4230 

ODBER 
0DB4R C8B0 

002A 
0DB8R 4080 

1654R 
OOBCR 0881 
ODBER 08DE 
ODCOR 41E0 

0CF6R 
0DC4R 08ED 
0DC6R 4300 

001ER 



AGAIN LH R, ERRORS (COUNT) FETCH LOWEST PRIORITY ERR 
-LrSR RE-G+R SEPARATE Ft. AG FRO M LETTER 



NHI 
*2- 



R,X'0100» 
N O F LG 



- THI S FL AG -N OT SET - 



LHR TEMPtONE INDICATES AT LEAST ONE ERROR. 
SIS REG* PR PACK-P-R KITH ERROR -LEXTEfl— - - 

STB ZEROtERRORS (COUNT) CLEAR FLAGS THAT WERE SET. 



NOFLG 



AHR 
BNP 



COUNT. TWO GO CHECK ERROR OF HIGHER 
AGAIN PRIORITY* UNLESS DONE. 



AH TEMP.ERRCNT 
aT.H TEMP.ERRCNT 



ADD CUMULATIVE COUNT TO 1/0 
UPDATE TOTAL- -ERRORS- IHIS-PASS 



BAL RtLIST 



PRINT ONE LINE 



LHI COUNT. 14 IN CASE THIS STATEMENT HAS 
-BAL EX IT .BL KO U T SUCFSSIVF LINES GENERATED - 



LHI 

STB 

8ft 
CHKOPT XHR 
LH 

8ZR 

LB 

STH 

— -— B_ 



R.X'OD* 

R.SR-1 

LINK 

TEMP, TEMP 
R.OPRINT 



BLANK OUT 14 BYTES AND 
PACK TERMINAL OR 



NOT ERROR IN TITLE LINE. 
ONLY ON "NOPRNT" OPTION 



LINK 
R.SR 



RETURN WITHOUT PRINTING 
GET SOURCE'S FIRST CHAR 



R.SVCHR1 
CHKLCT 



SAVE IT FOR LIST ROUTINE 
GO CHECK -LXNE-CQUNI«£HU_ 



PRNTER CLHI LINK,EJECT*4 

-r BNE 



WHEN LINE IN ERROR WAS TITLE 



....:< XHI.. 

* STH 

* *LMR 
PRNTR1 LHR 



PRNTR1 
IEMP.C±*J_ 



LHR 
B„ 



TEMP.SVCHR1 

TEMP, ONE 
RETURN, LINK 
LINK.PRNTXK-A 



LINK. RETURN 
CHKLCL 



DON'T ZERO LINECOUNT AND 

S£IJ>IQ__IAaaiNG SIGNAL- ANDL 

SAVE IT FOR LIST ROUTINF 

SET FLAG TO REPRINT SOURCE 
SAVE LINK FOR JOINING LOGIC 
USE LINK TQ COME BACK 

HERE, ON NON-PRINTING PASSES. 



ASM12580 

A SM12590 
ASM12600 



ASM12620 
ASM! 2630 - 

ASM12640 

ASM12650 
ASM12660 

ASM12670 

ASML26BQ- 

ASM12690 

ASM12700 

ASM 1 2 7 10- 

ASM12720 

<VSM12730 

ASM12740 
ASM12750 
ASM12760 

ASM12770 
ASM12771 

ASM12772 

ASM12780 

ASM12790 



ASM12800 

ASM12801 

ASM12802 

ASM12810 
ASM12820 
ASM 12830 

ASM12840 
ASMl2&5iL 

ASM12860 
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• LIST ROUTINE TABULATES FREE FORMATTED SOURCE 



0004 
0005 
4006 
0007 
0008 
4009 
000A 
OOOB 
OOOC 
OOOD 
OOOE 
MOF 
OOCAR 

ODCER 

0D02R 

0DD6R 

ODDAR 
OOOCR 
OOOER 

00E2R 

•0E6R 

OOEAR 
•OECR 
ODEER 

0DF2R 
0DF4R 

OGFSR 
ODFAR 

OOFER 
OEOOR 
0E02R 

0E06P 

OEOAR 
OEOCR 

0E10R 

0F14R 

0E18R 
0E1AR 



D040 

15FAR 

4850 

1662R 

4330 

ODDER 

41 DO 

00D6R 

18D2R 

18CAR 

4010 

1682R 

Ol^O 

D370 

179AR 

01F3 

OSBC 

4330 

OEAER 

05U9 

4230 

OEOOR 

oeoo 

4230 

0E06R 

0761 

05BA 

4330 

0E18R 

D2B5 

OOPO 

0AS1 

C550 

18^4R 

4380 

0FA2R 

4 3(0 
ODEAR 
0866 
4230 



• REOEFJUiE RE6ISTFRS -FOR- LIST ROUTINE 



SRX EQU 
PRX EQU 
APS F LG EQU 



C0L1 

TEMP 

APS 

SPC 

CHAR 

CARTN 

COMNT 

POS 

EXIT 

LIST 



SETL 



NEWCHR 



CHKSPC 

MOVCHR 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
STM 

LH 

BZ 

BAL 

DC 
DC 
STH 

LM 

LB 



LHR 

BN2 

XHR 

CLHR 

BE 



SRX 

R 

REG- 



HOLD 

TEMP 

COUNT 

P 

CHAR 

VALUE 

RETURN 

LINK 

EXIT 

4.SAVREG 



4 

5 

-6- 



R.t .START — 

SETL 

RETURN, IOWAIT 

PRMAIT 

PR2BUO 

ONEtLSTART 

4.LM0ATA 

C0L1.SR 



BALR EXIT. GET 
CLHR CHAR-.CARTN 
BE EOLCHR 



CLHR CHAR » APS"" 
BNE CHKSPC 



,.,, ("*■>" 



7 

8 

9 

10 

11 

12 

13 

14 

15 



1ST TIME JHR1L.XACH PASS- 

LSTART=0»SKIP I/O CHECK 

CHECK PRIOR I/O PROCEED 

WAIT L CHECK LAST I/O PROCEED 
REISSUE ON BAD STATUS 
SET LSTART NON-ZERO 

INITIALIZE GEN REGS 

GET LINE'S 1ST CHAR 

START WITH PR'S 1ST CHAR 
IF CARRIAGE RETURN 
THIS IS END OF LINE 



COMWUCOMNT 
MOVCHR 

APSFLG .ONE 

CHAR.SPC 

SPACE 



HAS THE CO H EN T STARTED 
DON'T SET APS FLAG 

-REVERSE APSFLAG 
CHECK ON TABULATION NEEDS 
IF AT A SPACE. 



STB CHAR.O(PRX) 



SPACE 



AHR PRX. ONE m 

*CLHI PRX.PR2*8B 

*BNL POSSEQ 

B NEWCHR 

LHR APSFLG, APSFLG 

BNZ MOVCHR 



MOVE CHAR INTO I/O BUFFER 
INCREMENT INDEX .INJ0 ; .P4W~-, 



GO POSITION SEQNUM 

OTHERWISE CONTINUF 

PRINT AS IS. IF CHAR=SPACE 
AND ITS WITHIN APOSTROPHE'S 



ASM12870 
ASM12880 
ASM12890 
A5M12900 
ASM12910 
ASM12920 
ASM12930 
ASM12940 
ASM12950 
ASM12960 
ASM12970 
ASM12980 
A«;M12990 
ASM13000 
ASM13010 
ftSM13020 

ASM13030 

ASM13040 

ASM13050 

ASM13060 
ASM13070 
ASM13080 

ASMl 3090 

ASM13100 

ASM13110 
ASM13120 
A^Ml 3130 

ASM13140 
ASM13150 

ASM13160 
4SM13170 

ASM13180 
ASM13190 
ASM13200 

ASM13210 

ASM13220 
ASM13230 

A^Ml .12^0 

ASMi VSH 

ASM13260 
ASM13270 
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0E1ER 
*€?OR 
0E22R 
0E24R 

0E28R 
0E2AR 

0E2ER 

AE02R 

0E36R 

0E3AR 

4E3ER- 

0E42R 
ft£44 R 

0E48R 

0E4CR 
0E4ER 

0E52R 

QE 56R 
0E58R 

0E5CR 

0E60R 

0E64R 
0E66R 

0E6AR 



0E06R 

0884 

«|F3 

05BA 

4330 

0££OR 

05 B C 

4330 

OEAER 

C550 

17FCR 

4284- ..... 

0E76R 

C570 

442A 

4330 
0E76R 
£££* 
1804R 
0S5E 
-4284 _ 

0E80R 
C8E0 

la^Afi 

055E 
4280 

OXftOR. 

C8E0 
181AR 

-0S5E- 

4280 

0E7ER 

CS40- - 

17E2R 

4380 

0E94R 

08DD 

4230 

0E76R 

08D1 



LHR TEMP.SRX 
SCAfiSR -BM.R— -C-X4T*6H- — 
CLHR CHAR.SPC 
HE SCANSP 

CLHR CHARtCARTN 
BE tOLCHR 



CLHI 
-W 



PRX.PR2M6 



NOTAB 



SAVE POINTER IN CASE NOTAB 
4JCT-n£*T~CHAR^FT£R SpACt 
SCAN OVER SPACES/BUMPING SRX 



END OF LINE IF 
CARRIAGE RETURN. 

DON'T TABULATE 1ST 16 BYTES 



CLHI C0L1.C«»« 



DON'T TABULATE COMMENT LINES 



BE 



NOTAB 



-tW PQS.24+RR2 

CLHR PRX.POS 
—BL- TAB 



tUON-EIELO 



TO COLUMN 25 



LHI 



POS.30*PR2 



TABULATE OPERAND FIELO 



CLHR PRX.POS 
8L TAB 



TO COLUMN 31 



LHI P0S»46*PR2 
XLHfi — PRX.POS 



TABULATE COMMENT FIELO 
TO COLUMN 47 




SEOM UH. YET 



if-* is 



a 



LHR 
BNZ 



COMNTtCOMNT 
NOTAB 



YES. SPACE OVER TO SEQNUM 



IF THIS SPACE WITHIN COMMENT 
DON'T TAB. SEND SPACE AS IS 



LHR COMNT, ONE 



SET COMNT FLAG STARTED 



0E6CR D2A5 
0000 
0£20R. 0A51_ 
0E72R 4300 

0E06R 
0E76R 0848 
0E78R 08BA 
0E7AR 4300 
flEBCR 

0E7ER 0801 

0E80R Q2A5 

0000 

0E84R 0A51 



• SEND ONE SPACE ANO THEN SEND 1ST CHAR OF COMMENT 
» OELET£-L£A O I NG S P A C ES OF COMMFNT BJLiilQT RESETINO SRX 
STB SPC.O(PRX) 

-AHR PRX.QNE 



B 



MOVCHR 



N OTA B LHfi. SfiX*X£MP_ 



LHR 
B 



CHAR.SPC 
CHKSjRX 



• SEND SPACES UNTIL AT NEXT COLUMN 

LHR COMNT. ONE SET 
JAB... .„ SIB SPCiO_iPBiLl 

AHR PRX.ONE 



COMMENT FLAG 



f7 v I 



{< 



ASM13280 
A SMI 3294 

ASM13300 
ASM13310 

ASM13320 
ASM13330 

ASM13340 

ASM433SO- 

ASM13360 



ASM13370 

AS M1 33a q . 

ASM13390 
ASM134flfl_ 

ASM13410 



ASM13420 
ASM13430 



ASM13440 

ASM! 3 45 
ASM13460 

ASM 1 34 7 

ASM13480 

ASM13490 
ASM13500 

ASM13510 
ASM13520 
ASMI3530 
ASM13540 

ASM13560 

ASM1357JL- 

ASM13580 

ASM13590 



ASM13600 
ASM13610 
ASM1362JL. 

A5M13630 
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0E86R 055E 
0E88R 4280 

0E80R 
0F8CR C540 

17E2R 
0E90R 4260 

0E06R 
0E94R D2A5 

0000 
0E98R 0A5J 
0E9AR C550 

1844R 
0E9ER 4280 

0E94R 
0EA2R 01 CO 

17E2R 
0EA6R DOCO 

1B44R 
OEAAR CA50 

0008 
OEAER CSCO 

OOOD 
0EB2R D2C5 

0000 
0EB6R El 10 

UjCAR 
OEBAR 4880 

16BAR 
OEBER 0A81 
OECOR C580 

003A 
0EC4R 4280 

OECAR 



CLHR 
BL 



PRX»POS 
TAB 



•CHKSRX CLHI SRX,PR*d8 

* BL MOVCHR 
*TAB2 STB SPC.O(PRX) 



* AHR 

* CLHI 

4 BL 
" POSSEQ LM 

* STM 
*AHI 

EQLCHR LHI 

STB 

SVC 

j LH 

v AHR 
* CLHI 

Y BL 



PRX.ONE * 
PRX.PR2*88 

TAB2 

X2*J>Rtflfl 

12,PR2*£8 

PRX.8 

CARTN»X»0O» 

CARTN.O(PRX) 

1.PR2BLK 

TEMP»LCOUNT 

TEMP. ONE 
TEMP #58 

• ♦6 



REACHEO SEQUENCE NUMBER 

NO. MOVE CHARACTER 

SPACE PRINTING OVER TO SEQNUM 

OUTPUT SPACES TO SEQNUM 
JiOVE SEQUENCE- NUMBER 



STORE- CARRIAGE RETURN 



PRINT ONE LINE fc PROCEED 



BUMP LINE COUNT 



4EC8R -0788 
OECAR 4080 

168AR 
OECER 0140- « LM 

15FAR 
0E02R 030S 



• ZEROING LCOUNT =FLAG TO EJECT PAGE AND TITLE 

• ON THE NEXT CALL ON PRINT OR CHKOPT ROUTINES 
< XHR TEMP , TEMP -- -CLE AR -LINE -COUNT 

V STH TEMP. LCOUNT 



LM 



4+SAVRE6 



RESTORE AS SEM B L ER REGISTEBS 



9R R 

• MAXIMUM RELOCATABLE LOCATION COUNTER RECORD KEEPING 

• LOAD PROGRAM AOORESS UPDATE FOR DISCONTINUOUS LOCATIONS 

GET CURRENT LOCATION 

6ET CURRENT-MODE - 

IE ABS, SKIP UPDATING MAX 
CURRENT LOC GREATER THAN 
LAST RECOROEO MAXLOC ASSEM 
UPDATE MAX 



0ED4R 4860 


MAXLIM LH 


REG. LOC 


168ER 






«ED8R 4450 


LH 


R^MODE 


1686R 






OEDCR 4330 


BZ 


Ml 


OEECR 






OEEOR 4560 


CLH 


REG. MAXLOC 


1690R 






0EE4R 4280 


8L 


Ml 


OEECR 






0EE8R 4060 


STH 


REG, MAXLOC 



ASM13640 
4SM13650 

^^113660 

ASM13670 

ASM13680 

ASM13690 
A?M13700 

ASM13710 

ASM13720 

ASM13730 

ASM13740 

ASM13750 

ASM1375S 

ASM13760 

ASM13770 

ASM13780 
ASM13790 

ASM13800 

ASM13810 
4SM13820 
A SMI 3830 
ASM13840 

ASM13850 

ASM13860 
ASM13870 
ASM13880 
ASM13890 
ASM 13900 
ASM13910 

A SMI 3920 
ASM]3C)30 

ASM13950 
ASM13960 
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1690R 
OEECR 4S60 

- «C8R 



OEFOR 4230 
OEFCR 



0EF4R 4880 

- 1692R 

0EF8R 0558 
OEFAR 023F 
41EFCR AOFft 

0F10R 
OFOOR 4060 

15DXR 
0F04R 41F0 

0F12R 
OFOflR 41F0 

OAAOR 
OFOCR 0005 
4*F_0£R-43Qft 

0000 



Ml 



CLH REG.SAVLOC 



• IF CURRENT LOC AFTER THIS LINE'S ASSEMBLY IS NOT THF 

• SAME AS AT ITS BEGINNING GO TO M2 TO SEND LOAD PROGRAM 

• AN©- FL IR F-IRST- -If- MODE-CHANGE D» 

BNE M2 

• IF ...THIS-UNE-iS A SSF H P.I Y P A U SED, MO CHANGE IN LOCATION 

• COUNTER AND NO CHANGE IN MODE. EXIT 

LH TEMP. FLIPS WITH LOCS SAME. CHECK MODES 



0F12R 4850 

16B6R 
0F16R 40F0 

0F32R 
Of 4 AR -0451 
0F1CR 4880 

1692R 
4F-Z0R 4)558 
0F22R 023F 
•F24R 0751 
AF26R 4050 

1692R 
0F2AR 41F0 

OAAOR 
0F2ER 0003 
0F30R 4300 

000ft 



M2- 



CLHR R.TEMP 

8NER EXIT 

SIM EXIX.M?FNn*2- 



IF MODES SAME.RNOT=TEMP 
LOCS SAME, MODES SAME EXIT 
-SAVE REH1RW ADDRESS- 



-M2END 



STH REG.W1 SEND NEW LOCATION 

BAL EXIT, FLIP SEND FLIP" IF NECESSARY 

BAL EXI TtP AC KP R-1 - PACK _IHE_PUNCH BUFFER _ 

WITH CONTROL ITEM 5 



DC 
-B_ 



5 
0000 



^ ASSFM RI Y MBBF CQNI ROI I A RSO I UT F/PFI ftffATAB, n RQUI1NE 
FLIP LH R.MODE HERE TO FLIP ON MODE'S REL 

STH EXIT.EXITFP*2 



*JHR MtC- 

LH 



TEMP, FLIPS 



~.C4LMR_JUIEMP— 
BNER EXIT 
XHR R.ONE 
iIH_ iUFLIPS 



-IS RIGHTMOST RELBI4L- SET? 
GET RECORDED TAPE MODE 

IF -NOT EQUAL FLIP UNNECESSARY 

IF EQUAL. REVERSE TAPE MODE 
AND SFNn Fl. TP-JtQ_TAg£— 



SEND3 BAL EXIT.PACKPB-10 PACK PUNCH BUFFER 



EXITFP 



DC 
B 



3 
0000 



WITH CONTROL ITEM 3 
EXIT 



• SYMBOL TABLE AND OP TABLE SYMBOL SEARCH ROUTINE 

« ♦ iwitiummmtMAt M » » » * > ttauum.mi • # « « »«»»»»»» _ 

• THIS ROUTINE PERFORMS A BINARY SEARCH THROUGH THE TABLE 
- WHOSE LIMITS ARE AT <P> AND <P*2> FOR A MATCHING 

SYMBOL TO THAT IN ...CIlHEft-LS. OR _S& -TEMPORARY STORAGE 
IF NO MATCH IS FOUND, SEARCH RETURNS TO THE FIRST 
INSTRUCTION FOLLOWING THE CALL WITH (PI & A(NEXT) 
C^UlNIjm_A^.0JjmB_JJL_IhE_NEM..5WiaQLlS lfclSERTlPN_Pl, 
IL , A ^* TCH IS ^0^0, RETURN IS TO THE SECOND INSTRUCTION 
FOLLOWING THE CALL WITH fP> & AiNEXTI CONTAINING 



ASM13970 

ASM13980 
ASM13990 
A&M4-40ftO» 
ASM14010 

ASMI4O2.0- 
ASM14030 
ASM14040 

ASM14050 
ASM14060 
ASMIAOXO- 

ASM14080 

ASM14090 

ASM14I00- 

ASM14110 
ASM1412Q . 

ASM14130 
ASMI414Q 
ASM14150 
ASM14160 

ASM14170 

ASM141S0 
ASM14190 

ASM1420fr 
ASM14210 
ASM14220 
ASM1423iL_ 

ASM14240 

ASM14250 
ASM14260 

ASM14310 

ASM14320 

ASM1433-0-. 

ASM14340 

ASM14350 

ASM14360 

ASM14370 

ASM14380 

ASM1419JL- 

ASM14400 

ASM14410 
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• A POINTER TO THE BEGINNING OF THAT SYMBOL'S ENTRY. 



0F34R 

0F38R 

0F3CR 

4FAOR 

0F44R 

0F48R 

©F4CR 
0F4ER 
0F50R 
0F52R 

0F56R 

0F5AR 

0F5ER 

0F62R 

0F66R 

OF6AR 
0F6CR 

0F70R 

0F74R 
0F76R 
0F78R 
0F7AR 
©F7CR 

0F80R 

0F84R 

0F88R 

0F8CR 

0F90R 
0F92R 

0F96R 

0F9AR 

0F9ER 



48AD 
0000 
4860 
0002 
CAOO 
0004 
4S5A 
0002 
48AA 

oxxa© 

40A0 

1634R 

05AS 

0330 

088A 

40A0 

1634R 

C890 

0004 

487A 

0002 

48C6 

0002 

C470 

FFOO 

C4CO 

FFOO 

057C 

4330 

0F80R 

4280 

0FC4R 

05A8 

0330 

085A 

0AA8 

4300 

OFEOR 

487A 

0004 

4210 

0FB8R 

4576 

0004 

4230 

0F70R 

0A92 

487A 

0006 

4210 

0FB8R 

4576 

0006 

4230 



SEARCH LH 

LH 
AH I 
LH 

LH 

STH 

-CLHR 
BER 
LHR 
COMPAR STH 

LHI 

LH 
LH 
NHI 

NHI 

CLHR 
BE 

NOTEOL BL 

MOVEDN CLHR 
BER 
LHR 
AHR 
B 

MATCH1 LH 

8M 

CLH 

BNE 

AHR 
LH 

BM 

CLH 

BNE 



P»0 CRETURM) 
REG.2(RETURN) 



GET POINTER TO TABLE POINTERS 
GET POINTER TO TEMP STORAGE 



RETURN.4 

R*ZXBi 

P.OtP) 
P. NEXT 

J»+R 

RETURN 
TEMP.P 
P. NEXT 

COUNT .4 

H0LD.2CP) 

VALUE t 2 (REG) 

HOLD.X'FFOO* 

VALUE. X'FFOO* 

HOLD* VALUE 
MATCH1 

movewp 

P. TEMP 

RETURN 

RtP 

P.TEMP 

DIVIDE 

H0LD.4<P> 

EOTE 

HOLD»A(REG> 

NOTEQL 

COUNT. TWO 
H0LD»6(P» 

EOTE 

HGLD»6tREGJ- 

NOTEQL 



BUMP RETURN BEYOND TWO DCS 
INITIALIZE END POINTER 
INITIALIZE CURRENT POINTER 



AND»INSERT»POINTER=ORIGIN 

-DOES- TABLE HAVE ANY 
ENTRIES AT ALL? 
INITIALIZE TOP=TABLEiORlGIN 
UPDATE"INS£HI" POINTER 

KEEP COUNT ASIDE FROMPlREG 

FETCH 1ST CHAR IN TABLENTRY 

FETCH 1ST CHAR OF SYMBOL 

MASK OFF EXTRANEOUS INFO 



DOES IT MATCH 1ST CHAR OF 
SYMBOL IN TEMPORARY STORAGE 

L0W76O ALPHABETICALLY HIGH 

HIGH7G0 ALPHABETICALLY LOW 
IF AT CURRENT TOP RETURN 
SET NEW BOTTOM LIMIT=P 
ADD CURRENT BOTTOMiTOP 
-AND 60 HALVE- 

FETCH 2ND/3RD TABLE CHARS 

UNLESS END OF TABLE ENTRY 

DO THEY MATCH TEMP SYMBOL'S 

NO 

YES. BUMP COUNT TO 6 
FETCH 4TH/5TH TABLE CHARS 

UNLESS END OF TABLE ENTRY 

DO THEY -MATCH- TEMP SYMBOL «S 

NO 



ASM14420 
ASM14430 
ASM14440 

ftC.M]44S0 

ASM14460 

A SKI 4470 

&SM14480 

ASM14490 

ASM14500 
ASM14510 
ASM14520 
ASM14530 

ASM14540 

4SM14550 

ASM14560 

ASM14570 

A^Mi^seo 

ASM14590 
ASM14600 

ASM14610 

ASM14620 
ASM14630 
ASM14640 
ASM14650 
A SMI 4660 

ASM14670 

ASM14680 

ASM14690 

ASM14700 

ASM14710 
ASM14720 

A SMI 473 

ASM14746 

ASM14750 
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0FA2R 
-0FA4R 

0FA3R 

OFACR 

oraoR 

OFB4R 
0FB8R 

«fbcr 

OFCOR 

OFC4R 
OFC6R 

OFCAR 

•FCER 
OFOOR 

OFD4R 

OFOflR 
OFDAR 

OFOCR 
OFDER 
OFEOR 

OFE4R 

©FE8R 

OFEAR 

OFEER 

0FF2R 
OFF4R 

0FF8R 

©FFCR 

1QOOR 



0F70R 

0A92 

487A 

0008 

4210 

F B8 R 

4576 

0008 

4230 

0F70R 

43C0 

0004 

4090 

OFBER 

4B76 

0000 

4330 

0FB4R 

0AA9 

487A 

0000 

4210 

0F&4R 

0AA2 

4300 

0FC6R 

40A0 

1634R 

A5A5 

033D 

OASA 

0AA5 

4280 

0FF3R 

CCAO 

0002 

OAAA 

487A 

0000 

4210 

0F52R 

0BA2 

4300 

OFtAR 

CCAO 

0002 

C6A0 

4000 

4300 

0FE8R 



AHR 
-fcH-- 

BM 



COUNT, TWO 
- H Q l O » 8< P ) 

EOTE 



YES, BUMP COUNT TO 8 
-FXTCH 6TH TAB L E ENTRY-CMAR- 

UNLESS END OF TABLE ENTRY 



CLH HOLD, 8 (REG) 

~..._BNE NOTEQI 

MATCH B 4<RETURN» 
EOTE 



DOES IT MATCH TEMP SYMBOL'S 

NO- 



YES, RETURN W/MATCH AT "P» 
HIT END OF TABLE ENTRY 



STH COUNT, •*(, 

XM HOLO-»&0- 00<REG )- IS JEMP-SJ£MflQt Aj<tQ a t E ND 

BZ MATCH if SO, HAVE A MATCH AT "P» 



» TABLE ENTRY HAD TOO FEW CHARS 



MOVEUP AHR 
ADJSI Ui 



P, COUNT 
HOLDtOlPJ. 



MOVE P BEYOND LOW ENTRY 



BM 

AHR 
B 



• ♦10 

PtTWO 
AOJST 



STH P,NEXT 

CLHfL R,R 

BER RETURN 



FIND -BEGINNING OF ENTRY 

UPDATE"INSERT" POINTER 

REACHED £ND. OF TABLE- LEFT 
RETURN W/NO MATCH 



• SET NEW TOP LIMIT FROM WHICH WE ARE MOVING HIGHER 
-LMR -TEMR+P - , 



AHR 
DIVIDE BC 



P.R 

NEGAOR 



SRHL P,2 

AODAOR AHR R^P„ 

ADJUST LH HOLD,0(P) 



BM 

SHR 
B 



COMPAR 

P. 2 
AOJUSX 



ADD CURRENT TOPiBOTTOM 
CARRY RESULTS FROM NEG ADRD 

DIVIDE BY 4, MULTIPLY BY 2 

MIDWAY- POINT hai Fynpn ^pps 
FIND NEAREST LOWER 



BE G I N NING-OE £NIR£ 
BACKUP A HALFWORD 



NEGADR SRHL P,2 

OHI P,X«4000« 
8 ADDADR _ 



HALVE FOR MIDWAY POINT BUT 
OR CARRY BIT BACK IN 



• . POSTING . THE__LABEL F IELD SYMBO L IN . .THF_gYMgni LJTARJX 



• THIS ROUTINE POSTS THE LABEL OF A SOURCE STATEMENT 



ASM14760 
ASM447-Z0- 

ASM14780 

ASM14790 

ASMIA80-0- 

ASM14810 

ASM14820 

ASMI4B3XX 

ASM14840 

ASM14850 
ASM14860 
ASM14&.74- 

ASM14880 

ASM14890 
ASM14900 

ASM14910 

ASM! 4920. 

ASM14930 

ASM14940 

ASM14950 

ASM14960 

ASM14970 

ASM14980 

ASM! 4990- 
ASM15000 

ASM1501O- 

ASM15020 
ASM1S030-. 

ASM15040 

ASM15050 

ASM15060 _ 

ASM15070 
ASM15080__ 
ASM15090 
ASM15100 
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1004R 

1008R 

100CR 
100ER 
1010R 

1014R 

1018R 
101AR 

101ER 
1020R 



40U0 

117AR 

41D0 

QF34R 

162AR 

15F0R 

4300 

110ER 

41E0 

OBC8R 

0857 

D380 

15F0R 

0482 

4330 

1034R 



1024R 0452 



1026R 4330 
1178R 

102AR 046] 

102CR 4230 
1178R 

1030R 4300 
10FOR 

1034P 0452 

1036R 4330 
10A2R 



103AR 
103ER 
1042R 

1046R 

104AR 

104ER 
1050R 



C5F0 

06C(SR 

4230 

104ER 

4510 

lftlAfl 

4330 

104ER 

0210 

156CR 

0461 

43J0 

10FOP 



• IF THE SYMBOL'S ALREADY IN THE TABLEtIT MAY HAVE BEEN 

• ENTERED AS AN ENTRY, EXTRN. AS A PREVIOUS LABEL OR 

• AS A PREVIOUS OPERAND SYMBOL* OR AS IT WAS 

• ENCOUNTERED IN SAME POSITION ON A PREVIOUS PASS 



INSERT STH 

BAL 

DC 
DC 
B 



RET URNj I NSR TJU2 

RETURN. SEARCH AND OBTAIN POINTER 



STO 

LS 

INSRTL 



BAL LINK, UNPACK 



NOTFOUNDiQQ INSERT AT NEXT 
UNPACK SYMBOL IN TABLE 



LHR 
LB 

NHR 
BZ 



R,HOLD 
TEMP.LS 

TEMP»TWO 
LABDEF 



« FERROR ALREADY SET, SYMBOL IN LABEL OF EQU OR ORG UNDEFINED 
NHR R.TWO IS IT DEFINED IN TABLE 

• SYMBOL USED THIS LABEL JdASDEElNED VALUE IN-TABLE 

• DON'T CHANGE IT TO PRESENT UNDEFINED VALUE 

BZ INSRTX YES. DEFINED IN TABLE 

• UNDEFINED LABEL ALREADY IN TABLE AS UNDEFINED 

NHR REG, ONE USED BIT SET? 

• DON«T DISTURB STRING INDICATED BY USED8T BEING SET 

BNZ INSRTX IF SO, LEAVE ALONE 



8 

LABDEF NHR 
BZ 



INSRT3 

R,TWO 
INSRT2 



60 UPDATE -NEW UNDEFINED VALUE 

IS IT DEFINED INTABLE? 
SYMBOL. CHANGE VALUE IF "M» 



• PLACE FORMAT ERROR ON EQU TO UNOEFINEOS ON PASS1 

• THAT GET DEFINED ON PASS Z 

CLHI EXIT,EOULAB 



1054R 40 CO 

15DCR 
1058R 0857 



8NE 

CLH 

BE 

STB 

NHR 
BZ 

• UNSTRING 
STH 

LHR 



• ♦16 

ONE, PASS 

• ♦8 

ONE-tERRORF- 

REG, ONE 
INSRT3 

VALUE. W I 
R.HOLD 



IF USED BIT NOT SET 

SYMBOL UNDEF BUT NEVER USED 



SYMBOL » S VALUEsREFERENCE 
POSITION RELBIT OF VALUE 



ASM15110 
4SM15120 
ASM15130 

ASM15140 
ASM15150 
ASM15160 

ASM15170 

ASM15180 
ASM15190 
ASM15200 

ASM15210 

ASM15220 
ASM15230 

ASM15240 
ASM15250 

ASM15260 
ASM15270 
ASM 15280 
ASM15290 
ASM15300 

ASM15310 
ASM15320 
ASM15330 
ASM15340 

ASM15350 

A^M15360 
ASM15370 

ASM15380 
ASM1S390 

ASM15400 

ASM15410 
ASM15420 
ASM15430 
A SMI 5440 

ASM15450 

ASM 15460 

ASM15470 
ASM15480 

ASM15490 



INTERDATA OS ASSEMBLER 



03-025R02A13 



PAGE 45 



105AR 
405€R 



1062R 
I064R 

1068R 

106CR 

ootor 

1074R 
1078R 



107CR 
107ER 

1082R 

1086R 

108AR 

lOflER. 

1092R 

1096R 
1098R 

109CR 

109ER 

10A2R 

10A6R 

10AAR 

10AER 

10B2R 

10B6R 

10BAR 

LOBER 

10C2R 

10C6R 
10C8R 



41F0 

0E16R 

41*0 

OAAOR 
0006 

cas>o 

15F0R 

41F0 

0E16R 

48C0 

15F0R 

asao 

1634R 
485A 
0000 
C450 
1C00 
Q6G.5 
D2C0 
15DCR 
40CA 
0000 
D350 
15F3R 
D25A 
0003 
-025JL 
15D0R 
41F0 
OAAOR 
0007 
41F0 
OAAOR 

0002 

4300 

U7SR 

485A 

0000 

C450 

01FF 

4860 

1SF0R 

C460 

01FF 

D38A 

0003 

D3C0 

1SF3R 

070 

0004 

4330 

10C6R 

0210 

156AR 

0556 

4230 



BAL 

BAL 

DC 
48 — 

BAL 

LH 

Lit- 

LH 

NHI 

- OJtuc- 
STB 

SIH- 

LB 

STB 

STB,^ 



EXIT,FLIP*4 SYMBOL BEING DEFINED, 
C XIT ,PA CK p B - lO — ^ACIC-REF AOORESS AND 



6 
-R^LS 

EXIT,FLIP»4 



ITS LOADER CONTROL ITEM 6 
POSI TION RE LB ET OF— OEEAORS 

SEND FLIP ON RELBIT 



VALUE. LS 

P-tNEXT 

R*0<P> 



R.X»1C00« 

-■VALUED 

VALUE, Wl 

- VALUE .0 IP J 

R»LSO 

R,3«P> 
-fi*Ml*l 



— REESTABLISH £0-INTER- TOSYM 



USED, EXTRN, ENTRY, BITS 

Oil=^MR£tU-0=£NIRY*0_I=EXTfiN 
VI 

SET NEM-XQOE A VI 

V2 



BAL EXIT,PACKPB-10 SEND DEFINITION ADDRESS AND 



DC 
BAL 

DC 
8 

INSRT2 LH 

NHL 

LH 

NHI 

LB- 

LB 

NHI 

8Z- 

STB 

CLHR 
BNE 



7 AND ITS CONTROL ITEM 7 

EXIT,PACKPB-10 OUTPUT CHAIN REFERENCE 



2 

INSRTX 

R.OCP) 
R»XUEF •_ 

REG,LS 



REGtX»lFF» 
T£MPx3i£l_ 



OEFINEO SYMBOL FOUND 
MASK RFI.RTT-^JOLUEl 
GET NEW VALUE 
MASK RELBIT fcVALUEl 
GET ?Nf) HALF -OEUOLUE- 



VALUE, LS*3 



HOLD, 4 

•*A- 

ONE.ERRORM 

~R,REG 
MERROR 



SHOW»M"ERROR IF DEFINED EXTRN 



don't set m bit, yet 

d6Talues"match? 

no, multiple oefined error 



ASM15500 

ASMiS520~ 

ASM15530 
A S M 15S 40- 

ASM15550 

ASM15560 

ASM1S5JQ 

ASM15580 

ASM15590 

A SMI 5600. ._ 
ASM15610 

ASM 15620 

ASM15630 



ASM15640 

ASM15650__ 

ASM15670 

ASM15680 
ASM15700 

ASM15701 
ASM15710 

ASM15720 

ASM15730 

ASM15740 

ASM15750 

-ASM1SI6Q_ 

A5M15770 

ASM15780 

ASM). 5790 

ASM15800 

A SMI 58 10 
ASM15820 
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10CCR 
10CER 

10D2R 

10D6R 

10DAR 

10DER 
10E0R 

10E4P 

10E8R 

10ECR 

10FOR 

10F4R 

1QF8R 

10FCR 
10FER 

1102P 

1106R 

HOAR 

UOER 

1112R 



1002R 

058C 

4330 

1178R 

D210 

156AR 

488A 

0000 

C480 

FEOO 

0668 

C660 

2000 

406A 

0000 

D2CA 

0003 

4300 

1178R 

4850 

15F0R 

487A 

OOCO 

C470 

OCOO 

0657 

405A 

0000 

0350 

1SF3R 

025A 

0003 

4300 

1178R 

C860 

tSFOR 

4300 

111ER 



1116R 4000 

117AR 
111AR C860 

15E6R 
111ER C896 

0004 
1122R 4859 

0000 
1126R 4330 

1134R 
112AR 0A92 
112CR C596 

OOOA 
1130R 4280 

H22R 



CLHR 
B£ 

MERROR STB 

LH 

NHI 

OHR 
OH I 

STH 

STB 

B 

INSRT3 LH 

LH 

NHI 

OHR 
STH 

LB 

STB 

9 

INSRTL LHI 

B 



TEMPtVALUE 
INSRTX 

ONEtERRORM 

TEMP.O(P) 

TEMP.XtFEOO? 

REG, TEMP 
REG»X'2O0Q» - 

REG,0<P> 

VALUE»3(P) 

INSRTX 

R.LS 

HOLD.OCP) 

HQLD.X'QCOQ' 

R.HOLD 
R.OiPI 

R.LSO 

R,3(P> 

INSRTX 

REG.LS 

GETHWS 



SET MULTIPLE DEFINED 

STORE NEW VALUE* RELBIT 

SAVE CODE BITS IN TABLE 

MESH CODE SiNEW VALUE 
SET MULIIP4X DEFINED SIT 

POST IN TABLE 

EXIUHEN P=LAST HW STORED. 

DEFINING A SYMBOL PREVIOUSLY 

FETCH CODE IN TABLE 

ISOLATE ENTRY/EXTRN SITS 

COPY 00=FRF»01=EXT,10=ENT 
ENTRY BITiUSEO BT. EXT 

SET VALUE=OEFINITION ADRS 



POINT TO SYMBOL IN LABEL S 
SKIP RESETTING EXIT &REG 



• POSTING AN 
INSRTS STH 

LHI 
GETHWS LHI 
LOOP IN LH 

BZ 

AHR 
CLHI 

8L 



OPERAND SYMBOL IN THE SYMBOL TABLE 

RETURN* INSRTJU5 

REG,SS POINT TO SYMBOL IN SS 

COUNT. 4 (REG) ASSUME 2 HALFWORDS TO PACK 

R.01C0UNT) START MlltL 3RD HW IN LSVSS 

ENDSYM 

COUNT. TWO 
COUNT, 10(REG) 



LOOPIN 



ASM15830 
ASM15840 

ASM1SHS0 

ASM15860 

ASM15870 

ASM158B0 
ASM15890 

ASM15900 

ASM1S910 

ASM15920 

ASM15930 

ftSM15940 

ASM15950 

ASM15960 
ASM15970 

A^Mlb'JRO 

ASM15990 

ASM16000 

ASM16010 

ASM16020 

ASM16030 

ASM16D40 
4SM16050 
ASM16060 

ASM16070 

ASM16H80 

ASM16090 

ASM16100 

A^M16 1 10 
ASMI6 l?0 

ASM16130 
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1134R 0B96 
1136R 4A90 

113AR 459© 

162ER 
143ER A2&0-- 

114AR 
1142R 0210 

1S6ER 
1146R 4300 

0CC6R 



114AR 

114ER 

1152R 

US6R 

115AR 
11 SCR 

1162R 

lT66R 
1168R 

116CR 

417-0R- 
1172R 
1174R 

1178R 



48A0 

162CR 

4090 

162CR 

4&&A 

0000 

4089 
0000 

0BA2 

0B92 

-45AO 

1634R 

4380 
A152SL 

0AA2 

4886 
O004 

408A 

0000 

©A62 

05A9 

4280 

1466R 

4300 

0000 



endsym shr count, reg isolate no. of hws 

ah count. ste add to current end symtab 

clh count, size if not low, no room left 

Si I NSRT GOTO INSERT -JIT- PsNEXl 



STB 
B 



ONE, ERRORS 

PRINTR 



SET SYMBOL TABLE OVERFLOW 



PRINT UNLESS»NOPRNT» 



• XF1U-S " R"S S " C N T AI NS SYMBO L O F LESS TH A N 6- -CHARS - 

• ZERO INDICATES ENO OF HALFWORDS NECESSARY TO INSERT. 
INSRT LH P,STE 



STH 

LOOPST LH- 

STH 

SHR 

SHR 

CLH 



COUNT, STE 

leMP»0JRJ 

TEMP, (COUNT) 



P,TW0 
COUNT, TWO 
P. NEXT 



8NL LOOPST 



MOVE SYMBOLS UP 1XX NEkUsTE 



NOT YET, LOOP 



LOOPRG AHR P,TWO 1ST TIME, ADJUST PrNEXT 

LH TEMP, (REG) FETCH TEMP STORAGE IN LS/SS 



STH TEMP,0(P) 



-AMR- 



BEG, TWO 



CLHR 
8L 



P, COUNT 
LOOPRG 



STORE IN SYMTAB 

INCRE ME NT TE M P - S T O R A G E IN D E X 



ANY CELLS LEFT TO FILL? 
YES, LOOP 



INSRTX B 



0000 



ftttiiMI 



UUUU1MA- 



• OPERAND'S EXPRESSION EVALUATOR ROUTINE - AEXP 

• AN EXPRESSION IS QNE_ITEM-OR A- COMaiNAT I ON OF ITEMS 

• LINKED IN THE SOURCE BY A PLUS OR MINUS CHARACTER 

• EACH ITEM CONSISTS OF A SINGLE SYMBOL* OECIMAL NUMBER. 

• IHE-XOCAT10N C Q1JNTFB » « »» ASTERI SK «Y»«BOL. QP CONST A NT 

• SUCH ASl 

• X»9A0E» 

« C-LU-I 



H« 32767' 

A( AN EXPRESSION) 
jCJjCMAR STRING* 

E»1234.5678E-09« 
D«1234.5678E-09» 



HEXIDECIMAL CONSTANT 

-INSTRUCTION CHARACTER 

DECIMAL CONSTANT 
"DC" AODRESS CONSTANT 
"DC" CHARACTER CONSTANT! 
"DC" FLOATING POINT 
SINGLE PRECISION 
DOUBLE PRECISION 



ASM16140 
ASM16150 

ASM16160 

AS M 1 6 1 7 1- 

ASM16180 



117CR 40E0 



AEXP 



STH LINK,AEXPEX»2 



ASM16190 

ASM16200 
ASM16210 
ASM16220 

ASM16230 

A SMI 6240 

ASM16250 

ASM16260 
ASM16270 
ASM162B0 

ASM16290 

ASM16300 
ASM16310 

ASM16320 

ASM 1 633 - 

ASM16340 

ASM16350 

ASM16360 

ASM163JO 

ASM16380 

ASM16390 

ASM 16400 

ASM16410 

ASM16420 

A^H16430 

ASM16440 

ASM16450 

A SMI 64.60 

ASM16470 

ASM16480 

ASK1.64fta_ 

ASM16500 

ASM 165 10 

ASM1 6520 

ASM16530 

ASM16540 
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129ER 
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U80R 

1184R 

1188R 
118AR 

118ER 
1190R 

1194R 

1498R 



C890 

0012 

4009 

15BOR 

0B92 

4310 

1164R 

07CC 

4850 

15D4R 

4230 

1292R 

41 FO 

141AR 



119CR 01F3 



119ER 
UAOR 
11A2R 

11A6R 

11AAR 

11AER 

11B2R 
11B4R 

1 1»»R 

11BCR 

11C0R 

11£4P 

11C8R 

11CCR 

nooR 

11D4R 
11D8R 
110CR 
11E0R 
11E4R 



07CC 

0799 

4090 

15C4R 

4090 

15B6R 

41U0 

1394R 

4300 

12A0R 

01F3 

40C0 

15BCR 

4*S0 

15C4R 

4230 

11E0R 

4850 

15B4R 

4330 

1238R 

4510 

161CR 

4330 

1108R 

4850 

1SB2R 

4330 

1268R 

0210 

156CR 

4300 

1268R 

4850 

1584R 

4230 

1268R 



* CLEAR Vl.V2.RELFLG.RELCNTtFRF.MFLAG.PAREN.AND VALUE 
LHI COUNT »ENDAIA=nAIA - 

CLEAR STH ZERO»DATA (COUNT) CLEAR 



SHR 
BNM 

XHR 
LH 

BNZ 

8AL 



COUNT.TWO 
CLEAR 

VALUE t VALUE 
R.EOL 

SETREL-2 

£XIX»SIGN--- 



RETURN W/ABSOLUTE ZERO=VALUE 
IF NF^t^FT MF| Afi ..... . 



• RETURN HERE TO BYPASS SIGN BETWEEN ITEMS OF AN EXPRESSION 
BYPASS BALR EXIT. GET _ ^BYPASS SIGN. 

• RETURN HERE AFTER PASSING A( FOR ADDRESS CONSTANTS 



ITEM XHR VALUE. VALUE 

XHR XOUMT.COUNT 

STH COUNT tITMFRF 

STH COUNT. RELCNT 

BAL RETURN. CNSTNT 

B NOTCON 

BALR EXmG£T 

ITEND STH VALUE. VI 



LH 

BNZ 

LH 

BZ 

CLH 

BE 

LH 

BZ 

SETERR STB 
B 

CHECKF LH 
BNZ 



R-rtTMFRF- — 

CHECKF 

R.FRF 

CHECKM 

ONE.OPASS 

SETERR 

RtEXTFLG 

XPAREN 

ONE.ERRORF 

XPAREN 

R.FRF 

XPAREN 



INITIALIZE VALUE & COUNT*0 

ZERO LOCAL ITEM'S FRF FLAG 

ZERO RELOCATABILITY OF ITEM 

IS ITEM A CONSTANT 

NO. BRANCH 

YES. GET HERE TO BYPASS • 
STORE VALUE OF ONE ITEM 

--WAS-4-T- A FORWAR O REF 

IT WAS A FWREF < 

THIS ITEM NOT FWREF.PROCEED 

IF Nfr ITEMS- AT ALL ARE FRF 

FOR PASS1 OF l.ANY USE OF 

FRF/EXTRN IN AN EXP. IS F 

WAS FRF ITEM AN EXTRN? 

NO. DON'T COVER U ERR WITH F ERR 

FRF/EXTRN USEO IN EXP 

THIS ITEM FRF. WAS ANY OTHER? 
IGNORE MULTIPLE FRF'S 



ASM16550 
ASM16560 

ASM16570 

ASM16580 
ASM16590 

ASM16600 
ASM16610 

ASM16620 

ASM16630 

ASM16640 
ASM16650 
ASM16660 
ASM16670 
ASM16680 
ASVI16690 

ASM16700 

ASM16710 

ASM16720 

ASM16730 
ASM16740 

ASM16750 

ASM16760 
ASM16770 
ASM16780 
A r ,M16790 
ASM16800 
A«;M16810 
ASM16820 
ASM16830 
ASM16340 
ASM16aS0 
ASM16860 
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11E8R 

■1 1E€R> 

11F0R 

11F4R 

UF8R 

11FCR 

1200R 

1204R 

1208R 

120CR 

1210R 

1214R 

1218R 

121CR 

1220R 

1224R 



4010 

15B/,R 

4«50 

15B0R 

42*0 

1214R 

4510 

161CR 

4330 

1?08R 

4850 

15B2R 

4230 

1208R 

D210 

1564R 

48C0 

15BCR 

4860 

15B6R 

43*0 

1260R 

4510 

161CR 

4230 

1224R 

D210 

156CR 

4300 

1203R 

4850 

1SB2R 



1228R 4230 
1208R 

122CR 4300 
1204R 



1230R 4010 
15B0R 

1234R 4300 
119CR 



1238R 48C0 

15BAR 
123CR 4860 

15B8R 
1240R 4860 

15BER 
1244R 4330 

1258R 



STH 


ONE, FRF 


i_-H 


RtPOMRO 


BN2 


CHECKP 


CLH 


ONE* OP ASS 


BE 


STRFRF 


LH 


R»EXTFLG 


BNZ 


STRFRF 



SJB -ONE..ERRQRU _ 
STRFRF LH VALUE»V1 

LH REG.RElCNT 
J SETVJJ 



CHECKP CLH 
8NE 
SIB 
8 

CHECKX LH 



ONE.OPASS 



CHECKX 
QNEtERRORE 
STRFRF 
R.EXTFLG 



SET THE OVERALL FRF OF EXP 
- IS-TH4S™ HEM THE FIRST- 
NO, THERE WERE OTHER ITEMS 
IS THIS PASS 1 OF I 
YES. GO DIRECT TO STORE FWREF 
NO, WAS THIS FEREF AN EXTRN 
YES GO IOIRECT TO STORE IT 
SET UERfi FOR FRF »S ON PASS 2/3 
ENTIRE VALUE OF EXP=FRF 
ONLY AND ITS RELBIT 

ITEM=FRF COMBINED W/CONSTANTS 

IS THIS PASS 1 OF 1 

DM PASS1QF 1, FORMAT ERROR 

USE FRF VALUE ONLY FOR STRING 

ON PASS Z/3FRFsEXTRNDON»T SET U ERR 



. ON PASS -2V3 IF ERF 1S--AN EJtTRN QONH-SET U ERROR BUT STRING REF AORS 
8NZ STRFRF DISCARD PRECEDING VALUES 

. FOR NQN--EXIRN ERF-l S ON J?ASS 2V3 SET UERROR 
B STRFRF-4 GO SET U ERROR 

• FIRST TIME THRU BYPAS1 _/SET COMBO TO SHOW MULTIPLE ITEMS 

• IN EXPRESSION 
BYPAS1 STH ONE, COMBO 



B 



BYPASS 



» HEREL TO C OM B IN E PR EC FnTNfi ACCUMin ATFn tt fm vai UES _ 

• WITH CURRENT ITEMiS VALUE AND THEIR RELOCATABILITY BITS 

CHECKM LH VALUE, V2 FETCH ACCUMULATED VALUE OF EXP 



LH 
LH 
BZ 



REG,RELFLG 
TEMP-*MEUU5 

ADD4 



-SUBTRACT OR AO& THIS ITEM?^ 



• IF MFLAG SET» It SUBTRACT CURRENT ITEM'S VALUE IN VI 

• FROM EXPRESSION'S ACCUMULATED VALUE IN V2 



ASM16870 

A S M I6 88 

ASM16890 

ASM16900 

ASM16910 

ASM16920 

ASM16930 

ASM16944 

ASM16950 

ASM16960 

ASM16974 

ASM16980 

ASM16990 

ASM17000 

ASM17010 

ASM17020 

A SMI 7030 
ASM17040 

ASMI7050 
ASM17060 

ASM1707O 
ASM17080 
ASM17090 

ASM17100 

ASM17U0- 

ASM17120 
ASM17130 

ASM17140 

ASM17150 

ASM17160 

ASM17170 
ASM17180 
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1248R 4000 

15bER 
124CW 4RC0 

15UCR 
1250R 4Rb0 

15H6R 
1254R 4300 

1?bOR 



» AND LIKEWISE TO THEIR RESPECTIVE RELOCATABILITY BITS 
« • SUBTRACT RELCNT(ITEM»S RELBIT) FROM i RELFLG (COMBINED RELBITS) 
STH ZEROtMFLAG CLEAR MINUS FLAG 



1258R 

125CP 

1260R 

1264R 

1268R 

126CR 

1270R 

1274R 
1276P 

127AR 

127ER 

1282R 
1284R 

1288R 

128AR 



4AC0 

1SHCR 

4A60 

15H6R 

40C0 

15BAR 

4060 

15U8R 

4U.0 

1406R 

C8E0 

1230R 

41F0 

141AR 

030F 

4850 

15C0R 

4330 

1282R 

D210 

156CR 

08b6 

4330 

1294R 

0S61 

43 30 

1294R 



128ER 0210 
1562R 

1292R 0766 
1294R 4060 

15B8R 
1298R 4850 

15B4R 
129CR 4300 

0000 

12A0R 41U(J 

<194AR 
12A4R 43t>0 



SH 
SH 
B 



VALUEtVl 

REG.RELCNT 

SETVAL 



SUBTRACT THIS ITEMiS VALUE 
AND RELOCATABILITY 



. IF MFLAG RESET=0, ADD CURRENT ITEM'S VALUE IN VI 

• TO EXPRESSION'S ACCUMULATED VALUE IN V2 

• AND LIKEWISE TO THEIR RESPECTIVE RELOCATABILITY BITS 

• ADO RELCNTIITEM'S RELBIT) TO RELFLG (COMBINED RELBITS> 
ADD4 AH 



AH 
SETVAL STH 

STH 
XPAREN BAL 

LHI 

BAL 

BR 
LH 

8Z 

STB 

LHR 
8Z 



VALUE* VI 

REG.RELCNT 

VALUE. V2 

REG.RELFLG 

LINK.CHKPAR 

LINK.BYPAS1 

EXIT. SIGN 

LINK 
R.PAREN 

• ♦8 

ONE.ERRORF 

REG»R£G 
SETREL 



CLHR REG. ONE 

BE SETREL 



ADD THIS ITEM'S VALUE 
AND RELOCATABILITY 
STORE ACCUMULATED VALUES 
AND ABS/REL COMBO FLAG 
IF ) CLEAR PAREN FLAG 

DOES EXPRESSION CONTINUE? 

GOTO BYPAS1 IF EXP CONTINUES 
RETURN HERE IF NON ♦ OR - 

NEED FOR > NULLIFIED. SKIP F 

F ERR IF MISSING RIGHT ) 

REG.. CONTAINS ABS/REL COMBO 
IF ZERO. ABSOLUTE VALUE 

IF ONE. RELOCATABLE VALUE 



o SET R ERROR, IF EXPRESSION COMBINED ILLEGAL REL*REL 
♦ OR ABSOLUTE VALUE - RELOCATABLE VALUE 
STB ONE.ERRORR 



XHP 
SETREL STH 

LH 

AEXPEX B 



REG. REG 
REG, RELFLG 

R.FRF 

0000 



TREAT ABS/REL ERROR AS ABS 
SAVE RELOCATABILITY OF EXP 

RETURN WITH LOADING FRF 



NOTCON BAL RETURN, SYMBOL IS ITEM A SYMBOL 



NOTSYM 



NO, BRANCH 



ASM17190 
ASM17200 
ASM17210 

ASM17220 

ASM17230 

ASM17240 

ASM1 7250 
ASM17260 
ASM17270 
ASM17280 
ASM17290 

ASM17300 

ASM17310 

ASM17320 

ASM17330 

ASM17340 

ASM17350 

ASM17360 
ASM17370 

ASM17380 

ASM17390 

ASM17*00 
ASM17410 

ASM17420 

a<;mi7^io 

ASM17<*40 
ASM17450 
ASM17460 

ASM17470 
ASM17480 

ASM17490 

ASM17SO0 

ASM17510 
ASM1752C 

ASM17530 
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1354R 
12A8R 4100 
©£34fc 



12ACR 162AR 

12AER 15E6R 

12803-4300- 

1324R 



12B4R 41F.0 

0BC8R 
12BOR 0057 
12BAR 0452 
12BCR 4230 
12CAR 

12C0R 0471 
12C2R 4020 

15B6R 
12C6R 4300 

11B4R 



12CAR 

I2CEJB 
1200R 

12D4R 

12D8R 

12DCR 

12E0R- 



4010 
15C4R 
Jlfl.5I_ 

C450 

0004 

4330 

120CR 

4010 

15B2R 

4850 

15B4R 

4230 

1314R 



12E4R 4850 
15CER 

12E8R 4330 
1314R 



12ECR 
12EER 

12F2R 

12F6R 

12FAR 

12FER 
1300R 



0461 

4230 

1302R 

485A 

0000 

C650 

1000 

405A 

oooo 

07CC 
0777 



BAL RETURN, SEARCH IF NOT IN TABLE 



DC 

DC 

-8— 



STO 

ss 

-NOXENO- 



-SYMBOL'S 



I ANYWHERE- 

• SYMBOL BEING USED IN PRESENT OPERAND EXISTS IN SYMTAB 

» AT -POINTER J8R". 

BAL LINK»UNPACK OBTAIN CODES Y VALUE 



-LHR R,HOLO 

NHR R.TWO 
BNZ UNDEF 



ISOLATE DEFINITION BIT 



• SYMBOL IS DEFINED RETURN TO "AEXP" W/VALUE «. RELCNT 
USEVAL NHR HOLD, ONE ISOLATE VALUERS RELBIT 

— S** HOLD, R EL CNT TF RELBIT ~S£T»-BELF4jG-G€Ta £J 



B 



ITEND 



BRANCH TO STORE VALUE 



• SYMBOL BEING USED IN PRESENT OPERAND WAS FOUND IN 

• SYMBOL TABLE BUT STILL UNDEFINED. 

A-S YMBO I ' S COD ES K VA I l t £S UNP ACKED 

UNDEF STH ONE,ITMFRF SET THIS ITEMt S FRF FLAG 



-LHfi _R»HQLJL 



NHI 
BZ- 
STH 
LH 
-BNZ 



R,4 

-**£ 

ONE,EXTFLG 



GET CODE OF UNDEEIMElLSyiffiOL 
IS THE UNDEFINED SYMBOL AN 

AN EXTJUi - 

IF SO, SET THE EXTRN FLAG 



R,FRF 
■-OONTSJ-.. 



WERE ANY OTHER ITEMS FRFS 
DON! T— STRXNG MULTIPLE FRFS 



• DON'T THREAO SYMBOL'S PRESENT USEAGE IN STRING IF 
» ITS NOT BFTwr, iism t m a m A FTF I D nPFPAgp 

LH R, AFIELD 

-8X OONTST 



• IF USED IN AFIELDAND USED BIT SET, CONTINUE THREADING 
. If : USED- IN A FT FI D B UT U SFDBT T NOT S FT-^STARJ «;TBT N r. 

NHR REG, ONE USED BIT SET? 

BNZ CHAIN 



LH 
DHL 

STH 

XHR 
XHR 



R.O(P) 
JUUSEDBX 
R,0(P) 



SET A1SED.BXT 



VALUE, VALUE 
HOLD, HOLD 



ASM17540 



ASM17550 
ASM17560 
ASM17S70 



ASM17580 
ASM17S9Q 
ASM17600 

ASMI7610. 
ASM17620 
ASM17630 

ASM17640 
ASM17650 
ASM 12660 

ASM17670 

ASM17680 
ASM17690 
ASMIZZOJL 
ASM17710 

ASM17220 _ 
ASM17730 

ASM17740 

ASM17750 

ASM17760 

ASM17770 

ASM1T780 
AS1UJ-Z90— 

ASM17800 

ASM17B10- 

ASM17820 
ASM1783Q 
ASM17840 
ASM17850 

ASM17860 

ASM I 7870 

ASM17B80 

ASM17890 
ASM17900 



INTEKDATA 


1302R 


0471 


1304R 


4070 




lSb6R 


1308R 


40CO 




15BCR 


130CR 


41E0 




13E0R 


1310R 


4300 




11B8R 


1314R 


0461 


1316R 


4230 




12C0R 


131AP 


41 tO 




13E0R 


131ER 


07CC 


1320R 


4300 




11B4R 


1324R 


48b0 




15E6R 


1328R 


4010 




15C4R 


132CR 


C650 




0200 


1330R 


4050 




15E6R 


1334R 


4860 




15CFR 


1338R 


4339 




134<fR 


133CR 


C650 




1000 


1340R 


40S0 




15E6R 


1344R 


C8A0 




15E6P 


1348R 


41EC 




13E0R 


134CR 


41D0 




1U6R 


1350R 


*300 




131ER 


1354P 


41F0 




09DBR 


1358R 


4300 




136ER 


135CR 


41E0 




1442R 


1360P 


0597 
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• SYMBOL BEING USED AT CURRENT LOORFCF IN CURRENT MODE 
CHAIN NHR H0L0»0NE ISOLATE RELBIT 
STH HOLD.RELCNT 



SAVE OLD REFADRS AS VALUE 



» IF THIS SYMBOL HAS NEVER BEEN STRUNG PACK A SINGLE 

# REFADRS BUT LEAVE USED BIT CLEAR 

DONTST NHR REG.ONE USED BIT SET? 

BNZ USEVAL USE LAST REFADRS AS VALUE 

» USE LAST REFERENCE ADDRESS IN TABLE 
BAL LINKtPACREF 



STH 


VALUE. VI 


BAL 


LINKtPACREF 


B 


ITEND*4 



NOREF 



XHR 
8 



VALUE»VALUE 
ITEND 



RETURN TO AEXP WITH ZERO VALUE 



• SYMBOL BEING USED IN OPERAND NOT IN TABLE YET 
« INSERT AT POINTER "P" 
NOTFNO LH R.SS 



SET UNDEFINED BIT 

IF SYMBOL NOT USED IN AFIELD 
SKIP SETTING USED BIT 
SET BIT INDICATING STRING 
STH R.SS 
NOUSE LHI P,SS PACK REFADRS IN TEMP.SS 

INSERT SYMBOL IN TABLE 
VAL=OOOOFi REL COMBO LEFT 
• IF NONREF. INSERT ZERO FOR VAU1E OF SYMBOL FIRST TIME 



STH 


ONE.ITMFRF 


OHI 


R.DEFBIT 


STH 


R.SS 


LH 


REG. AFIELD 


BZ 


NOUSE 


OHI 


R.USEDBT 


STH 


R.SS 


LHI 


P.SS 


BAL 


LINK.PACREF 


BAL 


RETURN. INSRTS 


B 


NOREF 



NOTSYM BAL EXIT, DIGIT 

B NOTDIG 

BAL LINK. DEC 

CLHR COUNT, HOLD 



IS ITEM A DECIMAL NUMBER? 
NO, BRANCH 

RETURN W/CHAR=1ST NON-OEC 
COUNT MUST=5 OR LESS 



ASM17910 
ASM17920 
ASM17930 

ASM17940 

ASM17950 

ASM17960 

ASM17970 
ASM179B0 
ASM17990 
ASM18000 

ASM18010 
ASM18020 

ASM18030 
ASM18040 

ASM18050 
ASM18060 
ASM18Q70 

ASM18080 

ASM18090 

ASM18100 

ASM18110 

ASM18120 

ASM18130 

ASM18140 

ASM1A1S0 

ASMieibO 

ASM18170 

ASM18180 

ASM18190 
ASM18200 
ASM182I0 

ASM182r!0 

ASM18230 

ASM18240 



INTERDATA 



1362R 4280 

136AR 
- 13 &6 R 021 



1566R 
136AR 4300 

- 11 B4 R 



136ER C5B0 
002A 

-I372R 4330 

137ER 



I6B_ D2I0- 



156CR 
137AR 4300 
- HB.4R 



137ER 48C0 

168ER 
1382R 4&SQ_„ 

1686R 
1386R 4020 

15C2R 

138AR 40B>0 

15B6R 
138ER A1F3- 
1390R 4300 

UB4R 



1394R 


D384 




0000 


1398R 


086B 


139AR 


C060 




0008 


139ER 


9286 


13A0R 


4850 




15AER 


13A4R 


CB50 




0004 


I3A8R 0210 


13AAR 


4565 




1592R 


-13AER ^4230 .. . 




13A4R 


13B2R 


4855 




1594R- 


13B6R 


01T3 


13B8R 


086B 


-L3BA8_ 


A1F3 ._ 


13BCR 


05B6 


13BER 


033D 
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BL #*8 ' 

STB ONE , £RRORT TRU N CATION ERROR 

B ITEM) GOTO STORE DECIMAL VALUE 

NOTDIG CLHI CHAR.C'*' IS ITEM»LOCATION COUNTER 

_B£ LOCNTR 

• IF HERE.»CHAR»HOLOS INVALID CHAR, FORMAT INCORRECT 

SIB QNF,FRRORF 

B ITENO 

LOCNTR LH VALUE, LOC LOCATION~COUNTER~SYMBOL 

— - J-H- R*MQQ£ . gft Mnnns pfi RTT 

STH TWO»ASTFLG NON-ZERO MEANS LOC COUNTER USED 

STH R,RELCNT ADD TO COUNT OF REL'S 

-8ALR— EXII+SEI BY P ASS U*l'__ 

B I TEND 

****±^ ** ** ***** **-***± ******************»**9* ±***M£MJUk* 

• BY PRESETTING "TYPECN" TO 28 THE "DC" ROUTINE FORCES 

• "AEXP" TO ACCEPT «. EVALUATE ALL CONSTANTS EXCEPT THE 
A_lMn, CHA RACTER f" CONSTANT 

• THE MAIN FLO*) MAINTAINS «TYPECN«» SET TO 12, SUCH THAT 

• ALL OTHER SOURCE STATEMENT OPERANDS ALLOW ONLY 

CNSTNT LB TEMP»0<SRX) GET SECOND CHAR OF HEM* 

LHR REG, CHAR OF OPERAND'S EXPRESsTonT 
SLHL REG, 8 

ST8R TEMP, REG PACK 1ST «T 2ND CHARS 
LH R, TYPECN TYPECN=28/DC OR=12/0THER 

LOOPCN SHI R,4 1ST~ IN0EX«24/DC ORaS/ELSE 

J3MB RETURN IT'S NOT A_CONSXANJ_____ _ 

CLH REG,CTABLE<R) IF NO MATCH IN CTABLE 

■ — - - B N E — LOOPCN- 

LH R,CTABLE*2(R» GET ADDRESS OF ROUTINE 

BALR EXIT, GET GET ITEM'S 2NlTcTrAR~AGAIN 
LHR REG, CHAR SAVE 1ST QUOTE OR PAREN 

— BAL R . EX IT, GFT GFT 1ST cmao aftfp qiiq Tf 

CLHR CHAR, REG IF 2ND SAME AS 1ST TREAT AS 
BER RETURN NULL CONSTANT! V=0,F ERROR 




ASM18280 
ASM1B290. 

ASM18300 

ASM18320 
ASM18330 



ASM18350 
ASM18360 

ASMlfl37a 
ASM18380 

ASM1835& 

ASM18400 
ASM18410 
ASM 1 84 2 
ASM18430 
ASM18440 
A SM18 4 S0 
ASM18460 
ASM18470 

ASM18480 
ASM18490 

ASM18500 
ASM18510 

ASM 18520 

ASM 18530 _ 
ASM18540 

ASM4fl550- 

ASM18560 

ASM18S70 

ASM18580 

-ASMlflSatL- 

ASM18600 

ASM18610 
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13C0R 0799 

13C2R 41E5 

0000 



13C6R 
13C8R 

13CCP 

13D0P 
13D4R 
13D8R 
13DCR 



0597 

4280 

13O0R 

0210 

1566R 

C5H0 

0027 

433D 

0004 

0210 

156CR 

430D 

0006 



XHR COUNT .COUNT 
BAL LINK»0(R> 

» FOR H« OF EXP GOTO OEC «. RETURN W/1ST NON-DEC CHR 

• FOR C» OF EXP GOTO CHRCONi RETURN W/1ST NON-CHR CHR 

• FOR X« OF EXP GOTO HEX V RETURN W/1ST NON-HEX CHR 

• FOR A( OF»DC" GOTO AORS (, RETURN TO ITEM 

• FOR C» OF«DC" GOTO DCCHR & GOTO EOITDC FOR LAST HW 

• FOR 0" OF»DC" GOTtt FLOAJQ 8, RETURN TO EDITDC AT END 

• FOR E« OF"DC" GOTO FLOATE S. RETURN TO EDITDC 

ENDCON CLHR COUNT. HOLD TRUNCATION ERROR CHECK PT 
BL « + 8 



STB ONE.ERRORT 

CLHI CHARtXi27» 

BE 4 (RETURN) 

STB ONE.ERRORF 

B 6(RETURN) 



SET »T» TRUNCATION ERROR 
1ST NON-DEC/CHR/HEX=QUOTE 
IF END=QUOTE»GOTO ITEND+4 
ELSE,»F" ERRORiGOTO ITEND 
DONiT BYPASS NON-QUOTE 



» "PACREF" PACKS CURRENT LOCATION COUNTER AS ADJUSTED BY 
» RFCF WITH CURRENT MODE AS ABSOLUTE OR RELOCATABLE 
• VALUE FOR SYMBOL'S REFERENCE ADDRESS 



REFADRS=CURRENT LOC ♦ RFCF 
RFCF=0/DC.RFCF=2/AF IELO 
PACK RIGHT HALF OF VALUE 

PACK LEFT HALF OF VALUE 
SET CURRENT MODE AS RELBIT: 
CLEAR OLD REFADRS RELBIT 
RELBIT OF SYMBOL'S NEW 
REFADRS 

>«oo«ooo»oomj«»<nn>ooo(nn)o»ooa 

IS C« J • STILL EXPECTED 

NO. RETURN 

IS PRESENT CHAR = ) 

NOTYET. LEAVE PAREN FLAGSET 
YES. CLEAR PAREN FLAG 

BYPASS RIGHT PAREN 



13F0R 


4HC0 
lfitlFR 


PACREF LH 


VALUF.LOC 


13E4R 


4AC0 
1SCCR 


AH 


VALUE. RFCF 


13E8R 


D2CA 
0003 


STB 


VALUE. 3(P) 


13ECK 


CCCO 
0008 


SRHL 


VALUE. 8 


13FOR 


D2CA 
0001 


STB 


VALUE. HP) 


13F4R 


D35A 
0000 


LB 


R.OIPJ 


13F8R 


C450 
OOFE 


NHI 


R.X'FE* 


13FCR 


4650 
1686R 


OH 


R.MOOE 


1400R 


D25A 
0000 


STB 


R.O(P) 


1404R 


030E 


8R 


LINK 






»••««»«•««•••«»»»»«••«•»' 


1406R 


48S0 
15C0R 


CHKPAR LH 


R, PAREN 


140AR 


033E 


8ZR 


LINK 


140CR 


C5B0 

00^9 


CLHI 


CHAR.C) « 


1410P 


023E 


BNER 


LINK 


1412R 


4000 

15C0R 


STH 


ZERO. PAREN 


1416R 


01F3 


BALR 


EXIT. GET 



ASM18620 
ASM18630 

fiSM18640 
ASM18650 
ASM18660 
ASM18670 
ASM18680 
ASM 18690 
ASM18700 
ft c !M18710 
ASM18720 

ASM18730 

ASM18740 

ASM18750 

ASM18760 

ASM18770 

ASM18780 
ASM18790 
ASM18800 
ASM18810 
ASM1R820 

ASM18830 

ASM18840 

ASM188S0 

ASM18860 

ASM18870 

ASM18880 

ASM18890 

ASM18900 

ftSM18910 
ASM18920 
ASM18930 

ASM18940 
ASM189S0 

ASM] ;W r f) 
ASM18V/0 

ASM18980 
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1418R 030E 



141AR C5BO 

002b 

033F 

- C5 B Q . 

002D 

1424R 42 3F 

JW«.2„ 



141ER 
14 2 R j 



SIGN -CUil -C H A R » C'+ i~ 

BER EXIT 
CIWU CHAR.Ci«t 



JfL-StO N»P L U S»WEAVE MINUS 

FLAG AS IS & GOTO BYPASS* 
-IE- S I GN N EI TH E R -AOftg 



BNE 2<EXIT) 



RETURN ¥/0 BYPASSING CHAR 



1428R 
142CR 



4850 
15BER 
4751 



SIGN1 LH 



R.MFLAG 



142ER 
1 432 R 



4050 

15BER 

430E 



XHR R.ONE 



STH 
-8R- 



R.MFLAG 
-EXIT- 



IF SIGN IS MlNUSt SET 
MTNUS FLAG. 



AND RETURN TO- 



1434R 40 L0-— 

lSpOR 
1438R 41F0 

141 AR_ 

143CR 01F3 
143ER 4300 
U9£R 

1442R C870 
0006 

1446R 41F0 

141AR 
144AR 01F3 
144CR 41F0 

09D8R 
4A5OR_420E 

0000 
1454R 088C 
-1456R-C580-— 

OCCD 
145AR 4380 

-IA7ER- 

145ER 0A88 
1460R 0A88 
IA62R-4AC8- 
1464R OACC 
1466R CACB 

FFDO 
146AR 4310 

1482R 
146ER C5C0 

8000 
1472R 4230 

147ER 
1476R 4850 

15BER 
147AR 4230 

1482R 
147ER 0210 



• CHAR=1ST CHAR AFTER "A I" AND IS NOTx»(" 
AORS- -SIM nMr.PAPEN 



BAL EXIT. SIGN 



XXP-ECL JL-RIGHXJ 
IS THERE A SIGN INSIDE ( 



BALR EXIT, GET 
B ITEM 



BYPASS PLUS OR MINUS 



DEC 



LHI 
BAL 



HOLD. 6 

exit.sign" 



BALR— -EXIT .GET. 

LOOPO 8AL EXIT. DIGIT 

B O(LINK) 



LEGAL COUNTsS DIGITS 
IS THERE : A SIGN INsTdE '• 
BY P AS S*/- .SET MFLAG If . - 



R ETURU 



aE C-DIGI T- 



LHR TEMP .VALUE 
— CUU — TEMP » 3 277 



MULTIPLY BY TEN 

DO N O T ALL OW -OVEREtOW- 



BNL ERRDEC 



BUT KEEP PASSING DIGITS 



AHR TEMP, TEMP 2N 

AHR TEMP, TEMP 4N 

AH P V ALUE. 

AHR VALUE. VALUE 2»SN«10N 

AH I VALUE t -X • 30 » < CHAR ) 



BNM OK 
-CLHI ._ . -VAUlEtXtaoaOi- 
BNE ERRDEC 
LH R.MFLAG 

BHZ^ _QK 

ERRDEC STB ONE.ERRORT 



IF GREATER THAN-32768 02767 



ASM18990 
ASMI9000 
A SMI 90 1 a 

ASM19020 
^ASM19030 - 

ASM19040 

ASM19050 

-ASMI906Q- 
ASM19070 

ASM4*0A0- 
ASM19090 
ASM19100 
A SMI 9-110— 

ASM19120 



ASM19130 
ASM19140 

ASM19150 
ASM19160 

ASM19170 

ASM19180 
ASM19I90 

ASM19204- 

ASM19210 
A S M 19 220-- 

ASM19230 

ASM19240 

ASM19250 

ASM1926H- 

ASM19270 

ASM19280 

ASM19290 

ASMI33.O0- 

ASM19310 

ASM19320 
ASM1.933.Q. .. 
ASM19340 



INTEROATA OS ASSEMBLER 



03-025R02A13 



PAGE 56 



1566R 
14R2R 01F3 
1484R 0A91 
1486R 4300 

144CR 



OK 8ALR EXIT.GET 
AHR COUNT. ONE 
Q LOOPO 

«••••#•■•»•#•••••»••»#••«►»••»#»*••*••»••*••#••*•»•**•»•* 

• "HEX" ROUTINE CONVERTS ANO PACKS "VALUE" WITH UP TO 4 

• ASCII CODED HEXIDECIMAL SOURCE CHARS PRECEDING A 

• NONHEX CHAR. COUNT MUST BE 4 OR LESS 

» LEGAL COUNT*! STORED IN HOLD FOR COMPARISON ON RETURN 
. UNOER ERROR CONDITIONS, THE RIGHTMOST 4 HEX DIGITS 
» PRECEDING A TERMINATING • OR NON-HEX. CHAR ARE ASSEMBLED. 

LEGAL NO.*l OF HEX DIGITS 

IS THERE A SIGN INSIDE' 

BYPASS*/-. SET MFLAG IF - 



RETURN WITH 1ST NONHEX CHR 



148AR 


C870 
0005 


HEX 


LHI 


HOLD* 5 


148ER 


41F0 

141AR 




BAL 


EXIT. SIGN 


1492R 


OIF 3 




BALR 


EXIT.GET 


1494R 


C5H0 
0047 


LOOPHX 


CLHI 


CHAR.C'F'tl 


I498R 


03BE 




BNLR 


LINK 


149AR 


C5B0 
003A 




CLHI 


CHAR.C»9«*1 


149EP 


4280 
14ACR 




BL 


HEXNUM 


14A2R 


CBBO 
0041 




CLHI 


CHAR.C'A* 


14A6R 


028E 




BLR 


LINK 


14A8R 


CBBO 
000 7 




SHI 


CHAR.7 


14ACR 


C5B0 
0030 


HEXNUM 


CLHI 


CHAR.OQ" 


14B0R 


028E 




BLR 


LINK 


14B2P 


CDC« 
0004 




SLHL 


VALUED 


14B6R 


C6CB 
FFDO 




OH I 


VALUE. -X«30 


14BAR 


0A91 




AHR 


COUNT. ONE 


14BCR 


01F3 




BALR 


EXIT.GET 


14BEP 


4300 

1494R 




B 


LOOPHX 



RETURN IF NONHEX 8ETWEEN9A 
CONVERT HEX ALPHA CHAR 



RETURN IF ABSOLUTELY NOTHX 
MOVE PREVIOUS HEX LEFT 



14C2R 


0872 


14C4R 


08CB 


1AC6R 


01F3 


I4C8R 


C5B0 




0027 


14CCR 


033E 


14CER 


C5B0 




000D 


14D2R 


033E 


14D4R 


0A91 


14D6R 


COCO 



VALUE. -X«30» (CHAR) COPY CHAR W/O ASCII CODE 

KEEP TRACK NUMBER OF HEX 
GET NEXT HEX CHAR 



» CHARACTER CONSTANT IN AN INSTRUCTION AFIELD 

• UNDER ERROR CONDITIONS. THE RIGHTMOST 2 CHARACTERS 
» PRECEDING A TERMINATING • OR CARRIAGE RETURN 

• ARE ASSEMBLE ANO TRUNCATION "T" ERROR IS SET 
CHRCON LHR HOLD, TWO 

LHR VALUE, CHAR PLACE FIRST CHAR AFTER SINGLE 
BALR EJUT.GET 
LOOPCH CLHI CHAR.X»27» 



BER 

CLHI 



LINK 

CHAR.X'OD' 



EXIT ON NEXT SINGLE QUOTE 



BER LINK 

AHR COUNT. ONE 

SLHL VALUE. 8 



ftSMl9350 
ASM19360 
ASM19370 

ASM19380 
ASM19390 
ASM19400 
ASM19410 
ASM19420 
ASM19430 
ASM1944Q 
ASM19450 

ASM19460 

ASM19470 
ASM19480 

ASM19490 
ASM19500 

A«^M19510 

ASM19520 

ASM19530 
ASM19540 

ASM19550 

ASM19560 
ASM]9570 

ASM19580 

ASM19590 
ASM19600 
ASM19610 

ASM19620 
ASM19630 
4SM19640 
ASM19650 
ASM 19660 
ASM19670 
4SM19680 
ASM19690 
ASM19700 

ASM19710 
ASMiq7?f> 

ASM19V30 
ASM19740 
ASM19750 



INTERDATA OS ASSEMBLER 



03-025R02A13 



PAGE 57 



0008 

14DAR 06CB 

-44©€R~0+F3 

14DER 4300 

14C8R 



OHR VALUE t CHAR 
-BAtR — EXIT . GET 



I4E2R C850 
0008 
-14E6R_AXX50___ 
158ER 
14EAR 4300 

JL4F6R_ 



LOOPCH 

-M MMMMWt» «4M MMWMM MKMUI««mrtL 

• CHARACTER STRING IN A DC OPERAND 

• CHAR si _LST CHAR AFTFP 1 «T QUOTE ********************* 

DCCHR LHI R,8 CONTROL ITEM 



SIH R.PC, 



8 2BYTESABS 
PUNCH CODE S.-a-EflR-ALL_HMS- 



B 



FIRST1 



14EEP 40C0 

15DCR 
-UF2R.. AlElL 

0A30R 
14F6R 08CB 
lAfflR-COCO 

0008 
UFCR C6C0 

0020 
1500R 41E0 

1S30R 
150AR_itlF3 
1506R 4300 

072ER 
ISOAft 92BC— 
150CR 41E0 

1530R 
1510R 1E 3 - 
1512R 4300 

072ER 
1546R- 4490 

15B6R 
151AR 0A92 
151CR 4090 

15B6R 
1520R C590 

003E 
1524R 4280 

14EER 
1528R 021ft 

1S66R 
152CR 4300 

472ER. 
1530R 0IF3 
1S32R C5B0 

0621 
1536R 033E 
1538R C5B0 

OftOD. 
153CR 423E 

0006 



LOOPOC STH 

HAL 

FIRST1 LHR 



VALUE.W1 
-EJQJjJEDLUL 



VALUE t CHAR 
-IAUB 



STORE NEXT TWO CHARS FOR EDIT 
PACK PR ANDPB. 



OHI VALUE. X«20» 



COPY IN SPACE 



BAL LlNKtONECHR 

BALR EXXT-*.QET_ 

B EOITDC 



BAL LlNKtONECHR 
BALR EXIT.GET 



B EOITDC 

XM COUN3URELCN T . 

AHR COUNT* TWO 
SIR-... -M tlMT.Pn .tCNT 



GET NEXT CHAR UNLESS END 

-BYPASS TFRMTNAL 4UQIE., 
EDIT LAST HALFWORO 

R E PL A C E S P AC£ ¥1TH--MEXTCHR~ 
GET NEXT CHAR UNLESS END 

BYP A SS TE RM IN A L QUOT E 



clhi count. 62 

blT~ 



LOOPDC 

- SXB QMF.FPPnp T 

B EOITDC 

ONECHR BALR EXITtGET 

CLHI CHAR»X»Z7» 



EDIT LAST HALFWORD 

DCCHRJIOES- TO. JUZXP ROUTINE 

EDIT 62ND HW AND TRUNCATE 
IF NOT AT END LOOP 
-Sfl-T-EBBflR f ob PR TNT __„ 
EDIT LAST HALFWORO WITH"T" 



IF QUOTE RETURN TO BYPASS 



BER LINK 

CLHI CHAR»X»0D« 



AND EDIT LAST HALFWORO 
IF CARRIAGE RETURN. SKIP 



ASM19760 
A S MI9770 
ASM19780 



ASM49790 
ASM19800 
ASM19810 
ASMl9a20 
ASM19830 

JkSMX9B40. 

ASM19850 



BNE 6<LINK> 



BYPASS BUT END WITH F ERROR 



ASM19860 

ASM19870L 

ASMI9880 
ASM19890 

ASM19900 

ASM19910 

ASM19920 
ASM19930 

ASH19940- 
ASM19950 

4SH19940- 

ASM19970 

ASM199eO- 

ASM19990 
ASM200Q4 

ASM20010 

ASM20020 

ASM2003&- 

ASM200A0 

ASM20050 
ASM20060 

ASM20070 
ASM20080 

ASM20090~ 



1540R 


0210 






STB 


ONEtERRORF 


ENDING CR CAME BEFORE ' 




156CR 














1544R 


430E 
0002 






B 


2<LINK) 




RETURN TO GO TO EDIT LAST 






• s««o«»*«i>«»»»*«»*«»»«»«*«*««««««»<»*«»«*«o*«««««»«««««« 






o 






*.»».»• . 


DATA-- AREA »»»«« # 






• 


TABLES 












•#•»«*#••»»»»*•«»»»##»»•»»***»»•»»»»**»*«*»»**»»»#»#*»» 






t 


TABLE 


OF 


ASSEMBLER 


DIRECTIVE ROUTINE ADDRESSES 


1548R 


070ER 


DTABLE 


DC 


DC 




CODE=X'E0« 


154AR 


06CAR 






DC 


DO 




. COOEsX'El' 


154CR 


06EBR 






DC 


DS 




C0DE=X'E2« 


154ER 


075ER 






OC 


END 




CODE = X«D3« 


1550R 


05D8R 






DC 


ENTRY 




C0DEsX«E4i 


1552R 


06^AR 






DC 


EQU 




C0DE=X«C5« 


1554R 


05D0R 






DC 


EXTRN 




C0DE=X«E6« 


1556R 


054QR 






DC 


OPT 




C0DE=X«C7» 


1558R 


066ER 






DC 


ORG 




C0DE=X»C8» 


155AR 


04ECR 






DC 


TITLE 




C0DE»X'C9» 


155CR 


0118R 






DC 


PAUSE 




CODEsX'CA* 


155ER 


22EAR 




V 


DC 


DB 




CODE=X«EB' 






• 


THE •' 


END" 


C0DE=X«D3 


I' AND THE "IF" CODE = X'DO» 






• 


THE " 


IF" 


AND "END" 


ROUTINES 


ARE REACHED PRIOR 






a 


SWITCHING 


THROUGH " 


'DTABLE" 









• S=SYM 


BOL 


1560R 


0045 


ERRORE 


DC 


I562R 


0052 


ERRORR 


DC 


1564R 


0055 


ERRORU 


DC 


1566R 


0054 


ERRORT 


DC 


1568R 


004F 


ERRORO 


DC 


156AR 


004D 


ERRORM 


DC 


156CR 


00^6 


ERRORF 


DC 


156ER 


0053 


ERRORS 
• AS A 


DC 
PAR 



TABLE OF LINE ERROR FLAGS 

ERROR FLAGS SET DURING EACH SOURCE LINE'S EVALUATION. 

E=EVENESS REQUIRED OF Rl OR R2 FIELD OF INSTRUCTION 

R=REL0CATA8ILITY OF AN EXPRESSION IN OPERAND ILLEGAL. 

UrUNDEFINED SYMBOL WITHIN AN OPERAND'S EXPRESSION 

T=TRUNCATING EXCESSIVE DIGITS IN CONSTANT NECESSITATED 

OaOPERATION -MNEMONIC- -WMMtlD- 

M=MULTIPLE DEFINED SYMBOL USED IN LABEL 

F=FORMAT ERROR 

S=SYM80L TABLE OVERFLOW ASSIGNED HIGHEST PRIORITY 

X»0045» 

X'0052' 

XiOOSS' 

X'0054« 

X'OOAF' 

XI 00<*O • 

X»0046» 

X'00S3» 
PARTICULAR TYPE ERROR OCCURS THE APPROPRIATE FLAG 
» ABOVE GET SET EQUAL TO ONE. IF MULTIPLE ERRORS ARE 

• FOUND. THE PRINT ROUTINE PACKS THE ERROR OF HIGHEST 

• PRIORITY. 

• ERRORS FROM HIGH TO LOWEST PRIORITY=S.F»MtO»T.U.R.E. 

• THE FLAGS TABLE CONTAINS SYMBOL TABLE OUMP ERROR 

• FLAGS FOR CONDITIONS MENTIONED IN THE COMMENT FIELD 



1570R 5520 

1572R 2A3E 

1574R 2A20 

1576R 2A20 



FLAGS 



OC 
OC 
DC 
DC 



C'U ' 
C«»>' 

C'» • 

c»» • 



BITS 0010FORWARD REFERENCE 
BITS 01X)0 DEFINED EXTRN 
BITS 0110 UNDEFINED EXTRN 
BITS 1000 DEFINED ENTRY 



ASM20100 

ASM20110 

ASM20120 
ASM20130 
ASM20140 
ASM20150 
ASM20160 
ASM20170 
ASM20180 
ASM20190 
ASM20200 
ASM20210 
ASM20220 
ASM20230 
ASM20240 
ASM20250 
ASM20260 
ASM20270 
ASM20280 
ASM2028S 
ASM20290 
ASM20300 
ASM20310 
ASM20320 
ASM20330 
ASM?0340 
ASM^0345 
ASM20350 
ASM20360 
ASM20370 
ASM20380 
ASM20390 
ASM?0<»00 
ASM20410 
ASM20420 
ASM20430 
ASM20440 
ASM?0450 
ASM?0460 
ASM20470 
ASM20480 
ASM20490 
ASM20500 
ASM?0510 
ASM?0520 
ASM20530 
ASM20540 
ASM20550 
ASM20560 
ASM^0'--70 
ASM20"3«0 
ASM?0S90 
ASM20600 
ASM20610 
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1578R 2A3C 
157AR 442A 
-U7CR 442* 



157ER 

IS82R 

1582R 
1584R 
1 5 86 R 
1588R 
158AR 

158ER 
1590R 



0000 
0000 

0404 

0404 

0404- 

0808 

0C0C 

004C-- 

0000 

0000 



1592R 
1596R 
-1S9AR 
159ER 
15A2R 
15A6R 
15AAR 



4327 

X4C2R 

4827 

1442R 

SB2J.__ 

148AR 

4128 

1434R 

4327 

14E2R 

4527 

1EAAR 

4427 

4E«2* 



15AER OOOC 



15B0R 
15B0R 
15B2R 
15B4R 
15B6R 
15B8R 
15BAR 
15BCR 
15BER 
15C0R 
1SC2R 
15C2R 
15C4R 



0000 

0000 

0000 

04100- 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



DC C«»<« 

DC CiD»« 

-gC C»O at 



BITS 1010 UNDEFINED ENTRY 
BOTH EXT/ENTRY, DEFINED 



. CONTROL ITEM TABLE CONTAINS NUMBER OF DATA ITEMS FOLLOWING 
• EACH SBECJWC LOADER CONTfiQL ITEM IN PC 
CONTRL OC OtO ITEMS Otl.2,3 



OO- 
OC 
OC 
-OC— 



-3-..- 

X»0404« 
X«0404» 
Xt Q404I 



ITEMS 4. 5*6.7.8.49 



PC 
ITEMS 



OC 
OC 

OC 

DC 



X*0808« 
X«0C0C« 






ITEMS AS.B 
ITEMS C&O 
I 7EMS E t F 



PUNCH CONTROL ITEM 

NUMBER ITEMS TO FOLLOW CONTROL 



• CTABLE CONTAINS SWITCH ADDRESSES FOR DC ROUTINES 
CTABLE DC X»4327t .CHRCON -IF C« SWITCH TO 1 OR 2 CHR 



DC 



X»4827»,DEC 
MSA??', HEX 



OC 

~DC~ 

OC_ 

DC 



X«4128»,ADRS 



IF H» SWITCH TO DECIMAL 
-OF X» SWITCH -JO-_HEXIDECIMAL- 
IF A < SWITCH TO ADDRESS CN 
IF C» SWITCH TO CHR STRING 



X»4327»tOCCHR 

XI-4S27-UJUELOATE J SI NG L E PREC IS ION FLTPOINT 

X»4427»tA<FL0AT0> DOUBLE PRECISION FLTPOINT 



• TYPE CONSTANT (TYPECN) SET=12 TO ALLOW EXPRESSION EVALUATOR 

• ROUTINE TO ASSEMBLE ONLY INSTRUCTION CONSTANTS 

• WHEN -TYPECN SET .*. 20- AEXP— ASSEMBi£S -OC CONSTANTS 
TYPECN OC 12 

• T£MPORAPX-^IOaAfiE.fn0 APTD , ruppf «fSION # EVALUAfoR # aoUTINt: 



OC 



DATA EQU 

COMBO DC 

EXTFLG DC 

FRF 

RELC* 

RELFLG 

V2 

- VI- 

MFLAG 
PAREN 
ASIEUL 
ENDATA 



DC 
DC 
DC- 
DC 
DC 
DC__ 
EQU 



-S£X*EXP--HAS-MORE- IHAN-14IEM— 

FORWARD REFERENCE FLAG 
C OUNT OF BF I rnM HTNATTn N «; 





JSL. 
•-2 



=1 IF VALUE RELOCATABLE 
HOLDS TEMP ITEM FOR AEXP 
HO I PS TFMP IT EM EOR-AEXP 



ITMFRF OC HOLDS FRF OF INDIVIDUAL ITEM 



• TEMPORARIES AND FLAGS 



ASM20620 

ASM20630 

AS M20 6 40 - 

ASM20650 

ASM?0660 

ASM20670 

ASM20680 

ASM20690 

ASM20700 

ASM20700 

ASM207O0- 

ASM20710 

ASM20720 

A S M 2 7 3 Q 

ASM20740 

ASM20750 

ASM20760 _ 

ASM20770 

ASM20780 



ASM20790 

ASM20flOQ . 

ASM20810 

ASM20820 

ASM20830 

ASM20840 

ASM20850 
ASM20860 
ASM2O070 
ASM20880 
ASM20890 
ASM20900 
ASM20910 
ASM20920 
ASM20930- 
ASM20940 
ASM20950 
- ASM2096Q .- 
ASM20970 
ASM20980 
ASM20990 
ASM21000 
ASM21010 
ASM21O20. .._. 
ASM?1030 
ASM21040 
ASM21 050 
ASM21060 
ASM21070 
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15C6R 0000 
15CBR 0000 
15CAR 0000 



15CCR 0000 



15CER OQOQ 



1500R ?0^»6 
15D2P 20.^2 
1504R 0000 
15D6R 0000 



1S08R 0000 
15DAR 0000 



1SOCR 0000 

15DER 0000 
15E0R 0000 
15E2R OOOO 
15E4R 0000 

15E6R 

15F0R 

15FAR 

1612R 0100 
FF0O 
0080 
FF80 



161AR 0001 
161CR 

161CR 0002 

161ER 0001 

1620R 0001 

1622R 0001 

1624R 0001 

1626R 0000 

1628R 0000 



162AR 23E4R 



• XNBITS HOLDS CODE TO DIFFERENTIATE BETWEEN ENTRY OR EXTRN 
XNBITS DC X'OAOO* OR X«0600« 

SAVLOC DC 

SAVFRF DC SAVE CELL 

• RFCF IS A FLAG FOR ADJUSTING PROPER REFERENCE AODRESSES 

• RFCF * 0.1 REFADRS = LOCATION COUNTER 

• RFCF = 2» REFADRS = LOCATION COUNTER ♦ 2 
RFCF DC 

• AFIELD IS A FLAG TO. THE JkEXP ROUTINE TO ALLOW 

• STRINGING OF REFERENCE ADORESSES ONLY THROUGH 

• HALFWORO ADDRESSABLE CELL LOCATIONS 

AFIELD DC 

• FSPACE AND RSPACE ARE INDEXED INTO FOR APPROPRIATE CHARACTER 

• SPACES FOR AN ABSOLUTE DEFINED VALUE 

• F FOR A FORWARD REFERENCE AND R FOR A RELOCATABLE VALUE 
FSPACE DC X»2046» 

RSPACE DC X'2052' 

EOL DC END OF LINE SIGNAL 

FLTFLG DC SINGLE PREC.=0. DOUBLE s 1 

. SAVE,PFLAG.W1.W2.W3,W4.W5 REQUIRED SEQUENTIALLY FOR FLOAT 

• SAVE USED BY MAIN FLOW AND FLOATING POINT ROUTINE 

SAVE DC 

• FLAG FOR PERIOD IN DC Ei AND D« CONSTANTS 
PFLAG DC 

• W1/W2 HOLD(S) ASSEMBLED OBJECT DATA 

• Wl.2.3.4,5 WORDS REQUIRED FOR FLOATING CONVERSION 
Wl 
W2 
W3 
W4 
W5 

• TEMPORARY SYMBOL STORAGE 



DC 





DC 





DC 





DC 





DC 






ss 



OS 



10 



• TEMPORARY LABEL STORAGE 

LS DS 10 

SAVREG DS 24 

DBCONS OC X»0100«.X»FF00».X»0080«.X«FF80« 



•••••••••••••••••••••••••••••••••••••••••••••••••••••it* 

» ASSUMED OPTIONS= PASS2«PRINT, PUNCH. STOP.NOSCRATCH. NOSEO. FLOA T 



PASS 
OPTION 
OPASS 
OPAUSE 
OPRINT 
OPUNCH 
OPNFLT 
OPSCRT 
* OPSQNM 



DC 

OC 
DC 
DC 
DC 
OC 
DC 
OC 



1 

X«0002» 

X'OOOl' 

X'0001* 

1 

1 







PASS1=1 ,PASS2=2»PASS3=3 
STOP=1»GO=0 
PRINT=1.NOPRINT=0 
=0»NOPUNCH»=1 PUNCH 
=1KEEP FLOAT»=0OVERLAY 
0=NOSCRATCH. IsSCRATCH 
=0NOSONUMCHK»=lCHECK SQNUM 



» POINTERS 

• POINTERS TO SYMBOL TABLE BOUNDARIES 
STO OC SYMTAB 



ASM21080 

ASM21090 

ASM21100 

ASM21110 

ASM21120 

ASM21130 

ASM21140 

ASM21150 

ASM21160 

A^M21170 

ASM21180 

ASM21190 

ASM21200 

ASM21210 

ASM21220 

ASM21230 

ASM?1240 

ASM21250 

ASM?1260 

ASM21270 

ASM21280 

ASM21290 

ASM?1300 

ASM21310 

ASM21320 

ASM21330 

ASM21340 

ASM.J1350 

ASM^1360 

ASM21370 

ASM21380 

ASM21390 

4SM21400 

A^M^IMO 

ASM?1420 

ASM?1430 

ASM21440 



ASM;el450 

ASM?1460 
ASMP1470 
ASM21480 
ASM.31490 
ASM?1500 
ASM?1510 
ASM21520 
ASM21530 
ASM21540 
ASM21550 
ASM?1560 
ASM?l r 'M 
ASM21S8J 
ASM21590 
ASM21600 
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162CR 23E4R 

1A2FP 3FFF 

1630R 1918R 
1633R 1€A8R 



1634R 
1636R 


0000 
0000 






1638R 


0001 
8000 
-0042- ..... 



0001 

0001 

0001 

0001 

0000 

4UX0O 

23E4R 

23E4R 



164ER 178AR 
17ECR 



0000. 
179AR 
0000 
4W27- 
0020 
0000 
000 - 

oooo 



1654R 



1662R 0000 
J10SJ 
0002 
0000 
OflflO 
0000 
0000 
0000 
2020 
2020 
2020 
2020 
16A0R 
1714R 
FFFF 
2031 



STE DC SYMTAB 

• POINTER TO MAXIMUM LIMIT SYMBOL TABLE CAN EXPAND To 

SIZE OC -X-*-3F#*« - 

• POINTERS TO OP TABLE BOUNOARIES 
OPORG DC OPTAB 

OPENO PC OPTABE 

• NEXT HOLDS A POINTER TO A SYMBOL TaBLE ENTRY 

• EITHER THAT OF A MATCHING SYM80L OR AS A POINT OF 
« INSFPTTnu t rnp a SJtM BOl A B SFN T F ROM TH f T API F 
NEXT DC 
XADRS DC HOLDS TRANSFER ADDRESS OF "END" 



• INITIALIZATION DATA 



jl PASS l ftPTTrm mwTPni tkittta j T 7ATinM oa t^ 

OPTS DC 1,X«8000»» 2*1, 1 »1»I,0.0»SYMTAB. SYMTAB 



»XISJ ROUTTNF'S &ESISTFR INITIAI T7ATT0M HATA 

LMDATA DC PR,PR2, 0,SRt0»X«27» »X«20« ,0,X «0D« , 



SVCHR1 EQU 
•-JEACH^ASS 

• WITH CONTENTS 
PSETUP DC 



LMDATA*6 
TNTTTAI I7ES. 



OF PSETUP 
0tlt2»0,0.0»0»0tC« 



HOLDS SOURCE'S FIRST CHAR 
6FN F RA I R F BIST F RS AND J1AIA flELOJL 



•»PB1»PB2,-1,C 1» 



-Jr. 



ASM21610 
ASM21620 
ASM? 1*30 
ASM21640 
ASM21650 
ASM21640- 
ASM21670 
ASM21680 
ASM21690 
ASM21700 
ASM21710 
-ASM2L720 _ 
ASM21730 
ASM21740 
ASM21750 
ASM21760 



ASM21770 
ASM21780 



ASM21785 
AS.M21190- 
ASM21800 
ASM21810 
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1682R OOOO 



1684R 0000 
1686R 0001 



1688R 00C2 
168AR 0000 
168CR 0000 
168ER 0000 
1690R 0000 



1692R 0000 
1694R 

169CR 16A0R 
1714R 



16A0R 

170CR 3002 
0000 
16A0R 
1 708R 

1714R 

1780R 3002 
0000 
1714R 
177FR 



1788R 0000 

178AR 

179AR 

17E8R 

17EAR ODOA 

17ECP 

184CR ODOA 

184ER OCOO 
0000 
0009 
0000 

1856R 

1856R 2020 

1858R 2020 

185AR 2020 

1S5CR 

1894R 2020 
5041 



• THIS OROEREO SET OF PASS INITIALIZED DATA MUST 

• RESIDE DIRECTLY BELOW PB1 

•LSTART USEQ sO» PASS STARTED t NO LISTING I/O YET. 

• LSTART = I, LISTING I/O & PROCEED IN PROGRESS 
LSTART DC 0000 LISTING START FLAG 

• PSTART USED =01 PASS STARTEO. NO PUNCHING I/O ET. 

• PSTART =1 PUNCHING I/O & PROCEED IN PROGRESS 
PSTART OC 0000 PASS START FLAG 

DC 1 

= FOR CONDITIONAL NON-ASSEMBLY MODE 

= NON-ZERO FOR UNCONDITIONAL ASSEMBLY 



MODE 

• ASSEM 

• ASSEM 
ASSEM 

*LCOUNT 
DOC 
LOC 
MAXLOC 



OC 
DC 
DC 
DC 

DC 



=2 UNCONDITIONAL ASSEMBLY 



"DO" OP 



.2 



HOLDS OPERAND OF 

LOCATION jCOUNTER 

MAX LOCATION TO BE ASSEMBLED 

FLIPS = MEANS EVEN NUMBER OF FLIPS SENT TO TAPE / RELOCATABLE 
FLIPS =1 MEANS ODD NUMBER OF FLIPS SENI TO TAPE/ABSOLUTE MODE 
DC 

DS 8 SEQUENCE # OF SOURCE LINE 

DC PB1.PB2 



FLIPS 
*SEGNUM 
PBSWCH 



• I/0-BUF.EFRS - 



PBI OS 
PB1BLK DC 



PB2 
PB2BLK 



DS 
DC 



108 PUNCH BUFFER ONE 

X«3002»*STATUS»PBltPBl*107 BINARY/WRITE/PROCEED 



108 PUNCH BUFFER TWO 

X»3002« ,STATUStPB2.PB2*107 BINARY/WRITE/PROCEKO 



• P8X IS CLEARED WHENEVER THE PUNCH BUFFER IS CLEARED. 

• PBX IS AN INOEX INTO THE PB'S 208 4BIT DATA POSITIONS 
PUNCH BUFFER INDEX 
it PRINT REC0R0 
80 MAX SOURCE LINF LFNTH=80BYTFS 



PBX 
PR 

SR 
SREND 



PR2 



DC 

DS 

OS 

EOU 

DC 

DS 

OC 



• -2 

X»0D0A« 
96 
X«OD0A« 



LISTING OUTPUT BUFFER 



*- FFEED 



DC 



X'0C00«,0t0.0 FORM FEED ♦ NULL CHARS 



HEADER DO 
*OC 
"DC 
fDC 
OS 
- OC 



>TR 



3 

XI2O20I 
X'2020« 
X«2020« A 

56 

Ci PAGE 



TITLE RECORD 



ASM21820 
ASM21830 
ASM21840 
ASM21850 
ASM.U860 
ASM21870 
ASM21880 
ASM21890 
ASM21900 
ASM?1910 
ASM21920 
ASM21930 
ASM21940 
ASM21950 
ASM21960 
ASM21970 
ASM21980 
ASM21990 
ASM22000 
ASM22010 
ASM22020 

ASM220 JO 
ASM22Q40 
ASM22050 
ASM22060 
ASM22070 



ASM22080 
ASM22090 



ASM22100 
ASM22110 
ASM22120 
ASM22130 
ASM22140 
ASM22150 
ASM22160 
ASM22170 
ASM22180 
A5M22190 
ASM22199 



ASM22200 
ASM22210 

ASM22210 
ASM2??'0 
ASM22220 
ASM22230 
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47*5 

2020 

1A9CR 2«31 

189ER OAOO 



<pAOC 



OC 
DC 



C*-44_.. 



> DC x»oaoo» 

• OS SVC PARAMETER CflMIROL BLOCKS 

• LOGICAL WIT ASSIGNMENT 

smw r F inr u t n ftvfrE ■ i naif al^umit m i 



Hf XIMa i ft PA GE NUMBER - 

exwa line feed after title 



srblk 



OC 



0000 

18A0R 0005 
00 05 

18A4R 4801 

0000 

1 79 A R 

17E9R 
18ACR 2803 

0000 

18<»ER 

189FR 
J.BB4R 20.04 

0000 

179AR 

1IE9R 
18BCR 0804 
18BER C004 

000ft 
18C2R 8201 

0000 
4SC6R 8803 

0000 
18CAR 2003 

' •■"^tSl -OOOO- - - 

i3<-£/il7ECR 

1840R 

48D2R 0803 PMUAIX OC- 

1804R 0802 PBWAIT OC 
18D6R 0001 SUSPND DC 
1808R 8886— - CNVERT OC- 

1912R 



* BINARY OUTPUT DEVICE s LOGICAL i>N!T # 2 

# LISTING DEVICE a LOGICAL UNIT # 3 
.a SCR A TCH D EVICE s I nr,ir.AJL,})NIT $ A, 

STATUS EOU 
SIZES DC 5.R 



X«480I«, STATUS. SR.SR+79 ASCI I /READ/WAIT 



+ TRBLK OC [ X»?803».STATUS»Frli^,HtAOeR*73 



SCBLK. DC4 — ILtaftOAi .SmUS.SR.«tfi«7V ASCTI/XRXIE/PJUacEEO^ 



SCWAIT 

SCRWD 




X»0804» *AIT ON LU4. SCRATCH 

X»C004«, STATUS REWIND LU> 



X*8201*. STATUS BACKSPACE LU1 TO FILE MARK 

K H B 03I . ST A TUS WRITE EMQ . Q F - F I LE TO L I STDV 

X»2003«, STATUS. PR2,PR2*97 ASCI I /WRITE/PROCEED 



Xi 8 03 1 



X«0802« 
1 
. 6.ERRCNT 



W A IT ON LU3.L IST DE VICE 



WAIT ON LU2. OBJECT DEVICE 



^MESSAGE BlirfEflS. 



18DCR 0007 

0046- 

S0*I 
5353 
2031 

18E5R 

18E6R 0006 

18E£R 
18EAR 0007 
OOOE 



PASBLK DC 



7.6.CPASS 1» 



PASNUM EQU 
ERBLK1 OC 



6»A(ERBLK2»4> 



ERBLK2 OC 



7. 14. 0.0* C« I/O ERROR* 



ARM22240 
4SM22250 
ASM22270 
ASM22280 
ASM22290 
ASM22300 
ASM22310 
ASM22320 
ASM22330 

ASM22350 
ASM22360 

ASM22370 



ASM22380 

ASM224D0. 

ASM22410 
ASM22420 

ASM22430 

AS M 22 43 5 

ASM22440 



A SM2 2 45 - 
ASM22460 
ASM22470 
ASM22480 

ASM22490 



ASM22510 
ASM22520 



ASM22530 
ASM22540 

ASM22550~ 
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0000 
0000 
2049 
2F4F 
2045 
5252 
4F52 

18FCR 4E4F 
2045 
5252 
4F52 
5320 
0A00 

190BR 2121 
2045 
5252 
4F52 
5320 

1912R 0000 
0000 
OAOD 



NOERR 



DC 



YESERR OC 



ERRCNT OC 



C'NO ERRORS'. X«0A0D» 



X'2121'.O ERRORS' 



O.O.X'OAOD' 



1918R 


82EA 
4180 


0PTA8 OC 


191CR 


8265 
4100 
424C 


DC 


1922R 


824E 
4100 
4348 


OC 


1928R 


88CE 
4100 
4348 
5200 


DC 


1930R 


82E4 
4180 
4354 
4500 


DC 


1938R 


826A 
4180 
4500 


OC 



• MNEMONIC OP CODE TABLE FOR INTERDATA ASSEMBLERS. 

*••#«•*.*•** *.•*„**•• ft **».ftftJUM**t »»»»»»«#»*.>*ft»#«ft«ftftftftft»ft 

• FOR EACH MNEMONIC* BYTE1 CONTAINS CODE 

• BYTE 2 CONTAINS MACHINE OP COOE FOR INSTRUCTIONS 

• BYTE 4 CONTAINS EXTENSION FOR EXTENDED INSTRUCTIONS 

• BYTE 3 CONTAINS FIRST LETTER OF MNEMONIC 

• BYTES 5, 6, ETC. .CONTINUE WITH REMAINING LETTERS OF MNEMONIC 

• LAST BYTE* IF SUPERFLUOUS. HAS ZERO FILLER 

• MACHINE INSTRUCTION ENTRY CODE BYTES START WITH X'8» 

• OPTION STATEMENT MNEMONICS* COOE BYTE START WITH X'9' 

• ASSEMBLER -OlBECXtVE- M NEM O N I C S » ENTRIES HAVE 

• CODE BYTE STARTING WITH X'E.D. OR C 

• BEGINNING OF EACH ENTRY DETERMINED BY NEGATIVE CODE 
ft OF FIRST HA4-FWORO 



X'82EA'.X'4180« A 
X'8265«,X'4100'.C'BL' ABL 

X'824E'.X'4100'.X'4348' ACH 

X'880E',X'4100'.X'4348«.X'5200' ACHR 

X'82E4',X'4180'.C'CT'.X'4500' ACTE 

X•826A•,X•4180• .X'4500' AE 



ASM22560 



ASM22570 



ASM22580 



ASM22590 
ASM22600 
ASM22610 
ASM22620 
ASM22630 
A5M22640 
ASM22650 
/VSM22660 
ASM22670 
ASM22680 
ASM22690 
ASM22700 
ASM22710 
ASM22720 
A5M22730 
ASM22740 
ASM22750 

ASM22760 



ASM22770 



ASM22780 



ASM22790 



asm22boo 



INTFNDATA OS 

193ER 882A 

41C0 

45S2 
1944R 824A 

4100 

.^40* 

194AR 82CA 

4100 

AA49 

1950R 8261 

4100 

4840- 

1956R 880 A 

4100 

A852. 

195CR 826A 

4100 

485a 

1962R 82 D F 

4100 

49041 
1968R 889F 

4100 

49S2 
196ER 8826 

4100 

4953 
1974R 83D5 

4100 

4C00 

197AR 8264 

4100 

__ S44C 

1980R 8343 

4200 
1984R 8241- 

4200 

414C 
19SAR 8261 

4200 

414C 

490* 
1992R 8801 

4200 

41AC 

5200 
199AR 8342 

4280 

4300 
19A0R 8C02 

4280 

4352 
19A6R 8D20 

42M 

4353 
19ACR 8343 
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DC X'824A»,X»4100»»X»4800« AH 



DC X»82CA«,X»4100'.X»4849» AHI 



DC X»8261»,X»4100»»C«HM« AHM 



OC X»880A»«X«4100».X«4fl52« AHR 



DC X«826A«,Xi4100«,CiHS» AHS 



DC X«82DF«tX»4100«tX«4900» AI 



DC X«889F»,X«4100 , tX«4952» AIR 



OC X«8826«,X»4100«tC«IS» AIS 

DC X»83D5»tX»4100«.X»4C00» AL 



OC X'8264»,X»4100«.C»TL« ATL 

. — __ , ___^ 

DC X«8343»tX»4200» 8 

OC X 182AUUX »420Q »m 



DC XAB261». Xt4?not.c.tAI uAlAflQjQ J BALI 



OC X«8801«,X»4200 , .X»414C«»X»5200» BALR 



OC X«8342i,X»4280«tX»4300« BC 



DC X«8C02t,X»4280»»C«CR« BCR 



DC X»8D20«.X«4280»»C»CS» BCS 



ASM22810 



ASM22820 
ASM22830 
ASM22840 
ASM22850 



OC X«8343»,X»4230«»X'4500« BE 



ASM22860 
ASM22870 

ASM22880 

ASM22890 

ASM22900 

ASM22910 

ASM22920 
ASM22930- 

ASM22SAa 

ASM22950 

ASM22960 
ASM?2970 
ASM22980 
ASM22990 
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19B2R 
19B8R 
19BER 

19C6R 
19CCR 

19D4R 

19DCR 

19E4R 
19EAR 
19F0R 
19F6R 
19FCR 
1A02R 
1A08R 
1A0ER 
1A14P 

1A1CR 



4230 
4500 
SC03 
4?J0 
45b2 
8022 
4230 
4553 
8822 
4200 
4642 
5300 
8243 
4200 
4643 
8263 
4200 
4643 
4900 
8803 
4200 
4643 
5200 
8823 
4200 
4646 
5300 
82DC 
4200 
4940 
8342 
4280 
4G0* 
8C02 
4280 
4C52 
8D20 
4280 
4C53 
8342 
4210 
4000 
8C02 
4210 
4052 
PD<?0 
4?10 
4Db3 
8343 
4280 
4E43 
8C03 
4280 
4E43 
5200 
8D22 



OC Xt8C03«,X»4230«.C«ER» BER 



OC X » 8022 ».X» 4230 



DC X 18822 1 »X» 42-00 



DC X»8243«,X»4200 



DC X»8263«.X«4200 



DC X«8803»tXt4200 



DC X»8823'.X«4200 



DC X«82l)C»,X»4200 



OC X«8342«,X«4280 



DC 
DC 
OC 
OC 



X»8C02«,Xt4280 



X»8D20».X»4280 



Xi8342«fX»4210 



X»8C02»,X«4210 



DC X«8D20»,X«4210 



DC X«8343»tX»4280 



DC X»BC03».X«4280 



DC X»8D22«.X«4280«»C'NC»»X«5300» BNCS 



»C«ES» BES 



»C • FB • . X • 5300-'- BFBS 



tX»4643« BFC 



tC«FC«.X«4900« BFCI 



»X»4643«.X«5200« BFCR 



♦C'FF',X«5300' BFFS 



,C«IM« BIM 



.X»4C00» BL 



.C'LR« BLR 



»C»LS» BLS 



•X»4000» BM 



.C'MRi BMR 



tC'MS' BMS 



♦C«NC» BNC 



»C»NC«.X"5200« BNCR 



ASM23000 
ASM<;3010 
ASM23020 

ASM23030 
ASM?3040 

ASM23050 

ASM23060 

ASM?J070 
ASM23080 
ASMP3090 
ASM23100 
a<;m?31 10 
ASM23120 

ASM?3130 
ASM?3140 

flsM^:.t > s'i 

ASM23160 
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4280 

4E43 

5300 

1A24R 8342 
4230 

— 4 C4 5 

1A2AR 8C02 

4230 

- 4£4S 



DC Xi8342i,Xi4230»,Xi4E45« BNE 



DC X»8C02»,X«4230«.C»NE'»X«5200» BNER 



5200 

1A32R 8020 

4230 

4E*5 

5300 

-4A3AR B343 

4280 

4E4C 

1A40R 8C03 

4280 

4E4C 

5200 

1A«8R 8D22 

4280 

^4£4C 

5300 

1A50R 8343 

- A21L 

4E4D 
1A56R 8C03 
421ft _ 



DC X»8D20t,xt< > 230»,C'NE«,X»5300t BNES 



OC- JCiaCO3 i .X t4 2a 0» . C l-NV t ,X t52 0» BNCft 

DC X»8D22»,X«4280»,C«NL»,X»5300« BNLS 



DC X«8343»,X»4210»fX»4E4D« BNM 



DC X»8C03« f X«4210»,CtNM»,X«5200« BNMR 



4E40 

5200 

1A54CR. -3022- 

4210 

4E4D 

5300 

1A66R 8343 

4220 

4E50 

1A6CR 8C03 

4220 

*£5©.._ 

5200 

1A74R 8022 

k22* 

4E50 
5300 
1A7CR 8342 
4230 
4E5A 
XAB2R BCtZ 
4230 
4E5A 

— _ _S2WL_ 
1A8AR 8020 
4230 



-OC * ,Hn?i>, ry'4 ai ft», r'N Ht , K iVt0 0i DMM 3 



OC X*8343«tX*4220*»X«4E50« BNP 



DC X«8C03«,X»4220».C»NP«,X«5200» BNPR 



OC X«8D22t,x»4220«,C«NP«,X»S300« BNPS 



OC XlB342'tX*4?lfl».xt 4F«;At n^j 

oc x.«aco2» tX'4?.in«jtCj.NZAj 1 jL!jH>iiLflj ._amzR_ 



ASM23170 



ASM23180 



ASM23190 

ASM23200- 

ASM23210 

ASM23220 

ASM23230 

ASM23240 

ASM232S4- 

ASM23260 
ASM23270 



ASM23280 

ASM23290 
ASM2330JL 



OC X»8D20»,X«4230»tC»NZ«»X»5300» BNZS 



ASM23310 
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1A92R 

1A98R 
1A9ER 
1AA4R 
1AAAR 
1AB0R 
1AB6R 
1ABCR 
1AC2R 

1ACAR 
1AD0R 

1AD8R 

1AEOR 

1AF8R 
1AEER 

1AF6R 
1AFCR 



4E5A 
5300 
8342 
42<»0 
4F00 
8C02 
4240 
4F52 
8D20 
4240 
4F53 
83^2 
4220 
SOOO 
8 CO 2 
4220 
5052 
8D20 
4220 
5053 
8C03 
4200 
S200 
8D22 
4200 
5300 
8820 
4200 
5442 
5300 
8242 
4200 
5443 
8262 
4200 
5443 
4900 
8802 
4200 
5443 
S200 
8821 
4200 
5446 
530$ 
82C0 
4200 
58<+8 
82C1 
4200 
584C 
4500 
8343 
4230 
5A00 
8C03 



DC X •8342 •« X • 4240 •,X'4F 00 « BO 



DC Xi8Ca2».X«4240«»C«0Ri BOR 



DC X«aD20«»X«4240«»C«OS» BQS 



DC Xia342«jX»422Q'*X«5QQQ' BP 



DC X»8C02»»X«422fl« tC»PR» BPR 



DC X«8D20».X«4220 , .C»PS« BPS 



DC Xt8C03»,X»4200».X»5200« BR 



DC X'8D22».X»42QO».X»5300« BS 



DC X«8820«fX»4200'»C'TB«»X«5300' BTBS 



OC X»8242»,X«4200».X'5443« BTC 



DC X«8262«»X»4200 , tC«TC« tX»4900» BTCI 



DC X«8802«»Xi4200»tX»5443«,X»5200« BTCR 



OC X»8821'»Xi4200«.CtTFi,X«5300« BTFS 



DC X«82C0«,X»4200».X»5848» BXH 



DC X»82Cl',X«4200«tX«584C».X«4500« BXLE 



DC Xi8343»,X«4230«»X«5A00« BZ 



DC X»8C03t,x»4230»»C«ZR» BZR 



ASM23320 

ASM23330 
ASM23340 
ASM23350 
ASM23360 
ASM23J70 
ASM?3380 
ASM23390 
ASM23400 

ASM23410 
ASM?3420 

ASM23430 

ASM2J440 

ASM23450 
ASM23460 

ASM ?:<<■> 7 
ASM23480 
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4230 
5A52 
■4B42R «022 
4230 
5A53 
:-82E9- 
4360 
8269 

4aao__ 



-4«©«R~ 
1B0CR 



1B12R 



4500 
8829 
43C0-- 



1B18R 



1B1ER 
1B24R 
1B2AR 
1B30R 

1B36R 

1B3ER 
IS44R 

1B4CR 



4552 
8249 
43AJL 



4800 
82C9 

4aoo 

4849 

82E1 

A304L 

484E 

8809 

4304- 



4852 
82D4 
430A- 

4C42 
8825 
430« 
4C42 

5200 

8245 
4300 
4C<*8 
■&2CS- 
4300 
4C48 
A944_ 
8805 
4300 
4C4&_ 



1B54R 

1B5CR 
1B62R 

1B68R 



5200 
82E3 
4380 
4F53 
4500 
EBOO 
4400 
4200 
EOOO 
4400 
4300 
826Q 
4480 
4500 



-OC Xia2E 9t , xi 438 Qi C 



OC X»8269» f Xi4380«»X«4500» CE 



DC X»8829«,X«43C0»,X'4552» CER 



DC X»8249t # x»4300».X»4800» CH 



DC X«82C9i,X»4300»tC»HIt CHI 



DC X«82EISX»4300».C»HN« CHN 



DC Xi8809t,X«4300«,CtHRi CHR 



DC X«82D4",X»4300«tC'LBi CL8 OF MODS 



DC 



X»8825«,X 14300 »,C«LB«,X»5200' CLBR 



-°C~ X MM84S1 ,¥t*innt »x i^ C4 8J CLH 



-OC X » B?r5 1 1 x 14 3 1 . X I »C48 1 . X lAXMM-CUO— 



DC X«8805«,X»4300»»X«4C48«,X«5200» CLHR 



DC X«82E3»,X»4380».CtOS»»Xt4500« COSE 



Xoc 



X» EHOO • .JU4A04' iJC »42qqi r)B 



DC X «E0 • »Xi4*0ft» *X1430 ♦_ PC 

DC J< • 826D« *JLI448JIJ iX • 450 o • Q£_ 



45 M23 4 9 

- AS M 2 3500 
ASM23510 



ASM23520 



ASM23530 



ASM23540 
ASM23550 
ASM23560 



ASM23570 
ASM23580 

ASM23590 

ASM23644 



ASM23610 

ASM23620 

ASM23625 
ASM23630 
ASM23640 



INTEHOATA OS ASSEMBLER 



1B6ER 882D 
44C0 
4552 
1B74R 8240 
4480 
4800 
1B7AR 880D 
4480 
4852 
1B80P E100 
4400 
4FC0 
1B86R E200 
4400 
5300 
1B8CR 0300 
4500 
4E44 
1B92R E400 
4500 
4E54 
5259 
1B9AR 8895 
45JM) 
5053 
5200 
LBA2R CSOO 
4500 
5155 
18A8R 8894 
4500 
5842 
5204 
1BB0R E600 
4500 
5854 
524E 
1BB8R 9801 
4600 
4C4F 
4154 
1BC0R 8208 
46C0 
4E44 
1BC6R 8898 
4600 
4E44 
5200 
1BCER 9200 
4700 
4F00 
1R04R 0000 
4900 
4630 
1B0AR 82E8 
4C80 



DC 
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OC X»824D',X»4480«tX«4800« DH 



OC X»8800«.X»4480«tX , 4852« OHR 



OC X»E100»tX»4400» tX«4F00» DO 



OC X«E200«tX«4400«.X«5300» OS 



OC X«D300»tX»4500»«C'ND» END 



DC X«E400'.X»4500».X'4E54«.X'5259» ENTRY 



DC x»8895«,X«4500'»C«PS«.X»5200« EPSR 



DC ^•C500«iX«45Qtt«»A'5155« EQU 



OC x»S894.i*X«4500»tC»X8«»XL524M)» EXBR 



OC x«E600«.X»4500«.X'5854».X«524E' EXTRN 



OC X»9801«,X«4600».C«LOAT» FLOAT 



OC 
OC 



DC 



Xi82D8»,X«4600«»C«ND« FNO 



X i 8898 • » X t 4604* »C • NO • ♦ X « 52AO • FNDR 



DC X»9200«.X»4700»»X«4F00« GO 



X»0000•»X•4900•»X•4600 , IF 



DC X«82E8«,X«4C80« L 



ASM?3650 
A^M?3660 
ASM23670 
ASMP3680 
ASM23690 
rtSM?3700 
ASM23710 

■\SM?3720 

ASM23730 
ASM23740 

ASM?3750 

ASM23760 

ASM23770 
ASM23780 

ASM23790 

ASM:'3hOO 
ASM23810 
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IBOER 9F00 
4C00 
4142 


DC 
OC 


X«9F00«,X»4C00»,X«4142« 


LABa 


ASM23820 


1BE4R 8203 
4C00 
424X4 


X»82D3«.X»4c00 , tX«4200« 


LB 


ASM23830 


1BEAR 8893 

4C00 

4252 


OC 


X«8893»,X»4C00'tX«4252« 


LBR 


ASM23840 


1BF0R 8825 
4C00 
4353 


DC 


X»8825»,X»4C00»»C'CS» LCS 


ASM23850 


1BF6R 8268 
4C80 
45*0 


OC 


X»8268«,X«4C80»tX«4500t 


LE 


ASM23860 


1BFCR 8828 
4CC0 

----- -4552 


OC 


X • 8828 «,X»4CC0»,X» 4552 • 


LER 


ASM23870 


1C02R 8248 
4C00 

ABiift 


OC 


X« 8248i, X«4C00«,X«4800» 


LH 


ASM23880 


1C08R 82C8 
4C00 

4849 


OC 


X • 82C8 • , X • 4C00 • « X • 4849 • 


LHI 


ASM23890 


ICOER 8808 
4C00 
- - A852 


OC 


X*8808< »X«4C00» »X»4852» 


LHR 


ASM23900 


1C14R 8268 
4C00 
4900 


DC 

oc 
oc 
oc 

DC 


X»8268»,X»4C00»»X»4900» 


LI 


ASM23910 


1C1AR 8824 
4C00 
4953 


X«8824i,X»4C00«tC»IS« LIS 


ASM23920 


1C20R 8201 
4C0O 
4000 

1C26R 83C2 
4C00 
5053 


X»82Dl«,X»4C00»tX»4D00» 
X«83C2«,Xt4C00».X»5053» 


LM 
•X«5700« LPSW 


ASM23930 
ASM23940 


5700 

1C2ER 826C 

4080 -... 


X»826C««X»4080«.X«4500' 


ME 


ASM23950 


4500 
1C34R 882C 
ADCo^ 


OC 


X«882C«,X»4DC0»»X«4S52« 


HER 


ASM23960 


4552 

1C3AR 824C 

4080 


DC 


X • 824C t,x« 4080 «,X •4800* 


MH 


ASM23970 


4860 

1C40R 880C 

4JQ80 


oc 


X«880Ct,X»4080«»X»4852» 


MHR 


ASM23980 


4852 

1C46R 82DC 

4D80_ 


DC 


X»82DC»,X«4D80»»C»HU» MHU 


ASM23990 


4855 
1C4CR 889C 


DC 


X»889C«,Xi4D80»»C'HU'.X« 


5200 » MHUR 


ASM24000 
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1C54R 
1C5AR 

1C62R 
1C68R 
1C6FR 
1C74R 
1C7AR 
1C80R 

1C8AR 
1C92R 

1C9CR 
1CA2R 
1CA8R 
1CAER 
1CB4R 
1CBAR 



4080 
4855 
5200 
8209 
4000 
4F56 
8899 
4000 
4F56 
5200 
8244 
4E00 
4800 
82C4 
4E00 
4849 
8804 
4E00 
4852 
82E4 
4E00 
4853 
8342 
4E00 
4F50 
9600 
4E0O 
4F50 
4F43 
4800 
8C02 
4E00 
4F50 

5200 
9400 
4EOO 
4F50 
524E 
5400 
820E 
4F00 
4100 
889E 
4F00 
4352 
8246 
4F00 
4800 
82C6 
4F0O 
4849 
8806 
4F0O 
4S52 
8266 
4F00 



DC 
OC 



X»82D9>,X»4D00»tC»OV« MOV 



OC 
DC 
OC 
DC 



DC 
OC 
DC 
DC 

DC 



X • 8899 1 , X « 4D00 • . C • OV • t X • 5200 « MOVR 



OC X«8244<,X»4E00»»X«4800' NH 



OC X«82C4«,X»4E00'.X'4849» NHI 



X'8804«,X«4E00»iX«4852» NHR 



X«82E4«,X»4E00».C»HS» NHS 



X•8342•.X•4E00•.X•4F50• NOP 



X»9600»»X«4E00»tX»4F50«»X«4E43».X«4800« NOPNCH 



OC X«8C02«»X«4E00».X'4F50«.X«5200» NOPR 



DC Xt9400«,X»4E00»tX«4F50«.X«524E«fX»5400« NOPRNT 



X«820E«,X«4FOO»»X«4300« OC 



X«889E«,X»4F00 , tX«4352« OCR 



X»8246i,X«4F00«.X»4800» OH 



X»82C6«tX«4F00'»X»4849« OHI 



X«8806» »X«4F00»»X'4852' OHR 



DC X«8266«,X«4F00»fC»HS» OHS 



ASM24010 
ASM24020 

ASM?4030 
ASM?4040 
ASM?4050 
ASM24060 
ASM?4070 
ASM24080 

ASM24090 
ASMP4100 

(\ c ;M?41in 
ASM24120 
ASM?4130 
ASM24140 
ASMP4J5C 
ASM24160 



INTERDATA 




4853 


1CC0R 


C700 




4FOO 




5054 


1CC(SR 


cnoo 




4F00 




5247 


1CCCR 


9001 




5000 




4153 




5331 


-1JCD4R 


90X12 




5000 




4153 


5332 


1CDCR 


9003 




5000 




4153 




5333 


1CE4R 


CAOO 




5000 




4155 




5345 


1CECR 


82E7 




5000 




4F50 


1CF2R 


9401 




5000 




5249 




4E54 


1CFAR 


82E6 




5000 




534S 


1DOOR 


9601 




5000 


, 


554E 




4348 


1D08R 


82D7 




5200 




4200 


1DOER 


8267 




5200 




424C 


1D14R 


8897 




5200 




4252 


1D1AR 


82DB 




52*0 




4400 


1D20R 


889B 


_ 


520* 




4452 


1026R 


8209 




5200 




4800 


102CR 


8899 
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DC X«C700«fX»4F00»»X»5054» OPT 



OC X , C800».X»4F00«.X«5247» ORG 



DC X»9001«tX»5000».X»4153«.X«5331» PASS1 



Jkl xsamzj *x»5ooojux >jas3±tx±sxi2j pass? 



+DC X»9003«,X»5000»tXt4153».X»5333t PASS3 



OC X»CA00«,X»5000«»C»AUSE» PAUSE 



X1&2E2- 1 » X » 5 J-»CXOeJL-^P-OP— 



DC Xt9*ai»*XJS00XU»X»S2A9l*XIA£5^» PRINT 



DC X»82E6«,X«5000».C»SH» PSH 



DC X«9601«,X»5000».X«554E , »X»4348» PUNCH 



DC X«82D7»,X«5200«tX»4200» RB 



DC X'8267«,X»5200«tC«BL« RBL 



DC X«8897»,X»5200»fX»4252« RBR 



DC Xi82DB»,X»5200».X»4400» RD 



DC X*889B»,X«5200».X»445Z» RDR 



DC Xt82D9«,Xt5200».X«4800« RH 



ASM24170 
ASMP4180 
ASM24190 

ASM2420& 

ASM24210 

ASM24220 

ASM2423« 
ASM24240 

ASM24250 
ASM24260 

ASM24270 
ASM24280 
ASM24290 
ASM24300 



ASM24310 



DC Xt8899»,X»5200«»C»HR» RHR 



ASM24320 
ASM24330 
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1D32R 

1D3£R 

1D3ER 

1H44R 

104AR 

1D50R 
1D54R 

1D5AR 

1D62R 

1D6AR 
1D70R 
1D76R 
107CR 
1082R 
1D88R 
1D8ER 

1D96R 



5200 
4852 
82EF 
5280 
4C00 

azta 

5280 

4C4C 

82EE 

5280 

5200 

82E.A 

5280 

524C 

8266 

5200 

544C 

82EB 

5380 

824F 

5300 

4348 

880F 

5300 

4348 

5200 

9A01 

5300 

4352 

5400 

826B 

5380 

4504 

8828 

53C0 

45b2 

8248 

5300 

4800 

82CB 

5300 

4849 

8808 

5300 

4852 

826B 

5300 

4853 

82E2 

5380 

494E 

4500 

83E2 

5300 

494E 

5400 



DC X«82EF«,X«528JL»»X»4C00»-RL 



OC 

DC 

DC 

DC 

DC 
DC 



DC 
DC 
DC 
DC 
DC 



-jc»a2£a» « x 1 52aai *c « ll j- r ll 



XJL82EE • . XJ52S0 • « X • 520X) X HR_ 



X '. B2EA'tX»5280 • j_C • Rl_» RRL 



X '8266' iXl52fl<LUC» T.L». RTL- 



X«82EB'.X«Ja3B0« S 
X'824F«.X«5300«tX«4348« SCH 



DC X«880F»,X«5300«tX»434a» tXtS200' SCHR 



DC X«9A01«fX«5300»»C«CR«tX»5400» SCRT 



DC X»826B»«X»5380»»X»4500» SE 



X«882Bi,X»53C0»»Xi4552« SER 



X»824B«,X«5300».X«4800' SH 



X»82CB»iX»5300'.X«4849t SHI 



X«880B»,X»5300».X«4852« SHR 



X«826B«,X«5300»«C«HS« SHS 



DC X«82E2«tX«5380«tC«IN«,X«4500» SINE 



DC 



X • 83E2».X • 5300 «»C« IN*. X" 5400* SINT 



ASM24340 

ASM24350 

ASM24360 

ASM24370 

ASM24380 

ASM24390 
ASM24400 

ASM?4M0 
ASM24420 

ASM24430 

4SM24440 
ASM24450 
ASM?4^60 
ASM24470 
ASMP4480 
ASM24490 

ASM24S0Q 



INTERDATA 


1D9ER 


! 8827 




5300 




4953 


10A4R 


H2EF 




5380 




4C41 .. 


1DAAR 


82CF 




5300 





AC48- 




4100 


1DB2R 


82CD 




5300 - _ 




4C48 




4C00 


1DBAR 


-B2EJX 




5380 




4C4C 


10COR 


aa9i_ 




5300 




4C4C 




5300 


10C8R 


9C01 




5300 




S143 ..... 




484B 


1DDOR 


8264 




5380 




5145 


1DD6R 


8824 




53C.0... 




5145 




5200 


IOOER 


82EE- 




5380 




5241 


1DE4R 


82CE 




5300 




52*8 




4100 


1DECR 


82CC 




5300 




5248 




4C00 


1DF4R 


82EC 




5380 




524C 


1DFAR 


8890 




530A 




524C 




5300 


1E02R 


8200 .. 




5300 




5300 


1E08R 


889D 




5300 




5352 
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OC X«8827»»X»5300»»C«IS« SIS 

OC X«82EF«,x«5380»tC«LA« SLA 
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OC X»82CF»,X»5300».X'4C4B , «X«4100' SLHA 



OC X«82CDt,x»5300'.X«4C48».X»4C00» SLHL 



-OC X i 8 2EDi ,X i53 8Q i , Ci LL i S LL 



ubbsuli 



SLLS- 



^OC X»9C01«tXt5300'tC«QCHK» SQCHK 



OC X»8264»tX«5380'»C*QE« SOE 



OC X«8824i,Xt53C0'iC»QE»»X«5200» SQER 



OC- 



t saaojuxuju j—saA- 



OC XI 82CE t*XiS34WM ♦XAS248-»^Xl 4400 • SRHA 



OC X«82CC«,X»5300»tX«5248«tX»4COO» SRHL 



OC X»82EC».X«5380»tC»RL» SRL 



OC Xt8890».X«5300».C«RL»tX»5300» SRLS 



U£ JLIfl2QQl.aX_t.33.ttO ' . X 1 530 1 SS 



BC __X »889 Dt,x«5300 'tX »5352' SS R 



ASM24510 
ASM24520 
ASM24530 

ASM24540 

ASM24SSO 
ASM2-4560. 

ASM24570 

ASM24580 
ASM24590 

A5M24&00 
ASM24610 

ASM24620 

ASM24630 
ASM24640 

ASM24.6S0__ 

.ASM24660_. 
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1EOER 


82E0 




5380 




5400 


1E14R 


82D2 




5300 




^5442 


1E1AR 


8892 




5300 




54*2 




5200 


1E22R 


8260 




5380 




5445 


1E28R 


8240 




^300 




5448 


1E2ER 


8260 




5300 




5449 


1E34R 


82D0 




5300 




5440 


1E3AR 


9201 




5300 




544F 




5000 


1E42R 


82E1 




5300 




5643 


4E48R 


82C3- 




5400 




4849 


~-iEAE*-Xr®m 




5400 




4954 




4C-4S 


1E56R 


8264 




5400 


— 


52*1 


1E5CR 


8824 




5400 




S24E 




5200 


1E64R 


8890 




550» 




4E43 




4800 


1E6CR 


82D6 




5700 




4200 


1C73R S83*. 




5700 




4252 


1E78R asm. . 




5700 




4400 



DC X«82D2«tX»5300»»X»5442» STB 



OC X»8892t,X«5300««X«5442»,X«5200« STBR 



OC X»8260».X»5380«.X«5445» STE 



DC X»8240»tX»5300«tX»5448« STH 



DC X»8260».X«5300»tC«TI» STI 



OC X«82D0««X«5300»*X«544D» STM 



DC X»9201»,Xi5300».X»544Fi,Xt5000« STOP 



DC JL£fl2EU£)L*5aaft!j£!3!£* SVC 



OC X « 8 2C 3 t >X «5 40Q t > C»HH TH I 



--tOC X «C9 0« , X'5 40Q t t CUTLE» TITLE 



OC X«8264t f xi5*00«tC»RN» TRN 



OC X»8824» f X»5400»tC»RN».X«5200» TRNR 



DC X«8890t,X«5500«.X»4E43»,X«4800» UNCH 



OC .X'820fti t X«5700«»Xi4200« *B 



£C — Xi8*96Jn 



4JC X' 82 D A >. X t570Qf t X *4 4 Q Q » MB 



ASM24670 
ASM24680 
ASM24690 

ASM24700 
ASM24710 
ASM24720 
ASM24730 
ASM24740 

ASM24750 
ASM24760 
ASM24770 

ASM24780*i 
ASM24790 

ASM24800 

ASM24810 
ASM24B2-0 
ASM24830 



INTEKDATA 
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1E7ER 889A 


OC X«889A»,X«5700».X»4452» WDR 


ASM24840 


5700 






445? 






1E84R 8208 


DC X»82D8«,x»5700»fX , 4800» WH 


ASM24850 


5700 






... 480© 






1E8AR 8898 


OC X»8898»,X»5700».C»HR» WHR 


ASM24860 


5700 






4852 


_ _ 




1E90R 8247 


OC X»8247«,X«5800»tXt4800» XH 


ASM24870 


5800 






4800 


_ 




1E96R 82C7 


OC X»82C7»tXt5800«»X'4849» XHI 


ASM24880 


5800 






4849 






1E9CR 8807 


OC Xt8807»,Xt5800«tXt4852« XHR 


ASM24890 


5800 






4852 






1EA2R 8267 


DC X«8267»,X»5800«tC»HS» XHS 


ASM24900 


5800 






4853 


._ 




1EA8R 8000 


OPTABE OC X»8000« 


ASM24910 

ASM24920 

ASJ124.430--- 

ASM24940 

ASM24950 


- - 


.-« FLOATING POINT DATA CONSTANT CONVERSION ROUTINES . _ 




• SINGLE PRECISION FLOATING POINT DC E« CONSTANT 


1EAAR 4000 


FLQATJL. SXM 7gR0.rL_Tt.fl SJLt-Oi E PBPr.t^yntj n Afi 


ASM24960 


15D6R 






1EAER 4300 


B FLOAT 


ASM24970 


1EB6R 








• DOUBLE PRECISION FLOATING POINT DC D» CONSTANT 


ASM24980 


1EB2R 4010 


FLOATO STH ONEtFLTFLG DOUBLE PRECISION FLAG 


ASM24990 


1506R 








• MFLAG WAS CLEARED BY AEXP ROUTINE 


ASM25000 




• CLEAR SAVE.PFLAG.W1.W2.W3.W4.W5 


ASM25010 


1EB6R C890 


FLOAT LHl COUNT ♦.12... _..... 


ASM25020 


OOOC 






1EBAR 4009 


FL0AT2 STH ZERO.SAVE(COUNT» 


ASM25030 


15n8R 






1EBER 0B92 


SHR COUNT. TWO 


ASM25040 


1EC0R 4310 


BNM FLOAT2 


ASM25050 


1EBAR 






1EC4R 41F0 


BAL EXIT. SIGN CHECK FOR LEADING ♦ OR - 


ASM25060 


141AR 






1EC8R OIF 3 


flALR. EXH.JSETL _ .._ BYPASS S I GN - IE RETURNED HERE 


ASM2S0.70 


1ECAR 4850 


LH R. MFLAG 


ASM25080 


15BER 






1ECER .4330 


BZ #♦« 


ASM25090 


1ED6R 




■ ^%*i#*-i-w--^**"*'-M 


1ED2R C850 


LHI R.X'SOOO* 


ASM25100 


8000 






1ED6R 4050 


STH R.V1 SET RESULTiS SIGN 


ASM25I10 


15BCR 






l£DAR_4_lFft _._. 
09D8R 


J-U-AJi. BAL -. EXITfDIGIT IS PRESENT CHAR A DIGIT?... 


ASH2.512.Q_.. 


1EDER 4300 


B EXPO RETURN HERE IF NOT A DIGIT 


ASM25130 
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If PER 






U'C?R V1F0 


BAL 


EXIT»MULTAD 


IFV2R 






' F r .'iP 'tfUiO 


LH 


R.PFLAG 


ISl'AH 






. ; t:.t.AR ft 3 JO 


8Z 


FL0AT3 


1EF8R 






,"EEER 4890 


LH 


COUNT, SAVE 


15D8R 






1EF2R 0B91 


SHR 


COUNT»ONE 


1EF4R 4090 


STH 


COUNT, SAVE 


1 SU8R 






iEF8fl 01F3 


FL0AT3 BALR 


EXIT, GET 


1EFAP 4300 


B 


FLOATl 


1EUAR 






1EFFP C5B0 


EXPO CLHI 


CHAR,C».« 


002E 






1F02R 4230 


BNE 


POSSE 


1F16R 






1F06R 4fl50 


LH 


R.PFLAG 


15DAR 






1F0AR 4230 


8NZ 


NUMENO 


1F4AR 






U"0£R 4010 


STH . 


QNEiPFjLAG ....... 


15DAR 






1F12R 4300 


B 


FLOAT3 


1EF8R 






IFlftR CS80 


POSSE CLHI 


CHAR,C«E« 


0:j45 






?.'■' ... : -R *. "i& 


BNE 


NUMENO 


1T4AR 






J'-"!?.R 0IF3 


BALR 


EXIT, GET 


^■■ ;: 5rt •:■';' 99 


XHR 


COUNT, COUNT 


if;vw <ioyo 


STH 


COUNT. MFLAG 


ISmFR 






1F26R 7CC 


XHR 


VALUE, VALUE 


1F?3R 41E0 


BAL 


LINK.OEC 


1442R 






IF?CR 4850 


LH 


R, MFLAG 


15BER 






H'3l)R <»3 30 


BZ 


• ♦10 


1F3AR 






1F34« C7C0 

(:■ r p c 


XHI 


VALUE, X»FFFF« 


1F39R OACJ 


AHR 


VALUE+ONE 


1F3AR Cb ( -.'0 


CLHI 


COUNT, 3 


o a t r 3 






1F3ER 4aao 


8L 


• *a 


1 F 46R 






1F42R 02 1 a 


STB 


ONE.ERRORT 


i 5o6R 






1 - : <j .'j C L, "J C 


8 


• ♦6 


1F4CR 






lFfe»S o?CC 


NUMENO XHR 


VALUE .VALUE 


S F 4 C R 4 A C 


AH 


VALUE, SAVE 


I 5i)oW 







DIGIT IS REGISTER CHAR 
PERIOD FLAG NOT SET =0 

FETCH NO. OF PLACES 

TO THE RIGHT OF DECIMAL PT. 

GET NEXT CHARACTER 
RETURN FOR NEXT DIGIT 

IS THIS NON-DEC CHAR A ».» 

NQ, POSSIBLE "E" 

WAS A PERIOD ALREADY FOUND 

END NUMBER ON SECOND PERIOD 

SET 1ST PER.1QQ FOUND FLAG 

IS THIS THE EXPONENT'S »E" 

BYPASS "E» FOR EXPONENT 

RETURN W/1ST NON-DEC CHAR 
NEGATIVE EXPONENT 



TRUNCATION ERROR 



ADJUST EXP OUETO DECIMALPT 



ASM2S140 

ASM2S150 

ASM25160 

ASM25170 

■\SM25180 
ASM25190 

ASM25200 
ASM25210 

*SM?5220 

ASM25230 

ASM25240 

ASM25250 

ASM25260 

ASM25270 

6SM25280 

ASM25290 

ASM25300 
ASM25310 

ASM2S320 

ASM25330 
ASM25340 

ASM?5350 

ASM25360 

ASM25370 

ASM253S0 
ASM25390 

ASM25400 

ASM25*t! 

A';m,'S- -J 

ASM2b<*30 
ASM25^40 
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1F50R 40C© 
1508R 



1F54R 

- 1F 58 R 

1FSCR 

1F60R 
1F62R 

1F66R 

1F&AR 

1F6ER 

1F72R 

1F76R 

1F7AR 

1F7ER 

1F82R 

1F86R 

1F8AR 

1F8ER 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
000A 

oooa 
oooc 

0000 
OOOE 
OOOF 
0004 
0003 



41F0 

2108R 
-C5BQ— 



STH VALUE. SAVE 
--*■ RE A D J UST E X PONENT 



0027 
4230 
1F66R- 
01F3 
4300 
OE6AR 
D210 
156CR 
C850 
OOOA 
4050 
158ER 
4850 
15D6R 
4330 
0732R 
41F0 

0A3OR 

4850 

15E0R 

4O50 

15DCR 

4850 

15E2R 

4050 

15DER 

4300 

0732R 



8AL EXIT.FIXEXP 
-CU*I — CHAR.X>27t 



PROP E R END I N G QUOTE? 



8NE 



• ♦10 



BALR EXIT, GET 
B ♦♦8 



BYPASS QUOTE 



STB ONEtERRORF 

IMl R»JHA-» 

STH R.PC 
LH R,FLTFLG~ 

Bl EMTDCt4 

BAL EXIT. EDIT 



IMPROPER ENO.NO QUOTE 

punch-cooe-s joa! rm 

4 BYTES ABSOLUTE 



WHICH PRECISION WAS REQUESTED 

SINGLE-PaECISION 

DOUBLE PRECISION 



LH R.W3 

STH R.M1 

LH R.W4 

STH R.W2 

# — -E01T0C*4- 



AFTER EOITING 1ST HALF 

SECOMJJIALf IQ EDJT 



• REDEFINE REGISTERS FOR FLOATING POINT CONVERSION 



RO 
Al 
A2 
A3 

A4 
AS 
Bl 
B2 
B3 
B4 
B5 
Zi 
Z2 
Z3 

.24 

Z5 

BACK 

SHIFT 



EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU- 
EQU 
EQU 
EQU 



EQU 
EQU 
EQU 

EQU 
EQU 
EQU 




1 
2 

3 
4 
5 
6 
7 
A 
9 
10 
-li- 
12 
13 
14_ 
15 
A4 
A3 



ASM25450 

ASM 25 4 6 
ASM25470 

ASM2548Q 
ASM25490 



"MULT AD" MULTIPLIES THE ACCUMULATED CONVERTED 



ASM25500 
ASM25510 

ASM25520 

ASM25530 

ASM25540 

ASM25550 

ASM25560 

ASM25570 

ASM25580 

ASM25550 

ASM25600 

ASM25610 

ASM25620 

ASM25630 

ASM25640 

ASM25650 

ASM25660 

ASM25670 

ASM25680 

ASM25690 

ASM25700 

ASM25710 

ASM25720 

ASM2573IU 

ASM25740 

ASM25750 

ASM2576Q 

ASM25770 

ASM25780 

ASM2579Q_ 

ASM25800 

ASM25810 

ASM25820 

ASM25830 

ASM25840 
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1F92R 


<iOFo 




22HAR 


..F96R 


40^0 




2,J7Fy 


5F9AR 


<« o d j) 




??P2w 


if 9ER 


•woo 




?01'»" 


1FA?R 


CflOO 




??7?W 


1FA6R 


*860 




22W2R 


1FAAP 


C460 




00 OF 


ir AER 


0330 


1FR0R 


A R J 




15UCR 


IF84P 


9 3? 'J 


IFBSR 


O.-30 




7poe 


i.FBAR 


08 1 3 


iFRCR 


CM 10 




'♦ioa 


sf COR 


<>3«C 



>P CD 6: 



:R i>79 f ; 
'O C7AA 



» ARGUMENT DOUBLE OR SINGLE PRECISION 

* FLOATING POINT NUMBER IN THE ASSEMBLER'S W1,W2, 

» W3tW4t W5 BY FLOATING POINT 10. ADJUSTS THE EXPONENT 

* IF NECESSARY TO MAINTAIN NORMALIZATION, AND PROCEEDS 
« TO ADD IN THE NEXT DIGIT (CONTAINED IN REGISTER CHAR) 
MULTAD STH EXIT,LEAVE*2 

STH SRX,SAVSRX*2 

STH CHAR»SAVCHR*2 

BAL RO.MULTA 

t US HOLD RESULT OF MULTIPLICATION 
« ?"'"•■ ARE EXIT FROM MULTAD 
LHI RO.RESTOR 



ROUMD] 



LH 


B1,SAVCHR*2 


NHI 


Bl.X'F* 


B7R 


RO 


LH 


SHIFT, Wl 


LBR 


A2, SHIFT 


NHI 


SHIFT, X»7F00» 


LHR 


Alt SHIFT 


SHI 


SHIFT, X'MOO' 


STH 


R0,OUT*2 



FETCH NEXT DIGIT 
MASK OFF ASCII 3 
GOTO RESTORE REGSK.RFTURN 



SAVE HIGH FRACTION W/0 €X.P 
ISOLATE EXPONENT 



SAVE EXPONENT 
SUBTRACT EXP-1 



UP NEXT DIGIT IN FLOATING PT FORMAT 
SLHL Bl,4 



XHR 


B2,B2 


XHR 


B3.B3 


XHR 


B4.B4 


XHR 


85, B5 


SRHA 


SHIFT, ft 


BNM 


MULT/D 


OHI 


B1,X»M00» 


i-1 


FMULTI 


3AL 


BACK.SHIFTR 


AH 


85, W5 


ACH 


B4»W4 


• CH 


B3,W3 


vCH 


B2,W2 



SHIFT RT (EXP-1) HEX DIGITS 
UNLESS (EXP-1) WAS NEGATIVE 

SHIFT DIGIT RIGHT 

AODTO PRESENT ACCUMULATION 



ASM25850 
ASM25860 
ASM25870 
ASM?5880 
ASM25890 
ASM259Q0 

ASM25910 

ASM?S<J20 

A.SM2i>9 30 

ASM25940 
ASM25950 
ASM^5960 

ASM2S970 

ASM25980 

ASM?5990 
A C ,M?6000 

«S"?6010 
ASM26020 

A'.M^60 10 
A«-\M?h(K0 

ASM26050 

ASM?h060 

ASt-V6070 

ASM260dO 
ASM26090 
ASM26100 
A<:M?M 10 
,v;m;^(S120 

asm^M 30 

ASM2M40 

ASM,'MSO 

ASM261bO 
ASM26170 

asm;.' 6 , ' : c 
ASM2f>: i 
ASM26200 



INTERDATA 




15DER 


1FF4R 


0E62 


1FF6R 


0936 


1FFHR 


C4J0 




OF 00 


1FFCR 


43J0 




212CR 


2000R 


CA10 




0100 


2004R 


4210 




214ER 


2008R 


ca3o 




0001 


200CR 


4140 




2160R 


2010R 


4300 




212CR 
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ACHR 

l+h* 

NHI 


B1.A2 

SHW-*B1 

SHIFT. X»0F00« 


82 


XUUiLU 


AHI 


A1»X'0100« 


BM 


OVEADO 


LHl 


5HIEJ »!. 


BAL 


BACK.SHIFTR 


B 


GMULTI 



ADOIN HIGH FRACTION W/O EXPONENT 

CHECK FOR CARRY 

NO CARRY 

ADD 1 TO SAVED EXPONENT 

ANDSHIFT RIGHT 1 HEXDIGIT 



• DOUBLE 4 A HALF PRECISION MULTIPLY SUBROUTINE 

• MULTIPLIES THE FLOATING POINT NUMBER IN THE FIVEA-REGS 
« BX JHF FLO A TING PQTNT NUM BF R IN TH F FTVE -kLXQCAXIflNS 

• LOAOEO INTO THE 5 BREGS. THE RESULT IS STORED 

• BACK INTO THE FIVE <W> WORD LOCATIONS 



-2014R 0255 — - 


MULTA 


XHR 


A^tA 1 ^ MULTIPLY BY 10»»*1 


2016R 4815 


MULT IF 


1 LH 


Al. CONST <A5> LOAD POWER OF 10 REQUESTED 


228ER 








- 201 AR 4825 




LH 


A?.CONST«?lA"5l AS A«? iNflFXF*; INTO CONST 


2290R 








201ER 4835 




LH 


A3tC0NST*4(A5> A5=0/10««*l . A5=10»«-l 


2292R 







— 


2022R 4845 




LH 


A4»C0NST*6<A5> A5«20/10»»10.A5=30/10«»-10 


2294R 








2026R 4855 




-CH~~. 


A5t CONST* 8 ( AS) 


2296R 




202AR 4000 




STH 


R0.OUT*2 


2144R 








202ER 48B0 




LH 


ZltWl 


15DCR 








2032R 48C0 




■ LH. 


ZZ+UZ -_ ...._ 


15DER 








2036R 48D0 




LH 


Z3.W3 


15E0R 








203AR 48E0 




LH 


Z4tW4 


15E2R 








203ER 48FQ 




LH 


Z5tW5 


15E4R 










» ADD 


EXPONENTS OF ZREG MULTIPLICAND & AREG MULTIPLIER 


2042R 086B 




LHR 
NHI 


B1»Z1 


2044R C460 


B1.X«7F00' 


7F00 








204SR 0871 




LHR 


B2iAl 


204AR C470 




NHI . 


B2.X»7F00« 


7F00 








204ER 0A67 




AHR 


BliB2 


2050R 4060 




STH 


Bl.EXP 


228CR 









ASM26210 
A5M26220 
ASM26230 

ASM26240 

ASM26250 

ASM26260 

ASM262J0 

ASM26280 

ASM26290 

ASM26300 .. 

ASM26310 

ASM26320 

ASH26330- 

ASM26340 

ASM26350 

ASM26360- 

ASM26370 

ASM263BO 

ASM26390 

ASM26400 

ASM26410 

ASM26420 

ASM26430 

ASM26440 

ASM26450 



ASM26460 

-ASM26470 

ASM26480 
ASM26490 . 
ASM265P0 

ASM26510 
ASM26S20 

ASM26530 
ASM26540 



1NTFK'} 
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2054P 


4 3HR 


2G56R 


C36C 




C i< 


205AP 


o Apr 


2Q5CR 


i'ELE 


Z05ER 


OF 00 


2060R 


c<fcc 


2062R 


a EBB 


2064k 


CBfoti 




000! 


2i'k.i)i 


■v,i.i:. 




f '0:>f :' 


206C^ 


7bh 


?OfiFP 


Ql n 


20 70P 


7 H 8 


20 72ft 


C7 99 


2074K 


7 A A 


2076R 


C800 




047 


2 TAP 


ccso 




;i o u » 


20TES 


<O8 




,-' :)HCk 


2C32P 


OAAF 


2084R 


OE^FI 


2CW 


(-(-"HO 


2088F< 


■;» iT n. 


2 c a Ait 


T--H 


?ofv::;-i 


; :.: a (> 




> 00! 


?{!°Cf' 


(;C<*0 




000! 


2C-?^f 


418{S 




?0^CP 


2098R 


CbAO 




BOOt; 


209CR 


CCBC 




OOC . 


20A0P 


h 38 




2 0AbK 


20A4P 


C69P 




■' -J 


20l.i'.S 


•.cfc 


2ri/u':i ■ 


'-> ."J 6 ;. 




c'O «"!■•: 


2CPCR 


CS80 

'■4 : \ i*t ^ 


?0H'4«- 


CCbC 




' ' (i ! 


20R8P 


< "ibr 




.:'(!«: 


20BCh 


C6 7i 




HO 'H' 



• MOVE 21-ZS ONE HEX DIGIT LEFT 

LBR Z1»Z1 REMOVE EXPONENT FROM HIGH FRACTION 

LHI 81.4 



ADO 



AHR Z5»ZS 

ACHR Z4.Z4 

ACHR Z3.Z3 

ACHR Z2.Z2 

ACHR Z1.21 

SHI Bl.l 



SHIFT LEFT BY t* ADDS 



BMZ 



ADD 



» MULTIPLY THE ZREGS BY THE AREG5 



Ai-HJL T ! 



XHR 


B1.B1 


XHR 


B2.B2 


XHR 


B3.B3 


XHR 


B4.B4 


XHR 


B5.B5 


LHI 


R0.71 



CLEAR RESULTANT BREGS 



SWHL A5,l 

BFC SjAMULTI 

AHR B5.Z5 

ACHR 84. Z* 

ACHR B3.Z3 

ACHR B2.Z2 

ACHR 81»Z1 

SRHL B5.1 



SRHL 


B4.1 


BFC 


8.**8 


OH 1 


B5,X«8000« 


SRHL 


83.1 


BFC 


8,»*8 


OH I 


B4.X"8000» 


SRHL 


B2.1 


SFC 


8«»»H 


OH I 


B3.X'8000» 


SRHL 


Bit 1 


3FC 


8»»*8 


OH 1 


B2.X»8000' 



BIT SET.ADDIN NUMBER 



<\SM?6550 
ASM26560 
ASM26570 

\SM26580 
\SM26b90 
\SM26600 
\SK26610 
XSM26620 
'.S»Vf>h30 

\SM26b40 

\SM266S0 
VSM266hO 

v,M,'M>70 

\SM26b90 
\SM2b700 
\SM26710 

\S!V->6 7 2 

VjM2b730 

ASM26740 
*SM2b750 
ASM,->67bO 
iSM?b770 
\SM267A0 
ASM?6790 

ftCMpftgno 

•> c -M;'hH in 
\<^M26820 
ASM26830 

\SM268S0 
.1SM26860 
",'.M >hM7<) 
ASM268B0 
<VSM2h8-0 

\SM26910 



INTEROATA 
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20C0R CC4Q 


BMULTI SRHL A4»l 


ASM26920 


OOOl 






. 20C4R 4380 


BIX «,**&. 


ASM26930 


20CCR 






?OCBM C6S0 
8000 


OHI A«5»X»flOOO» 


ASM?69^0 


20CCR CCJO 
0001 


SRHL A3.1 


ASM26950 


20D0R 4380 


arc 8««*8 


ASM26960 


2008R 






20D4R C640 


OHI A4tX»8000' 


ASM26970 


aono 






20D8R CC20 


SRHL A2tl 


ASM26980 


0001 






2ftDCR 4380 
20£4R 


- ■ -- - - BEC 8-*-*aS-. 


ASM2699Q 


20E0R C630 


OHI A3.X'8000« 


ASM27000 


aoaft 






20E4R CC10 
0001 


SRHL Al,l 


ASM27010 


._ 20E8R 438ft 


-... J3EC fljJi*ja. 


ASM27ft2A_ 


20F0R 




20ECP C620 


OHI A2,X«8000» 


ASM27030 


8000 


. . 




20F0R CBOO 


CMULTI SHI R0.1 


ASM27040 


0001 






20F4R 4310 


BUM AMULTI . ._ _ _ 


ASM27050 


207AR 








• NORMALIZE RESULT IN BREGS 


ASM27060 


20F8R 


ENDMUL 


ASM27O70 
ASM27080 


20F8R 4810 
228CR 


LH AltEXP 


20FCR 0BB6 


t**R TWBl GET EXPONENT- - - 


ASM27&94 


20FER 4330 


BZ OUT EXIT IF ANSWER ZERO 


ASM27100 


2142R 






2102R C830 


CHI SHIFT ♦! 


ASM27X10 


0001 






2106R C4rO 


NHI Zl.X'OFOO* SHIFT RIGHT REG'D FOR CARRY 


ASM27120 


OFOO 


.' 




210AR 4230 
2118R 


8N7 EMULTB YES 


ASM27130 


210ER 0733 


—XUR SHIFT. SHIFT ... _.. 


ASM27140 


2110R CB10 
0100 
2114R 428ft 


SHI A1»X*0100* ADJUST EXPONENT 


ASM27150 


Bt~ UNOADD IINnFRFl Dtf 


ASM27160... 


2146R 




2118R 4140 


EMULTB BAL BACK.SHIFTR 


ASM27170 


21606- 






211CR CA10 
4000 


• 

EMULTI AHI Al,X»4000t 


ASM27180 
ASM27190 


2120R 4280 
214ER 


BC OVEADD 


ASM27200 


2124R CA10 
8000 


AMI AltX'BOOQi 


A5M272JQ 


2128R 4210 


BM UNOADD 


ASM27220 
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2146R 
Z12CM 066i 
212ER 4060 

l'iiUcH 
2136R 4!)«0 

IS!- 3f> 

213AR 4093 

isr.?'> 

..;jt^i< 
2*<r2» ••v.Ml 
000 

2146P "?fi6 
2148P 1:7 77 

2! 'j 6 k 

2I4ER C8b0 

/Ti- F 

f r i- f 

21%R 088 7 
2158R 0FN7 
215AR 06 A? 
215CR 4TM) 

r l ."fi"' 

2i60'< ..'"5 31.; 

!. 2 

2Jf.4^ 4?Bfl 

216HR C7' 1 / 

216AR e?^9 

216CR 7 HP 

216ER 0. 7 7 

2170R flVtv.'. 

2172R ir>'-4 

217<»w (><.!,} 

2178R 4,? JO 



217CH -'■'■ 
? I 7fc R •r*. .■-. 1 1 f-'- 
21B0R /-; fi 7 
2182P oe/6 
2184P 0?\,a 
2!8f-.R 4 •'■it© 

2 ! « ' 
21 RAW CA..O 

v ' ■-■ 
218FR !:■". 4 



l.MULTI 



OHR 


B1,A1 


STH 


B1.W1 


STH 


B2,W2 


STH 


B3.W3 


STH 


B4.W4 


STH 


B5.WS 


B 


0000 



STORE RESULT OF MULTIPLY 



RETURN 



« UNDERFLOW - SET RESULT TO ZERO 
UNDAOD XHR 61,81 

XHR B2.B2 

B SETREG 

» OVERFLOW - SET RESULT TO MAXIMUM NUMBER 



OVEADD LHI 

LHI 

SLTPEG LHR 
LHR 
LHR 

B 



B1,X»7FFF» 

B2»X»FFFF» 

B3.B2 
64, B2 
B5.B2 
FMULTI 



s SHIFT RESULTANT HEX DIGITS RIGHT BY COUNT NUMBER 
SHIFTR CLHI SHIFT, 18 



BL 


SMIFT4 


XHR 


B5.B5 


XHR 


84, B4 


XHR 


B3.B3 


XHR 


B2,B2 


XHR 


81,81 


BR 


BACK 


SHI 


SHIFT. 4 


BM 


SHIFT1 



l ! 4 



>HFFT B-RFGS RIGHT BY MULTIPLES OF 4 HEX OIGITS 

LHR B5,B4 

LHR B4,B3 

LHR 83,82 

LHR B2,B1 

XHR B1,B1 

B SHIFT4 



cm;i r i 



AH I 



SHIFT, 3 



ONLY DECREMENT BY 1 



BTCR 1»BACK 
T B-REGS RIGHT BY SINGLE HEX OIGITS 



ASM27230 
ASM27240 

ASM2 7250 

ASM27260 

ASM27270 

A C .M?7280 

ASM272^0 

ASM27300 
ASM27310 
«SKV7320 
ASM27330 

ASM27340 
ASM273S0 

A'"»^273h0 

ASM27370 
ASM27380 
ASM27390 
ASM. J 7400 

ASM2 7410 
ASM27420 

ASM27430 

ASM27440 
ASM27i»!30 
ASM27460 
ASM27470 
ASM27480 
ASM27490 
ASM?7S00 

ASM^-7510 

ASM27S20 
A r ,K27530 
ASM27S40 
ASM27S50 
ASM27S60 
ASM27b70 
ASM2 7S«r. 

A^"27600 
ASM27610 
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SRHL 85 t 4 
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2190R CCAO 

0004 

2194R 0809 

2196R C40O 

ooor 

2t9A» €©««- 

oooc 

219ER 06A0 

2LU0R CC90 

0004 

21A4R oaoa 
21A6R C40Q 

O00F 
21AAR CO00 

AAfiC 

21AER 0690 
21B0R CC80 

0004 
21B4R 0807 
21B6R C400 

00 OF 
21BAR CDOO 

OOOC 
21BER 06B© 
21C0R CC70 

0004 
21C4R 0806 
21C6R C400 

OOOF 
21CAR CDOO 

OOOC 
21CER 0670 
21 DOR CC60 

0004 
2104R 4300 

2174R 



210BR 


40F0 




228AR 


21DCR 


4040 




227ER 


21E0R 


40BO 




2282R 


21E4R 


4870 




ISDBR 


21E8R 


4330 




2230R 


21ECR 


4210 




2218R 


21F0R 


CR70 




OOOA 


21F4R 


4310 




2208R 



LHR R0.B4- 

NHI RO,X»F« 

£LHL R0. 12 



OHR BS.RO 
SRHL B4.4 

LHR R0.B3 
NHI RO»X' F L 



SLHL R0»12 



OHR 
SRHL 


B4tR0 
B3.4 


LHR 

NHI 


R0.B2 
ROfX»F» 


SLHL 


R0.12 


OHR __ 
SRHL 


£3»RG 

B2f4 


J.HR- 

NHI 


-ftO.Bl 
RO»X«F« 


SLHL, 


R0«12 


OHR 
SRHL 


B2.R0 
81,4 



SHIFT4 



• "FIXEXP" ADJUSTS THE RESULT BY ABSORBING THE 

» OPOUENT JLH: CQMBlNAIXOit M11H THE SCALE- EACTQR OF THE 

• DIGIT POSITIONS TO THE RIGHT OF THE DECIMAL POINT 
FIXEXP STH EXIT.LEAVE*2 



LOOPX 



STH 


SRX*SAVSRX*2 


SItL- 


.CHAR»SAVCHRt2 _ 


LH 


B2,SAVE 


BZ 


ROUND 


BM 


FIXNEG 


SHI 


B2.10 


BNH 


FIXPOS 



IF ZERO, EXPONENT ABSORBED 



DECREASE BY 10 
OK IF STILL POS 



ASM27620 

ASM27630 
ASM27640 

A S M 27 65 

ASM27660 
ASM2I6JIL 

ASM27680 
ASM2169JL 

ASM27700 



ASM27710 
ASM27720 

ASM27730 
ASM27740 

ASM27750 

ASM22I60. 
ASM27770 

ASM2778Q 
ASM27790 

ASM27800 

ASM27810 
ASM27820 

ASM27830 

ASM27840 
ASM27850 
ASM27860 
ASM27870 
ASM27880 

ASM27890 

ASM229WL- 

ASM27910 

ASM27920 

ASM?7930 

ASM?7940 

ASM27950 



luTFROAl 


"A OS ASS£ 


:mbler 


03-02 


?1F«P CA70 




AHI 


B2.9 


000*^ 








21FCR <»0 7ti 




STH 


B2.SAVE 


isiifik 








220 OP 4 1f>0 




HAL 


Ot MULT A 


20 14k 








2204R 4300 




B 


LOOPX 


21E.4P 








220HR C850 


FIXPOS 


LHI 


AS. 20 


1 4 








220CP 40 70 


FIXEXC 


STH 


82. SAVE 


15U8K 








::2iOM 410$ 




BAL 


O.MULTIP 


P016P 








2214P. 4300 




B 


LOOPX 


21K4R 








2218M C8bC 


FIXNEG 


LHI 


AS, 30 


001E 








221 CR CA?0 




AHI 


B2.10 


O0UA 








222QR 4320 

?2vC« 
2224W CH7* 




BNP 


FIXEXC 




SHI 


B2.9 


O0.> ( » 








2228R CR'it 




LHI 


A5.10 


00'.' A 








222CR 43v't) 




8 


FIXEXC 


22',»CP 








22 3 OP rpho 


POUND 


LHI 


Bl.l 


■li 5 v .' 




LHI 


RO.FXSIGN 


2?b6P 








• 2 3WR 4fi JO 




LH 


A1.W1 


lSl.'CP 








223CF' L H2i 




LHR 


A2.A1 


r;2 3EP C4l<5 




NHI 


Al.Xi7FOO« 


7F00 








2242R 4870 




LH 


B2.FLTFLG 


1 S06R 








?,;>46P 4?30 




9N7 


DOUBLE 


22b AR 








224AK CfliQ 




LHI 


SHIFT, X«0S00' 


OSCO 








2?4EP 48>v 




LH 


B2.W3 


?';'S?C m 3 1 C 




8NM 


FXSIGN 


•"' i';'.' ^"' '..' K 




B 


ROUND1 


?Fr!. ,; -' 








??SM! f.830 

t'i Q » ' 


DOUBLE 


LHI 


SHIFT. X«0D00« 


■\->SSP 407 » 




LH 


B2.WS 


> SK4P 








^2 623 <*?, 1 3 




BM 


ROUND1 


1 F (. '- 








2266P 4«6ff 


T*SIGN 


LH 


B1.W1 
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ONLY DECREASE BY 1 



MULTPLY BY 10»»*1 



MULTIPLY BY 10*»*10 



MULTIPLY BY 10«*-10 
INCREASE EXP BY *10 

ONLY INCREASE BY 1 
MULTIPLY BY 10»«-1 

ROUNDING BIT 

PREPARE RETURN 

FETCH HIGH FRAC (. EXPO 

HIGH FRACTION W/O EXP 
ISOLATE EXPONENT 

ROUND SINGLE OR DOUBLE? 
POSITIONS ROUNDING BIT 



POSITIONS ROUNDING BIT 
IF BIT ZERO SET. ROUND 

SET IN SIGN BIT HELD IN 



4SM^7^60 
ASM27V70 
A'.M," 1 79HO 
ASM?7V90 

asm^sooo 

asm?8020 

ASM28030 

ASM,^040 

A W8050 

ASM2B060 

ASM->80 70 

ASM28080 

ASM28090 

ASM28 1 00 

ASM2B110 

A^M^H120 

ASM,->8130 
ASM281hO 

(V c ;M28150 

A',m?816P 
ASM?8170 
ASM?8180 
ASM28190 

ASM232 
ASM282 10 

A'~,-i->rt,;,' 

4SM,iS,_'.Jv! 
ASM28240 
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226AR 



226ER 
2272R 



1SDCR 

4660 

1 5 BCR 



OH B1.V1 



BIT ZERO OF VI 



2274R 

2278R 

227CR 

2280R 

- 228 4 P 

2288R 

228CR 
228ER 



4060 

150CR 

070 



2298R 



22A2R 



0000 
22ACR 3860 
F37F 
675E 
F6EA 
OFSB 



C810 
0001 
X820 
0002 
C840 

4Mmo~ 

C8B0 

0000 

C8 3Q - 

0942R 

4300 

0000 

0000 

41A0 

0000 

0000 

0000 

0000 

4019 

9999 

9999 

9999 

999A 

4925 _ 

40BE 

4000 



STH Bl.Wl 
RESTQR — xHR ZERO. ZERO 



LHI ONEtl 
XHI IMP. 2 



SAVSRX LHI SRX.O 



22B6R 
22B8R 

22BCR 
22BER 

22C2R 

22C6R 
22C8R 
22CAR 

22CER 

22D2R 



0855 

4230 

22E6R 

0866 

4230 

22E6R 

4850 

15C2R 

0A55 

08CC 

4210 

22DAR 

45C5 

1612R 

4380 

22E2R 



SAVCHR LHI CHAR.0000 

LHI 6CT.GETCHR 

LEAVE B 0000 



EXP DC 

CONST DC X>41A0*»0. 0.0.0 10«*1 



OC X«4019t,X»9999«.X»9999«.X»9999«.X»999A« 10»#-1 



4JC X3A9?5«.Xi40RE'.X» 4000 '.0.0 1jQ*»*1{L 



OC X»386D«.X«F37F».X»675E».X»F6EA»»X»0F5B» 10»«-10 



TEST2 LHR R,R 

BNZ CHOP 

LHR REG t REG 

BUZ CHOP, 



IF NOT DEFINED. JUST CHOP 
IF NOT ABSOLUTE. JUST CHOP 



LH 



R.ASTFLG 



AHR R.R 

LHR VALUE t VALUE 

BM _..__I£S12B_ 



LOCATION COUNTER • USED? 

DOUBLE Tor key TO CONSTANTS 
POS OR NEG EXPRESSION? 



CLH VALUE. OBCONS(R) R=0 FOR NO «,R=4 IF • USEO 



BNL SETTER 



ASM28250 
ASM28260 




ASM28340 
ASM28350 



ASM28360 



ASM283IQ 



SET T ERROR. NOT 0-FF/0-7F 



ASM28380 



ASM28389 
ASM28390 
ASM28400 

ASH28410 
ASM28420 

ASM28430 

ASM28440 
ASM28450 
ASM28460 

ASM28470 

ASM28480 



INTFRDATA 


OS ASSEMBLER 


22D6R 


4300 

22E6R 




H 


220AR 


4SCS 


TEST2B 


CLH 


22m- r 


A38C 
22L6R 




HNL. 


22E2R 


D210 
1566R 


SETTER 


STB 


22E6R 


93CC 


CHOP 


LBR 


22F8R 


030E 




BR 



2?EAR 


41D0 




23B4R 


22EER 


4850 




168FW 


22F2R 


CCbC 




0001 


22F6R 


4280 




2338R 


22EAP 


4000 




?3t2R 


??rzv 


Mt(l 




U44AR 


2302R 


AltO 




22B6R 


2306P 


02C0 




23E0R 


230AR 


4850 




168ER 


230ER 


0A51 


2310R 


4050 




166ER 


2314P 


48S0 




23E2R 


231SR 


<*3JQ 




2380R 


231CR 


CR90 




00C4 


2 320R 


u IE '■> 




0C4CR 


2324R 


1794R 


2326P 


C5B0 
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CHOP 
VALUF»DBC0NS*2(R) NOT FFFF-FFOO/FFFF-FF80 

CHOP 

ONE.FRRORT 

VALUE. VALUE 
LINK 

• ASSEMBLER DIRECTIVES (PSEUDO-OP) DB 

• ASSEMBLE SOURCE STATEMENTS OF THE FORM: 
•(LABEL) 08 EXPRESSION, EXPRESSION. ... .EXPRESSION 

• 08 » 

« WHERE EACH ABSOLUTE DEFINED EXPRESSION DEFINES ONE BYTE OF DATA 

• AND THE SINGULAR LEADING ASTERISK OPERAND ALIGNS THF LOC COUNTFR 
«t BY GENERATING A BYTE OF ZERO. WHEN NECESSARY 

• WHEN AN OPERAND INCLUDES THE LOCATION COUNTERS). THE 16-BIT 

• VALUE MUST LIE IN THE RANGE X t FF80»-X« 007F» (OR -128 TO *127> 

• WHEN AN OPERAND DOES NOT INCLUDE THE USE OF THE LOCATION COUNTFR <») 

• THE 16-BIT VALUE HAS THE RANGE X « FFOO «-X » OOFF • (OR -256 TO *?SS) 
o ELSE T ERROR SETS. THE LEAST SIGNIFICANT BYTE IS ASSEMBLED. 



DB 



F VEN 



SEE IF ENDING DB • STATEMENT 

IF LOCATION COUNTER 

EVEN, LINE STARTS W/EVEAORS 

ODD, LINE STARTS W/ODO ADRS 

0= EVEN BYTE AORS START 

EVALUATE A SINGLE OPERAND 

CHECK FOR ERROR, IF ERROR VAL. = <!ERU 

SAVE EVEN BYTE FOR PUNCH BUFFER 

LOCATION IS EVEN 

MAKE IT NEXT HIGHEST ODD 
WAS START EVEN? 
YES, GO QUESTO 



» HERE, ATTACH EVEN BYTE TO ODD BYTE IMPRINT RECORO. 

LHI COUNT, 4 STARTED 000, ATTACH EVEN BYTF 



BAL 


RETURN, ENDD8 


LH 


R.LOC 


SRHL 


R,l 


BC 


OOOSTR 


STH 


ZERO,OBFLAG 


BAL 


LINK. SCAN 


BAL 


LINK,TEST2 


STB 


VALUE, SAVBYT 


LH 


R.LOC 


AHR 


R.ONE 


STH 


R.LOC 


LH 


R.DBFLAG 


8/ 


QUESTO 



RAL LINK.PACKPR*4 

DC PR*10* 
CLHI CHAR.Ci,* 



ASM2X490 
A',M?8 l )00 

AVI.'HSl II 
A";m.?8S20 

ASM28530 

A c, i-l ,' 6 S * 
A'',M28S44 
ASM28545 
A C >M28546 
A^M2B547 
ASM28548 
A'-.M.->854<3 

AsM3RS5f) 

ASM28551 
ASM28S52 
ASM28553 
ASM28554 

ASM28S56 
ASM2855 7 
ASM28S60 

A r .'VR58 

A',M 'H l -.4(1 

ASM28600 

ASM28M0 

.". .'1. J 8620 

ASM?8630 

ASM28640 

ASM286S0 

ASM28660 
ASM28670 

ASM28fc>80 

ASM^rifo'-JO 

ASM?rf7^o 
a^M^rt? if 

V ; >VS7 30 
A r .M28 74ll 
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002C 








232AR 4230 




BNE 


ENDCHK 


ochfr 








?3?FM 0U3 




HALR 


EX IT, GET 


2310R 4U0 




BAL 


LINK. PRINT 


OCCAM 








2334R 4300 




B 


ODD 


233CR 








2338R 4010 


ODOSTR 


STHi 


UNE.OBFLAG 


23L2R 








233CR 41E0 


ODD 


BAL 


LINK, SCAN 


044AR 


— ■ ■ - - 






2340R 41E0 


BAL 


LINK,TEST2 


22B6R 








2344R 46C0 


LASI1 


OH. 


VA| IIF.^AVRYT 


23E0R 






2348R 40C0 




STH 


VALUE, Wl 


I5DCR 








234CR 41F0 


BAL 


EXIT.PACKPB-10 


OAAOR 








23S0R 00 08 




DC 


a ._._. ._ 


2352R 46C0 




LH 


VALUE, Wl 


15DCR 








2356R 4850 




LH 


R.LOC 


168ER 








235AR 0A51 




AHR 


R.ONE 


235CR 4050 




STH 


JULOC 


168FR 








2360R 4850 




LH 


R,DBFLAG 


23L2R 








2364R 4330 




BZ 


QUESTE 


239CR 










• HERE. 


HAVE 


AN ODD ADRESSEO 




• PRINTED 




2368P C890 




LHI 


COUNT, 4 


0004 








236CR 41E0 




BAL 


LINK,PACKPR»4 


0C4CR 






jPR*B 3 


2370R 1792R 




DC - 


2372R C5B0 




CLHI 


CHAR,C«,« 


002C 








2376R 423C 




BNE 


ENDCHK _. 


OCBER 








237AR 01F3 




BALR 


EXIT, GET 


237CR 4300 




a 


EVEN. _ 


22FER 








2380P C5B0 


QUESTO 


CLHI 


CHAR,C«,« 


002C 








2384R 4230 




BNE 


SINGLE 


23BER 








2388R 01F3 




BALR 


EXIT, GET 


?38AP 4300 




B 


ODD 


^33CR 








238ER C890 


SINGLE 


LHI 


COUNT, 4 


0004 








2392R 41E0 




BAL 


LINK»PACKPR*4 



PRINT AND GET NEXT SOURCE LINE 

BYPASS COMMA 

PRINT AND RETURN FOR NFXT 

OPERAND THIS SAME LINE. 



EVALUATE A SINGLE OPERAND 
CHECK FOR ERROR, ZERO VALUE 
-ATTACH _IO-J_ASX EVEN. BYTE -_.. 

PACK TWO BYTES IN PUNCH BUFFER 

WITH LOADER ITEM & 

GET SAME TWO BYTES AGAIN 

LOCATION 000 

MAKE IT NEXT HIGHEST EVEN 

WAS START EVEN? 

YES GO QUESTE 
BYTE PUNCHED BUT NOT YET 

PACK ODD BYTE IN RIGHT HALF 

OF VALUE INTO PRINT RECORD 
_AT— PJUB* 

. PRINT t GET NEXT SOURCE LINE 

BYPASS COMMA 

DON'T-PJONI. ..UNTIL EVEN.JMT ACHED, 



BYPASS COMMA 

GO TO ATTACH ODD BYTE TO EVEN 

STARTED EVEN AND THIS EVEN 
BYTE STANDS ALONE 



ASM28750 

ASM2B760 
ASM2H770 

A5M28780 

ASM28790 

ASM28800 

ASM28810 

ASM2882A 

ASM28830 

ASM28850 

ASM28860 
ASM28870 

ASM28880 

ASM28890 
ASM28900 

ASM28910 

ASM28920 

ASM28930 
ASM28940 
ASM28950 

ASM28960 

ASM28970 

ASM28980 

ASM2899Q 

ASM29000 
ASM290.I0 

ASM29020 

ASM29030 

ASM29040 

4SM29050 

ASM29060 
ASM29070 



INTFMDATA 


OS ASSEMBLER 


03- 




0C4CR 








2396R 


1792R 




DC 


PR*8 


2398R 


4300 

OCBER 




B 


ENDCHK 


?39CP 


4lbO 
0C48R 


QUE S IE 


BAL 


LINK.PACKPR 






• HERE, 


PACK 


AN EVEN/ODD 


23A0R 


1792R 




DC 


PR*8 


23A2R 


C5B0 
002C 




CLHI 


CHAR»C«,« 


23A6R 


42J0 
OCBER 




BNE 


ENDCHK 


23AAR 


01F3 




BALR 


EXIT. GET 


23ACR 


41E0 
OCCAR 




BAL 


LINK. PRINT 


23B0R 


4300 
22FER 




8 


EVEN 


23B4R 


C5B0 
002A 


ENDDB 


CLHI 


CHAR.C«»« 


2388R 


0230 




BNER 


RETURN 


23BAR 


01F3 




BALR 


EXIT. GET 


23BCR 


Ml 
OC?Ck 




BAL 


LINK.CHKFNO 


23C0R 


4300 

23DAR 




B 


ENDDB2 


23C4R 


4850 

168ER 




LH 


R.LOC 


23CHR 


CCbO 
OO0 1 




SRHL 


R.l 


2.3CCR 


4386 
0CC6R 




BFC 


8.PRINTR 


23D0R 


4020 

?3£2P 




STH 


TWO.DBFLAG 


23D4R 


07CC 




XHR 


VALUE. VALUE 


23D6P 


4300 

2344R 




B 


LAST1 


23DAR 


0B42 


EN0DB2 


SHR 


SRX.TWO 


230CP 


01F3 




BALR 


EXIT, GET 


230ER 


0300 




BR 


RETURN 


23E0R 


0000 


SAVBYT 


DC 





23E2R 


0000 


OBFLAG 


DC 
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3E4R 



PRINT AND GET NEXT SOURCE LINE 

PACK EVEN/OOO PAIR 

R IN PRINT RECORD. 

IF NO COMMA. THIS IS END LINE 

PRINT S, GET NEXT SOURCE LINF 

BYPASS COMMA 

PRINT BUT GET NEXT OPERAND 

THIS SAME LINE. 

1ST CHAR =#? 

CONTINUE PROCESSING DBiS. 
GET CHAR AFTER ASTERISK 
SEE IF SPACE. OR CARRTN. 

THIS IS ENDING DB STATEMENT 

FETCH CURRENT LOCATION 

IF LOCATION EVEN, ALL DATA 

PROPER END ASSURED. 

IF ODD. SEND ZERO FILLER OF 

ONE BYTE WITH THIS LOCATION 
AND PUNCH LAST DATA BYTE. 

BACKUP SOURCE INDEX 
GET ASTERISK AGAIN INTO CHAR 
CONTINUE PROCESSING OB'S 
SAVES EVEN ADDRESS BYTE CONTENTS 
0=EVEN STARTJ l=OOD START ?=LAST1 
« VALUE OF "OB" OPERAND MUST NOT BE FORWARD REFERENCE. 
» RELOCATABLE. OR OUTSIDE THE RANGE X«00« THRU XiFFi 
SYMTAB END PASS1 SYMBOL TABLE STARTS HERF 



ASM^OSO 
ASM29090 

ASM/9) 00 

ASM29110 
ASM29120 
ASM29130 

A C ,M?9140 

ASM291S0 
ASM29160 

4<;m?9170 

ASM29180 

ASM,><}185 

asm;>9190 

ASM, ,C H96 
ASM29220 

ASM2'< | 240 

ASM29250 

ASM?9260 
i\SM?9 3 7 

ASM39271 
ASM29272 
ASM29273 

A',M^4,-|flo 

ASr-v^.'yo 
ASM29.*00 
ASM29310 
4SM29320 



INTE^OATA OS 


ASSEMBLER 


NO ERRORS 






Al 


OOOl 




A? 


000? 




A3 


000 3 




A4 


ooo4 




AS 


0005 




ADD 


205AR 




AD04 


1258R 




ADDAOR 


0FE8R 




ADJST 


0FC6R 




ADJUST 


OFEAR 




ADRBLK 


©928R 




ADRS 


1434R 




AEXP 


117CR 




AEXPEX 


129CR 




AFIELD 


1SCER 




AGAIN 


CDSCR 




ALFNUM 


09CAR 




ALIGN 


0C28R 




AMULTI 


208CR 




APS 


(009 




APSFLG 


0006 




ASSEM 


1688R 




ASTFLG 


15C2R 




81 


0006 




B2 


0007 




83 


0008 




B4 


0009 




B5 


COOA 




BACK 


0004 




8ADVAL 


0442R 




BEGIN 


00 3AR 




HEGTNl 


003ER 




BEG I MP 


C058R 




BKSPFL 


I8C2R 




BLKADR 


0BA6R 




BLKOUT 


C15ER 




BMULTI 


20C0R 




BOTHBK 


'S40CR 




5YPAS1 


1230R 




BYPASS 


U9CR 




CARTN 


OOOC 




CHAIN 


1302R 




CHAR 


000B 




CHECKF 


11E0R 




CHECKM 


1238R 




CHECKP 


1214R 




CHECKX 


1224R 




CHKCR 


0C34R 




CHKDEF 


C61ER 




CHKDIG 


09D6R 




CHKDOC 


0242R 




CHKEND 


1>C?CR 




CHKENT 


063ER 




CHKERR 


0D56R 




CHKLCT 


0D1ER 
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CHKOPT 

CHKPAR 

CHKPAS 

CHKSPC 

CHhSRX 

CHKSUM 

CHKTWO 

CHOP 

CHRCON 

CLEAR 

CLEARS 

CLRERR 

CLRPB 

CMULTI 

CNSTNT 

CNVFRT 

C0L1 

COMA 

COMANO 

COM80 

COMMA 

COMNT 

COMPAR 

CONST 

CONTRL 

COUNT 

CTABLE 

DATA 

OH 

D6C0MS 

DBFS. AG 

OC 

OC(>!R 

DEC 

OECDOC 

DEFU I T 

DEFEQU 

DIGIT 

OIVIOF 

DMtlLTf 

DO 

DOC 

DOLINE 

DONTST 

DOUBLE 

DS 

OTA RLE 

DUMP 

EDIT 

EOITl 

miTC 

tDlTCl 

EDITCX 

EOITOC 

EDITX 

EJECT 



0098R 
1406R 
08F6R 
Uh OOP 
OF HCR 

ouaoR 

ODOAR 

22E6R 

14C2R 

1 184R 

0950P 

012OR 

00C2R 

20FOR 

1394R 

180 BR 

0007 

G5L4R 

0292R 

15B0R 

0662R 

««00O 

0F52R 

228ER 

157ER 

0009 

1592R 

15H0R 

^2EAP 

161 2R 

23E2R 

070ER 

14F2R 

1442R 

U256R 

0200 

06BER 

09D8R 

OFEOR 

^'0 7AR 

!'6CAP 

16BCR 

011CR 

1314R 

225AR 

06E8P 

I548R 

07OCR 

0A30R 

UA6AR 

09E8R 

C9F0R 

PA?CR 

GT2ER 

(1A94R 

OS14R 
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EMULTB 


2118R 


EMULTI 


211CR 


ENS 


675ER 


ENDATA 


15C2R 


ENDCHK 


< CBER 


ENGCON 


1 3C6R 


ENODB 


2384R 


END0B2 


23DAR 


ENDMUL 


20F8R 


ENDONE 


C8DCR 


ENOREL 


08C4R 


ENDSCN 


G464R 


ENDSYM 


1134R 


ENOUMP 


08A6R 


ENTBIT 


0800 


ENTER 


(.'b^ER 


ENTRY 


1-SD8R 


EOJ 


C92AR 


EOL 


1504R 


EOLCHR 


OEAER 


EOTE 


0FB8R 


EOII 


.'69AR 


EQULAB 


06C6R 


ERBLK1 


18E6R 


ERBLK2 


18EAR 


ERRCNT 


1912R 


ERRDEC . 


147ER 


ERRORE 


1560R 


ERRORF 


156CR 


ERRORM 


156AR 


ERRORO 


1568R 


ERRORR 


1562R 


ERRORS 


15&ER 


ERRORT 


1S66R 


ERRORU 


1564R 


EVEN 


22FER 


EVENR1 


04A2R 


EVENR2 


04A6R 


EXIT 


OOOF 


EXITFP 


'JF30R 


EXP 


228CR 


EXPO 


1EFER 


EXTBIT 


0*00 


EXTENT 


ocoo 


EXTERR 


0646R 


EXTFLG 


1SB2R 


EXTRN 


K5D0R 


EXTRNS 


0878R 


FFEED 


184ER 


FINOSP 


016ER 


FINEND 


039AR 


FIRST1 


14F6R 


FIXEXC 


220CR 


FIXEXP 


aiDSR 


FIXNEG 


2218R 


FIXPOS 


2208R 
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FLAGS 

FLIP 

FLIPS 

Fl OA1 

F| f>A r 1 

FLOAT? 

FLOATS 

FLOATD 

FLOATE 

FLTFLG 

FMULTI 

FORWRD 

FRF 

FSPACE 

FXSIGN 

GET 

GETCHH 

GETEND 

GETHWS 

GMULTI 

GO 

GOPACK 

HEAOF4 

HEX 

HEXNUM 

HOLD 

IF 

I FEND 

INERP 

INSERT 

IN5RT 

INSRT2 

INSRT3 

INSRTL 

INSRTS 

INSNTX 

INSTR 

IOWAIT 

ITFM 

ITEMS 

I TEND 

ITMFRF 

LAB 

LABOEF 

LABEL 

LAST1 

L80NLY 

LCOUNT 

LEAVE 

LETTER 

LIMK 

LIST 

LM 

L MOAT A 

LOC 

LOCMTR 



1S70R 

0F12P 

1692R 

If H*P 

JFI1AP 

1LBAH 

IEF8R 

IEB2P 

1EAAR 

1506R 

212ER 

C42ER 

15B4R 

1SO0R 

2266R 

0003 

<>942P 

C1992R 

1 11ER 

2I2CR 

0066R 

0AF2R 

IBSftR 

148AR 

14ACR 

0007 

04C6R 

04B6P 

C1B8P 

iCOA-R 

114AR 

10A2R 

IOF0R 

1 10ER 

I116R 

I I 78R 

02DER 

0OD6R 

1 19ER 

1S90P. 

i 1H4R 

15C4R 

C568R 

1034R 

P27ER 

2344P 

LUC4R 

168AR 

2288R 

C9BAR 

000E 

■,'DCAP 

' ECER 

164EP 

168EP 

13 7ER 
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LOOPAC 

LOOPB 

tOORCW 

LOOpCN 

LOOPD 

UJOP-OC 

LOOPHX 

LOOP IN 

LOOPP 

LOOPRG 

LOOPS 

LOOPSM 

LOOPSQ 

LOOPST 

LOOPT 

LOOPTR 

LOOPX 

LS 

LSTART 

Ml 

M2 

M?END 

MATCH 

MATCH1 

MAXLIM 

MAXLOC 

MERROR 

MFLAG 

MLTEXT 

MLTLOC 

MODE 

MOVCHP 

MOVEON 

MOVEUP 

MULTA 

MULTAO 

MULTIP 

MULTZO 

NEGADR 

NEWCHR 

NEXT 

NOERR 

NOFLG 

NOLERR 

NOREF 

NOREFX 

NOSCRA 

NOSCRT 

NOTAB 

NOTCON 

NOTDIG 

NOTEOL 

NOTFNO 

NOTLTR 

NOTSYM 

NOUSE 



0C08R 

0188R 

14C8R 

13A4R 

144CR 

■14EE R 

1494R 

1122R 

0BS6R 

1166R 

f>976R 

O08AR 

01E6R 

1152R 

04F8R 

0S22R 

21E4R 

15F0R 

1682R 

OEECR 

OEFCR 

OFOER 

0FB4R 

0F80R 

0ED4R 

1690R 

10D2R 

15BER 

C870R 

868R 

1686R 

0E06R 

0F74R 

OFC-VR 

^014R 

1F92R 

2016R 

1FE0P 

0FF8R 

OOEAR 

1634R 

18FCR 

0D74R 

079AR 

131ER 

089AR 

07A6R 

014ER 

0E76R 

12A0R 

136ER 

0F70R 

1324R 

09A0R 

1354R 

1344P 
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NPRPAS 

NTITLE 

MIJMENO 

NXTSYM 

ODD 

ODDSTR 

OK 

OKPAGE 

ONE 

ONECHR 

ONFWRD 

ONEWRX 

OPASS 

OPAUSF 

OPEND 

OPERR 

OPNFLT 

OPORG 

OPRINT 

OP SCR T 

OPSONM 

OPT 

OPT*? 

QPTA8 

0PTA8E 

OPTEND 

OPTERR 

OPTION 

OPTPPT 

OPTS 

OPUNCH 

ORG 

ORGOK 

OUT 

OVEAOD 

P 

PACHAF 

PACK1 

PACK? 

PACK*. 

PACKPH 

PACKPR 

PACKR 

PACREF 

PACSYM 

PAGE 

PAGING 

PAREN 

PASBLK 

PASCHK 

PASMSG 

PASNUM 

PASS 

• PASS1 

* PASS22 
« PASS23 



07D4R 

051CR 

1F4AR 

0008 

233CR 

2338R 

1482R 

0CB8R 

0001 

1530R 

3 7ER 

0390R 

161CP 

161ER 

16 32R 

1 CCR 

1624R 

1630R 

1620R 

1626R 

1628R 

C540R 

0596R 

1918R 

1EA8R 

0536R 

0532R 

161CR 

'.i? BAR 

1638R 

1622R 

066ER 

0682P 

<H4 2R 

c'14ER 

0OOA 

0B52R 

0B36R 

OR42R 

:"-BlER 

OAAAR 

GC48R 

0A98R 

13E0R 

OBEAR 

189CR 

0C7CR 

1SCQR 

180CR 

092ER 

0O46P 

1RESR 

1M AR 

O0OOR 

O02OR 

0028R 
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PAt.f <>1 



• PASS33 
PAUSE 
PB1 

PBlBLK 1 
PB2 

peaeLK 

PBSWCH 

PBWAIT 

PBX 

PC 

PFLAG 

POS 

POSSE 

POSSEQ 

PR 

PR? 

PR2RLK 

PREOF 

PRINIT 

PRINT 

PRINTF 

PRINTR 

PRNTCK 

PRNTER 

PRNTR1 

PROCES 

PRPASS 

PRWAIT 

PRX 

PSETUP 

PSTART 

PUNCH 

OUESTE 

QUF.STO 

QUESTS 

R 

RO 

Rl 

R1R2 

R2 

R2END 

READ 

READIN 

REG 

RELBIT 

RELCNT 

RELFLG 

REPEAT 

RESERR 

RESERV 

RESTOR 

RETURN 

PFCF 

ROUND 

ROUND 1 

RSPACE 



0034R 
0118R 
lftAOR 
7 OCR 
1714R 
1 780R 
169CR 
18D4R 
17a8R 
158ER 
1SDAR 
OOQE 
1F16R 
0EA2R 
178AR 
17FCR 
18CAR 
18C6R 
07DOR 
OCCAR 
0CC2R 
OCC6R 
OCFAR 
OOACR 
OOBER 
0264R 
OD12R 
18D2R 
0005 
1662R 
1684R 
0B6CR 
239CR 
23A0R 
2 3AR 
0005 
0000 
0468R 
0496R 
048AR 
049ER 
Q21ER 
0156R 
0006 
0100 
15B6R 
1SB8R 
0C50R 
01O0R 
06F2R 
2272R 
C00O 
15CCR 
2230R 
1FC0R 
1SD2R 



INTEKDATA OS ASSEMBLER 



03-025R02A13 



PAGE 98 



SAVBYT 

SAVCHR 

SAVE 

SAVFRF 

SAVLOC 

SAVREG 

SAVSRX 

SCAN 

SCANSP 

SCBLK 

SCRWD 

SCWAIT 

SEARCH 

SEND3 

SEQNUM 

SETERR 

SETL 

SETOPT 

SETP 

SETPAG 

SETPC 

SETREG 

SETREL 

SETTER 

SETVAL 

SHIFT 

SHIFT1 

SHIFT4 

SHIFTR 

SHORT X 

SIGN 

SIGN1 

SINGLE 

SIZE 

SIZES 

SPACE 

SPACER 

SPC 

SPEC OP 

SQCHK 

SOEPR 

SR 

SRBLK 

SRENO 

SRX 

SS 

STATUS 

STDONE 

STOUMP 

STE 

STO 

STORE 

STRCHR 

STRFLG 

STRFRF 

STX 



23E0R 

2280R 

15D8R 

1SCAR 

15C3P 

15FAR 

227CR 

044AR 

0E20R 

18B4R 

1BBER 

18BCR 

0F34R 

0F2AR 

1694R 

1108R 

ODDER 

05H2R 

OBASR 

0C82R 

087CR 

?1S6R 

1294R 

22E2R 

1260R 

0003 

218AR 

2174R 

2160R 

03E0R 

141 AR 

1428R 

238ER 

162ER 

18A0R 

CE18R 

0186R 

000A 

03AAR 

01DCR 

0200R 

179AR 

18A4R 

17E8R 

0004 

15E6P 

C000 

00B6R 

07AER 

162CR 

162AR 

0A8CR 

0964R 

082AR 

1208R 

0004 
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SUSPNO 


18D6R 


SVCALL 


OODER 


-SVCHR1 


1654R 


SWITCH 


O4E4R 


SWTCH1 


O^DCP 


SYMBOL 


U94AR 


SYMTAB 


23E4R 


TAB 


0E80R 


TAB2 


0E94R 


TEMP 


COOS 


TFST 


043CR 


TESTS 


2-2B6R 


TEST2B 


220AR 


TITLE 


04ECR 


TITLED 


0O3AR 


TR 


185CR 


TRBLK 


18ACR 


TRY-SPC 


WA4R 


TWO 


0002 


TWOWRD 


032ER 


TWQWRX 


0336R 


TYPECN 


15AER 


UNDADO 


2146R 


UNOEF 


12CAR 


UNDEFX 


0600 


UNPACK 


0BC8R 


UPDATE 


0212R 


USEDBT 


1000 


USEVAL 


12C0R 


VI 


15BCR 


V2 


15BAR 


VALUE 


oooc 


Wl 


1SOCR 


W2 


150ER 


W3 


15E0R 


W4 


15E2R 


W5 


15E4R 


XAORS 


1636R 


XENTOF 


CEOO 


XNBITS 


1SC6R 


XPARFN 


1268R 


YESERR 


1908R 


Zl 


OOOB 


Z2 


OOOC 


23 


0000 


lu 


OOOE 


IS 


OOOF 


ZERO 


0000 


ZEROPB 


OOBAR 


ZERVAL 


060AR 
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O000R 4300 
0070R 

0004R 4300 
OODAR 



•008R 093ER 
OOOAR 11 OCR 

0000 
0001 
0002 
0002 
0003 
6004 
0004 
0005 
0006 
0007 
0008 
0009 



OS TEXT EDITOR (OS TIDE) » PROGRAM NUMBER 03-02? IS AN 
ON-LINE, INTERACTIVE TEXT EDITING PROGRAM THAT ASSISTS 
THE USER WITH THE CREATION, EXAMINATION, AND MANfPULA? ION 
OF TEXTUAL INFORMATION SUCH AS SOURCE PROGRAMS. 

THE USER DIRECTS OS TIDE THROUGH KEYBOARD COMMANDS 
EDITING THE TEXTUAL INFORMATION MtHfN TIDE'S TEXT BUFFER 
UNTIL A HARD COPY OF THE TEXT IS OBTAINED (LISTING/? A P£) . 

PRIOR TO EXECUTION, FOUR LOGICAL UNITS MUST BE 
ASSIGNED TO PHYSICAL DEVICE ADDRESSES. 

*., 
ASSIGN LOGICAL UNIT #01 TO A SOURCE INPUT DEVICE 
OS TIDE READS FROM LU #61 FORI 

APPEND NUMBER Of LtNESlAl) 
INSERT NUMBER OF LINES (I#l 
SKlP(S) AND SKIP NUMBER OF LINES(S#t 
REPRODUCE NUMBER OF LJNES CR#I 

ASSIGN LOGICAL UNIT #02 TO A BINARY OUTPUT DEVICE 
.OS TIDE WRITES SOURCE TARES To Li) #62 FOR" 
OUTPUT 10) DIRECTIVE 
REPROOUCE <R> DIRECTIVE 
ASSIGN LOGICAL UNIT #03 TO A LIST OUTPUf DEVICE 

OS TIDE WRITES A LISTING Of THE TEKT TO LUI63 FOR 
PRINT IP) DIRECTIVE 
ASSIGN LOGICAL Utftt DUMBER OS t«h* <HWW>*RD/PRlNtt* 
DEVICE FOR OS TIDE'S OPERATOR CONSOLE RESPONSES. 

OS TIDE LOCATION XtfrO0«*R AN0 X tOOOA* RELOCATABLE 

CONTAIN POINTERS TO THE tOftOM AN&THE fO# OF 

ITS TEXT BUFFER OF 2666 BYTCl. 

THE USER MAY CHANGE THESE POtNTERf-tO REPOSITION AND/OR 

EXPAND THE SIZE OF THE TEXT BUFFER WITHIN TIDE. 



ORG 



RESTRT B 



BGNTXT 
ENDTXT 

• 

CHAR 

Rl 

R2 

LENGTH 

COUNT 

FROM 

COLUMN 

ONE 

THRU 

TO 

RB 

LINPTR 



OC 
OC 

EQU 
EQU 
EOU 
EOU 
EOU 
EOU 
EOU 
EQU 
EQU 
EOU 
EQU 
EOU 



START 
COMODE 



BONBUF 
ENOBUF 


1 
2 

2 
3 
4 

4 
5 
6 
7 
8 
9 



iNttntliE TEXT EDITOR 
RESTART 



TEXT BUFFER 
ADDRESS DELIMITERS 

REGISTER ASSIGNMENTS 



points to char in a line 



OOOQ0030 
00600040 
00000050 
00000060 
00000070 
00000080 
00000090 
OOOOOlOO 
00000110 
00000120 
00000130 
00000140 
00000J50 
00000140 
00000170 
00000180 
00000196 
00000200 
00060210 
00000220 
00006230 
00000240 
00000250 
00000266 
00000210 
00600286 
00000296 
06600306 
00000316 
00600320 

Q6660336 
00600540 

00000336 
00060360 
00000370 
00000380 

00000390 

00000400 
00000410 
00000426 
00000430 
06660440 
00660456 
00060460 
00000470 
00060480 
00000496 
O6660S66 
06666510 
00000520 
0000C530 
00000546 
066665S6 
00666566 
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>00A 
>00B 
>00C 

»ooo 

)00E 

ioor 

»OOCR 093DR 
JOOER 093OR 

0O1OR 

0066R 
D068R 
0O6AR 
006CR 
006ER OOOO 



0070R 

0074R 

0078R 

007CR 

80B0R 

0084R 

0088R 

008CR 
•08ER 



4810 

0009R 

4820 

OOOAR 

C510 

OOOOR 

4330 

0092R 

4280 

00A6R 

C510 

093CR 

4280 

0092R 

0512 

4288 

0088R 



0092R C810 

093ER 
0096R 4010 

0008R 
009AR C810 

110BP 
009ER 4016 

OOOAR 
00A2R 4300 

00B8R 



60A6R 65 12 
60A6R 4288 
00B6R 



RIO 
Rll 

R12 

R13 

R14 

R15 

• 

OPNPTR 

ENDPTR 

LINE 

• 

COMANO 

ARG1 

AR02 

TABFLG 

LCOUNT 



START 



ORCE 



LETXT 



EQU 
EQU 
EOU 
EQU 
EOU 
EOU 

DC 

be 

OS 

OS 
OS 
OS 
DS 
OC 



10 
11 
12 
13 
14 
19 

BGNBUP-1 
BGNBUT-l 

86 

2 

2 

2 
2 




LH Rl.BONTXT 

LH R2.ENDTXT 

CLMI RltORO 

BE FORCE 

BL LETXT 

CLHI RltENO 

BL FORCE 

CLHR R1*R2 

BL STAtTt 



start or 0#f ^Llfte 
tub or last Lf«e 

WORK AREA FOR t£Xt 

COMMAND STORAGE AREA 
STORAGE roR rfMt AM 

onto roR seciflMB m 
tabulate riAo 

LINE COUNT 



test text Burrt* units 
tr redeemed limits over- 
writ* tide. ro*et aurreR 
to program oertNeo toes. 

BBNTXT lt org 

BONtXT <t(tO 
••NtXt < iNOTXt 



FORCE TEKT Burrtt LlMttS 
TO THOSE OEF1NE0 IN TIDE 

LHI RltENO*2 

STH Rl» BBNTXT 

LHI Rl.END*l999 

STH Rl.ENDTXT 

B START2 



BGNTXT tS Lt ORG 



CLHR Rl.RZ 
BL •♦G 



00000570 
QO06O$8O 
00600596 
00000600 
00000610 
00666620 
00600630 
66600646 

06600656 
00600660 
00000676 
00000680 
60006696 
00666766 
00660716 
00000720 
00600736 
00000740 
00000750 
00000766 
00000776 

00000780 

00600790 

00000800 

00000810 

00600820 

00660836 

00000840 
00000850 

60000860 
00000870 
00000880 
00000890 
00000900 

00000910 

00000920 

60000930 

00000940 

00000950 
00000960 
06600976 
00000980 



INTERDATA OS TEXT EDITOR (OS TIDE) 

8 FORCE 
CLHI R2.ORG 
BNL FORCE 



OOACR 4300 
0092R 

OOBOR C520 
OOOOP 

00B4R 4380 

0092R 



03-627R62A13 PAGE 3 
FORCE LIMITS 



00B8R 

OOBCR 

OOCOR 
00C2R 

00C6R 

OOCAR 



4810 

0008R 

C850 

0001 

0B15 

4010 

OOOCR 

4010 

OOOER 

EllO 

080AR 



OOCER EllO 

08E?R 



00O2R C810 
0732R 

0006R 4016 
006CR 



66DAR C806 

oosf 

OODER D200 
0928R 

00E2R EllO 
08EAR 

00E6R C850 
0001 

OOEAR 0733 
OOECR 4030 

0066R 
60F0R 4030 

0068R 
00F4R 4030 

006AR 
00F8R 4030 

006ER 



OOFCR 4100 

07FAR 
0100R 0829 
0102R 0711 



START2 



LH 

LHI 

SHR 
STH 

STH 

SVC 



Rl.BGNTXT 

ONE.l 

R1»0NE 
Rl.OPNPTft 

R1,ENDPTR 

l.CRLF 



SVC 1.U0E 

• RESET TABULATE TLAG 
NOTAB LHI Rl.NTB 

STH Rl.TABFLG 

• ENTER COHMANO MODE 
COMODE LHI CHAR.X»SFt 

STB CHAR.MESS3 

SVC lfHOOE 

LHI 0NE»1 

XHR COUNT. COUNT 

StH COUNT, COMAND 

STH COUNT. ARG1 

STH COUNT, ARG2 

STH COUNT, LCOUNT 

• 

SAL R13.R0LINE 

LHR LENGTH.LlNPTR 

XHR R1,R1 



INITIALIZE TIDE 



AND HOUSEKEEPING 



CARRIAGE RETURN 



REMOVE T AiULATE FLAG 



SET MODE FLAG 

SHOW M06E 

REESTABLISH 0NE=1 ON RESTARTS 



ARGUMENT COUNT 

Clear command 



Reset arguments 



LINES/PAGE COUNT 



READ LINE FROM KEYBOARD 

SAVE LENGTH 
2ER0 Rl 



0000099( 

ooooioo< 

000010K 

0666 102< 
0000103( 
0000104C 

0000 05C 

0000106C 
0066167C 

ooooioac 

66661690 

00661160 
0606111c 

00601120 
06661136 
06661140 



00001150 

00601160 
00&6il7Q 
00601186 

06661190 
OO6OI266 

00001210 

00601220 

66601225 

00001230 
06661246 
66601250 

00001260 

00001270 

00001280 

00001290 
00001300 
00001310 

00001320 
00001330 



INTEROATA OS TEXT EDITOR (OS TIDE) 03-027R02A13 



PAGE 



104R 0799 
106R 41F0 

0234R 
HOAR 0264R 

0280R 
HOER 4300 

052ER 
H12R 40A0 

0066R 



J116R 41F0 

0234R 
GUAR 02B8R 

02CAR 
011ER 4300 

012AP 
0122R C8E0 

01A2R 
0126R 4300 

0230R 

012AR 0309 

0011R 
012ER C500 

OOOD 
0132R 4330 

013ER 
0136R C500 

0020 
013AR 4230 

052FR 

013ER 0592 
0140R 4280 

019ER 
0144R 4820 

0066R 
0148R 0302 



014AR 0800 
014CR D3A9 

0010R 
0150R C4A0 

OOOF 
0154R 0800 
0156R 4330 

017ER 



XHR 
BAL 

DC 



STH 



LINPTR.LlNPTR 
RIStSEARCH 

COMTBLtCOMAOR 

ERROR 

R10»COMAND 






BAL 

OC 

B 

LHI 

B 



R15. SEARCH 

ARGTBLfARSADR 

CM1 

R14.PLUS*4 

6T1 



ZERO LINE POINTER 
SEARCH FOR COMMAND 



ERROR RETURN 

SAVE COMMAND ROUTINE ADR 



LINE POINTER 

NOT INCREMENTED 

IF COMMAND A NUMERIC 

IT IS IN ARO TABLE TOO 



COMMAND NOT IN ARO TABLE 
COMMAND IN AR6 TABLE 



CM1 



LB CHAR.LINE*HLINPTR) 



CLHI CHARtXtOD* 

BE PROCES 

CLHI CHAR»X»20» 

9NE ERROR 

PROCES CLHR LINRTR*LENGTH 

8L PLUS 



CR 



Space 



LH 
BR 



R2*C0HAND 
R2 



PROCESS ARGUMENTS 

See arg Table 



e ROUTINE 



I SUBROUTINE CONVERTS DECIMAL FROM LINE 
• TO BINARY IN CHAR 

CNVDTB SHR CHAR.CHAR mb ^CIMAL TO ««M? 
DTBI LB R10tLINE(LINPTR> CONVERSION EXIT ON 



NHI 

LHR 
B2 



R10#X«F« 

CHAR* CHAR 
DT83 



riRST NON-NUMERIC 
CHAR WILL CONfAtN 



00001340 
00001350 

00001360 

00001370 

00001380 

00001390 
00001400 
00001410 
00001420 
00001430 
00001440 
00001450 

00001460 

00001470 

00001480 

00001490 

00001500 
00601510 

00001520 

00001530 

00001540 

00001550 

00001560 
00001570 
00001580 

00001590 

00001600 
00001610 
00001620 
00001630 
00001640 
00001650 
00001660 
00001670 

00001680 

00001690 
00001700 



INTEROATA 


OS TEXT 


EDITOR 


<0S TIOE» 03 


-027R02A13 PAGE 


015AR 


COBO 
0002 




SLML 


R11.2 


BINARY NUMBER 


015ER 


0AB6 




AHR 


RlltCHAR 




0160R 


C080 
0001 




SLML 


Rl 1.1 




6164R 


OABA 




AHR 


RU.R10 




0166R 


080B 




LHR 


CHAR.RU 




0168R 


03A9 


DTB2 


LB 


RlO.LlNE^KLINPTRl 




0011R 










016CR 


CSAO 
0030 




CLHI 


R10.X»30« 




0170R 


028F 




BTCR 


B.R15 




0172R 


C5A0 
003A 




CLHI 


R10.X«3A« 




0176R 


038F 




8FCR 


8.R15 




0178R 


0A95 




AHR 


LINPTR.ONE 




017AR 


4300 
014CR 




B 


OTBl 




017ER 


92A0 


DTB3 


STBR 


RIO. CHAR 




0180R 


92AB 




STBR 


RlOtRU 




0182R 


4300 

0168R 


• 


8 


0TB2 




0186R 


4880 
OOOCR 


• 
CURL1N 


LH 


R8.0PNPTR 


CURRENT LINE ARG 


01 BAR 


4300 
0192R 


• 


B 


LSTLlN*4 




018ER 


4880 
OOOER 


LSTLIN 


LH 


R8.EN0PTR 


LASt LINE ARG 


0192R 


08DE 




LHR 


R13.RH 


CURLIN CONTINUES HERE 


0194R 


41E0 
01F6R 




BAL 


R14.CRCNT 


PINO LINE NUMBER 


0198R 


08ED 




LHR 


R14.R13 


,,. 


019AR 


080A 




LHR 


CHAR.RlO 


line Mum in Rio To char 


019CR 


030F 


• 


BR 


R15 


RETURN 


619ER 


41E0 
0222R 


• 
PLUS 


BAL 


R14.GETARG 


positive modifier 


01A2R 


4A01 
0068R 




AH 


CHAR.ARGKR1) 




01A6R 


4001 
0068R 




STH 


CHAR.ARGKR1) 




61AAR 


4300 
019ER 


• 


B 


PLUS 




01AER 


41E0 
0222R 


• 
MINUS 


BAL 


R 14. GET ARG 


NEGATIVE MODIFIER 


dlBZR 


48A1 
0068R 




LH 


RlO.ARdllRl) 




01B6R 


OBAO 




SHR 


RIO* CHAR 





INTERDATA 

01B8R 40A1 
0068R 

OlBCR 4300 
01 AFP 



61 COR 
01C2R 

01C6R 

01 CAR 

01CER 

01DZR 

0106R 
01D8R 



0595 

4280 

01CAR 

4230 

013ER 

0309 

001 OR 

C500 

0020 

4230 

052FR 

0835 

4300 

013ER 



OS TEXT EDITOR (OS TIDE) 03-027R02A13 PAGE 

STH R10.ARG1CR1) 

B MINUS 

• BLANK DELIMITER 

DLMIT1 CLHR LINPTR.ONE 

BL •♦« 

BNE PROCES 

LB CHAR*LINE(LtNPtR» 

CLHI CHAR.X«20' SPACE 

BNE ERROR NO ERROR 

LHR COUNT. ONE ARGUMENT COUNT IS ONE 



01DCR 0535 
010ER 4280 

01E6R 
01E2R 4230 

052F.R 
01E6R 0A35 
01E8R C810 

0002 
01ECR 4300 

013ER 



01F0R 0A95 
Oir2R 4300 
013ER 



01F6R 


4580 




0008R 


OlTAR 


4280 




052ER 


01FER 


07AA 


0200R 


48B0 




0008R 


• 204R 


08B5 


0206R 


D308 




0000 


020AR 


C500 




0000 


020ER 


4230 




0214R 



8 



COUNT. ONE 
PROCES 



0LMIT2 CLHR COUNT. ONE 
BL •♦8 

BNE ERROR 



AHR 
LHI 



DLMIT3 AHR 
B 



COUNT. ONE 
R1.2 

PROCES 



LINPTR.ONE 
PROCES 



COMMA DELIMITER. TWO ARGS 

ERROR 

ARGUMENT COUNT IS TWO 



INCREMENT CHAR POINTER 
NO ARGS COUNT 2EftO 



• FIND LINE NUMBER 

• COUNT CR TO R8 INCLUSIVE 



CRCNT 



CR1 



CLH 


R8.BGNTXT 


R.8 l« OPNPTR/'ENOPTR 


8L 


ERROR 


ERROR 


XHR 
LH 


RIO. RIO 
Rll.BGNtXT 


CLEAR CR COUNT 


SHR 
LB 


Rll.ONE 
CHAR.O(Rll) 




CLHI 


CHAR.X'OD* 




BNE 


CR2 


NO CR 



00003100 

00002110 

00002120 
00002130 
00002140 
000021^0 

00002160 

00002170 

00002180 

00002190 

00002200 
00002210 

00002220 
00002230 
00002240 
00002250 

00002260 

00002270 
00002280 

00002290 

00002300 
00002310 
00002320 
00002330 

00002340 
00002350 
00002360 
00002370 
00002380 
00002390 

00002400 

00002410 
00002420 

00002430 

00002440 

00002450 
00002460 



INTERDATA 


OS TEXT 


EOITOR 


' (OS TIDE) 03 


-027R02A13 PAGE 


021 2R 


0AA5 




AMR 


R10»ONE 


CR COUNt LINE NUMBER 


0214R 


0AB5 


CR2 


AHR 


R1NONE 




0216R 


0«5Bfl 




CLHR 


RlltRS 


R8 ENDPfR OR OPNPTR 


0218R 


4280 
0206R 




BL 


CR1 




621CR 


4330 
0212R 




BE 


CR2-2 




0220R 


030E 


• 


BR 


R14 


RETURN RlO LINE NUMBER 


0222R 


0A95 


• 
GETARG 


AHR 


LINPTR.ONE 


PROCESS ARGUMENT 


0224R 


4iro 

0234R 




BAL 


Rl 5 t SEARCH 


ELEMENTS 


0228R 


02B8R 
02CAR 




DC 


ARGTBL.AR6A0R 




022CR 


4300 
052FR 




B 


ERROR 


ERROR RETURN 


0230R 


01FA 


6T1 


BALR 


R15.R10 


B ROUTINE AODR IN RlO 


0232R 


030E 


• 


BR 


R14 








• 
• 


TABLE LOOK UP ROUTINE 






• 


FOR 


COMMAND AND ARGUMENT ELEMENTS 


0234R 


488F 
0000 


SEARCH 


LH 


R8,0(R15) 


Table sf ART AboR 


0238R 


48AF 
0002 




LH 


R10»2(R15> 


ROUTINE START ADOR 


023CR 


03B9 




LB 


RlltLlNElLlNPTR) 




0010R 










0240R 


D3CS 
0000 


SRI 


LB 


R12.0<R8I 




0244R 


05BC 




CLHR 


R11.R12 




0246R 


4330 
025CR 




BE 


SR2 


CHAR fS *N f ABLE 


024AR 


C5C0 
007F 


• 


CLHI 


f»I2»Xttrt 


END OP f ABLE 


024ER 


433F 
0004 




BE 


4<R15) 




0252R 


0A85 




AHR 


R8.0NE 


PICK NEXT BYTE 

PICK UP NEXT HALF WORD 


0254R 


CAAO 




AH I 


RIO. 2 




0002 










0258R 


4300 
0240R 




8 


SRI 


CONTINUE TABLE SEARCH 


025CR 


48AA 
0000 


• 

SR2 


LH 


R10,0(R10) 


ROUTINE AODR IN RlO 


0260R 


430F 
OOOR 


• 


B 


8(R15) 


RETURN 


0264R 


2A2E 


• 
• 
COMTBL 


OC 


C ••.01 23456789 t 





00002470 
00002480 
00002490 
00002500 

00002510 

00002520 
00002530 
00002540 
00002550 
06062360 

00002570 

00002580 

00002590 
00002600 
00002610 
66002620 
00002636 
00002640 
00002656 
06002660 
00002670 

00002680 

00002690 

00002706 
00602710 

00002720 
00062730 

00002740 
00002750 

00002760 

00002770 
00002780 

00002790 

00002800 
00002810 

00002820 

00002830 
00002840 
00002850 
00002860 



INTERDATA OS TEXT EOITOR COS TIDE) 03-027R02A13 
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3031 
3233 
3435 
3637 
3839 

6270R 4143 
4**5 
494B 
4C4E 
4F50 
5253 

027CR 5421 
5E7F 



0280R 02EER 
02EER 
02EER 
02EER 

0288R 02EER 
02EER 
02EER 
02EER 

0290R 02EER 
02EER 
02EER 
02EER 

0298R 0334R 
03B8R 
0404R 
08CCR 

02AOR 03BER 
0454R 
0458R 
00D2R 

02A8R 0474R 
0468R 
04C4R 
04DQR 
02B0R 04FAR 
0800R 
0506R 
052ER 



02B8R 3031 
3233 
3435 
3637 
3839 

02C2R 2A2E 
2820 
202C 
0D7F 



OC CtACOEIKLNOMS* 



DC X»5*21».X'5E7T» END 0? TABU 



• COMMAND ROUTINE ADDRESSES 

COM ADR OC LNUMBR.LNUM&R.LNUMBR.LNUMBR 

DC LNUMBKfLNUM&RiLNUMBRtLNUMBR 

OC LNUMBR.LNUMftft.LNUMBR.LNUMBR 

DC APPEND t CHANGE. DELETE t END JOB 

OC INSERT, KILL. LIST.NOTAB 

OC OUTPUT. PRI NT. REP*OD. SKIP 

OC TAB.PAUSE.BYTCNT. ERROR 



TABLE OF ARGUMENTS 



ARGTBL OC C«0l234S6f*9» 



DC C»».*- .«.X«0D7F« 



0000287C 



00002880 

00002890 
00002900 
00002910 
00002920 



00002930 



00002940 



00002950 



00002960 



00002970 



00002980 



00002990 
00003000 
00003010 
00003026 



00003030 



INTERDATA OS TEXT EDITOR (OS TIDE> 



03-027R02A13 



PAGE 



ARGUMENT ROUTINE ADDRESSES 



02CAR 014AR 
014AR 
01 4AR 
014AR 

0202R 014AR 
014AR 
014AR 
014AR 

02DAR 014AR 
014AR 
0186R 
018ER 

02E2R 019ER 
01AER 
01COR 
01DCR 

02EAR 01FOR 
052ER 



02EER 48A0 

0068R 
«2F2R 4320 

052ER 
02F6R 41F0 

6536R 
62FAR 401© 

000CR 



02FER 

0302R 

0306R 

030AR 

630ER 

0312R 

0316R 

031AR 

03UR 

0322R 
0324R 

0328R 



4880 

OOOCR 

4580 

0008R 

4280 

OODAR 

41E0 

01F6R 

41F6 

056AR 

41E0 

055AR 

C800 

0020 

D200 

0014R 

4840 

OOOCR 

0868 

C870 

0015R 

41F0 

05C4R 



ARGAOR DC CNVDTB.CNVOTB.CNVDTB.CNVDfB 



OC CNVDTB.CNVDTB.CNVDTBtCNVdtB 



DC 
OC 
OC 

LNUMBR LH 

BNP 

BAL 

StH 

• 

LSTOPN LH 

CLH 

BL 

BAL 

BAL 

BAL 

LHI 

STB 

LM 

LHR 
LHI 



CNVDTB.CNVDTB.CUftLtNtLSTLiN 



PLUS. MINUS. DLMIT1.DLMIT2 



DLMIT3.ERR0R 

R10.ARG1 
ERROR 

R15.FIN0LN 
R1«0PNPTR 

RB.OPNPTR 

Ri.BGNTxT 

COMODE 

R14.CRCNT 

RlS.CNVBTD 

Rl4»GETCR 

CHAR.Xt20« 

CHAR»LtNE*4 

FROMtOPNPTR 

THRU.R8 
T0,LINE*5 



BAL R15»M0VTXt 



OPEN ARQUMENt LINE 

ERROR 

FIND THE LINE 

NEW OPEN LINE 

L POINTER IN R8 

RETURN tO COMMAND MODE 
GET LINE NUMBER 
CONVEftt tO OECIMAL 
OEt END OF LINE 

Enter space char after 

DECIMAL LINE NUMBER 
STARt 0* LINE 

End line address 
first open aodr in line 

hove open line to 



00003040 
000030S6 
00003060 
00003070 



00003080 
00003090 
00003100 

00003110 

00003120 
00003130 
00003140 
00003150 

00003160 

00003170 

0C003180 

00003190 
00003200 

00003210 

00063220 

00003230 

00003240 

00003250 

00003260 

06663270 

00003280 

00003290 
00003300 

00003316 



INTERDATA 


OS TEXT 


EDITOR 


(OS TIDE> 


03-027R02A13 PAGE 10 


032CR 


Ell© 
08FAR 


• 
» 
LISTLN 


SVC 


1.LINEB 




0330R 


4300 

OOOAR 


• 


B 


COMODE 


RETURN TO COMMAND MODE 






• 

• APPEND LINES 




0334R 


07FF 


APPEND 


XHR 


R15,R15 




0336R 


40F0 
0348R 


At 


STH 


R15.AIFLG*2 




033AR 


C800 
002A 




LHI 


CHARtC»«« 




033ER 


0200 
092BR 




STB 


CHAR,MESS3 


SET MODE FLAG 


0342R 


41F6 
05F4R 




SAL 


R15*0NEAR6 




0346R 


C8F0 
0000 


AIFLG 


LHI 


Rl5tO 




034AR 


4330 
035AR 


• 


87 


Al-2 


APPEND 

INSERT TEXT LINES INTO 
BUFFER EITHER 


034ER 


4820 




LH 


R2,0PNPTR 




OOOCR 










0352R 


452A 
0008R 




CLH 


R2.BGNTXT 


From the keyboard or 


0356R 


4280 
052ER 




BL 


ERROR 


FROM INPUT DEVICE 


035AR 


07CC 


• 


XHR 


R12fR12 


iNiTALize Iteration count 


035CR 


0535 


Al 

• 


CLHR 


COUNT t ONE 


COUNT IS 1 FOR INPUT 
DEVICE SPECIFIED 


035ER 


4230 
0372R 


• 
• 


BNE 


A2 


COUNT NOt 1. INPUT TTY 

count Oti ton 

TTY INPUT 


0362R 


45C0 
0068R 




CLH 


R12,ARG1 


ITERATIONS COMPLETE 


0366R 


4380 

02FER 




BNL 


LSTOPN 


YES, LIST OPEN LINE 






• APPEND OR INSERT FROM SOURCE INPUT OCyiCE.. . 


036AR 


41D0 
070AR 




BAL 


R13.N0KBRD 


NON-KEYBOARO INPUT 


036ER 


4300 
037AR 


• 


B 


A3 




0372R 


E110 

OfiEAR 


• 
A2 


svc 


l.MODE 








» 




EDIT MODE 


PRINT ASTERISK 


0376R 


4106 
07FAR 




BAL 


R13.RDLINE 


READ LINE FROM TTY 



00003320 
00003330 
00003340 

00003350 

00003360 
00003370 
00003380 
00003390 
00003400 
00003410 

00003420 

000034.30 

00003440 

00003450 
00003460 

00003470 

00003480 
00003*90 

00003500 

00003510 

00003520 
00002530 
00003540 
00003550 
00003560 

00003570 
00003580 
00003590 

00003600 

00003610 
00003620 

00003630 

00003640 
00003650 
00003660 

00003670 
00003680 

00003690 



INTERDATA 


03TAR 


4820 




OOOER 


037ER 


0A29 


0380R 


48F0 




0348R 


0384R 


4236 




03C4R 


0388R 


4520 




OOOAR 


038CR 


4280 




0394R 


0390R 


4230 




0672R 


0394R 


C840 




0010R 


0398R 


C869 




OO10R 


039CR 


4870 




OOOER 


03A0R 


0817 


03A2R 


OATS 


03A4R 


4070 




OOOCR 


03A8R 


41F0 




05C4R 


63ACR 


0A19 


03AER 


4010 




OOOER 


03B2R 


0AC5 


03B4R 


4300 




035CR 



OS TEXT EDITOR (OS TIDE) 



A3 



11 



03B8R 41D0 
0<»OflR 

03BCR 0733 



03BER 08F5 
03C0R 4300 
0336R 



03C4R 4520 
OOOAP 

03C8R 4380 
0672R 



LH 


R2.EN0PTR 


ENOPTR ♦ LINPTR 


AHR 
LH 


R2.LINPTR 
R15.AIFLG»2 


Tot AL BUFFER USED 


BNZ 


S3 




CLH 


R2.EN0TXT 


BUFFER OVERFLOW WITH LtNE 


BL 


• ♦8 




BNC 


OVRFLW 


overflow of Text buffer 


LHI 


FROM.LINE 


NO OVERFLOW 
SET TEXT POINTERS TO 


LHI 


THRU.LINE(LINPTR) APPEND LlNE TO END 


LH 


TO.ENOPTR 


OF LAST LINE 


LHR 
AHR 
STH 


Rl.TO 
TO* ONE 
TO.OPNPTR 


IN TEXT Buffer 

APPENDEO LINE IS L 
SET POINTER 


BAL 


R15.M0VTXT 


APPEND LtNE 


AHR 
STH 


Rl.LlNPTR 
Rl.ENDPTR 


TO TEXT 

POINTS TO ENO OF LAST LINE 


AHR 
B 


R12.0NE 
Al 


increment iteration count 
Continue appending 



• CHANGE LINES 

CHANGE BAL R13.DELETE*4 



XHR COUNT. COUNT 



DELETE TEXT 

FROM TEXT BUFFER 
FORCE COUNT *0 AFTER DELETE 



• INSERT LINES 

INSERT LHR R15.0NE 
B AI 



S3 



CLH R2.ENDTXT 
BNL OVRFLW 



TEST FOR OVERFLOW 
OVERFLOW OF TEXT BUFFER 

SET POINTERS 

IN TEXT BUFFER 



00003700 

00003710 
00003720 

00003730 

00003740 

00003750 

00003760 

000037?0 
00003780 

00003790 

00003800 

000038i0 
00003820 
00003830 

00003840 

0000385b 
00003860 

00003870 
00003880 

00003890 
00003900 
00003910 
00003920 
00003930 
00003940 

00003950 
00003960 
00003970 
00003980 
00003990 
00004000 
00004010 
00004020 

00004030 
00004040 
00004050 

00004060 

ooob4otb 

00004080 



INTERDATA OS TEXT EDITOR 

LH 



03CCR 4840 
OOOCR 

0300R 4860 
OOOFR 

03D4R 4870 
OOOCR 

03D8R 0A79 

03DAR 0817 
03OCR 41F0 

05C4R 
03E0R C840 

0010R 
03E4R C869 

OOOFR 
03E8R 4870 

OOOCR 



03ECR 
03F0R 
03F4R 

03F8R 

03FAR 

03FER 
0400R 



41F0 

05C4R 

4010 

OOOCR 

4820 

OOOER 

0A29 

4020 

OOOER 

0AC5 

4300 

035CR 



0404R C8D0 

02FER 
0408R 41F0 

0606R 
040CR 0848 
040ER 0A45 
041 OR 4540 
OOOER 



0414R 4380 
043AR 

0418R 48A0 
0068R 

d4lCR 41F0 
0536R 



0420R 0871 



LH 
LH 



(OS TIDE) 03-027R02A13 RACE 12 
FROMtOPNPTR TO MOVE TEXt FROM 
THRU.ENDPTR OPEN LINE THRU END 
TOtOPNPTR OF LAST LINE 



AHR TOtLINPTR 



LHR 
8AL 

LHI 

LHI 

LH 

• 

8AL 

STH 

LH 

AHR 
STH 

AHR 
B 

• DELETE LINE 

DELETE LHI 

OELCHG BAL 

LHR 
AHR 
CLH 



BNL 

LH 

BAL 



Rl.TO 
R15.M0VTXT 

FRONTLINE 



ALLOW ROOM TO INSERT 
NEW LINE BEFORE L 
Rl POINTS TO L 

position Changed 



INSERT LINE 
THRU.LINE-KLlNPfR) IN TEXT BUFFER 
TOiOPNPTR 



R15.M0VTXT 

Rl.OPNPTR 

R2.EN0PTR 

R2.LINPTR 
R2.ENDPTR 

R12«0NE 
At 



R13.LST0PN 

R15.TW0ARG 

FR0M.R8 

FR0M»0NE 

FROMtENDPTR 



OPNPRV 

R10.ARG1 

R15.FINDLN 



OPEN LINE POINTER 



SET NEW ENO POINTER 



CONTINUE CHANGE. INSERT 



DELETE 

CHANGE COMMAND ENTERS HERE 

R8 * ENO OF ARG2 OR L 
END OF ARG2 OR L *l 

IF END OF LAST LINE 
DELETED IS END OF 
LAST LINE IN BUFFER 
OPEN PREVIOUS LINE 

LOAD RIO W ARGl 

FIND LINE 

NOW RETURN FROM FlNOlN 
RI » ARG1 START 
R8 * ARG1 ENO 



LHR TO.Rl 



00004090 

00004100 

00004110 

00004120 
00004130 
00004140 
00004150 
00004160 

00004170 

00004180 

00004190 

00004200 
00004210 

00004220 

00004230 

00004240 
00004250 

00004260 
00004270 

00004280 
00004290 
00004300 
00004310 
00004320 

00004370 

00004380 
00004390 
00004400 

00004410 
00004420 
00004430 
00004440 

00004450 

00004460 

00004470 
00004480 
00004490 
00004500 



INTERDATA OS TEXT EOITOR (OS TIDE) 03-027R02A13 

0422R 4860 LH THRU.ENOPTR 

OOOER 
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0426R 

042AR 
042CR 
042ER 
0430R 

0434R 

0438R 



043AR 

043ER 
0440R 

0444R 
0446R 

044AR 

044ER 

0452R 



4070 

OOOCR 

08E6 

0AE7 

0BE4 

40E0 

OOOER 

41F0 

05C4R 

030D 



48A0 

006BR 

055A 

4360 

0454R 

0BA5 

41F6 

0536R 

4010 

OOOCR 

4080 

OOOFR 

O30O 



STH 


T0.0PNPTR 


L PfR NOW START 
OF FIRST DELETED LINE 


LHR 
AHR 
SHR 
STH 


R14.THRU 
Rl4tT0 
R14.FR0M 
Rl4»ENDPTR 


ENOPTR 

♦ St ART ARGi LINE 
- END AR62 LINE '♦! 
SET NEW ENOPTR 


BAL 


R15.M0VTXT 


MOVE TEXt 


BR 


R13 


LIST OPEN LINE 



OR RETURN TO INSERT 
PDR CHANGE COMMAND 



OPEN AND LIST PREVIOUS LINE 



OPNPRV LH 



R10«AR01 



CLHR ONE » RIO 
8NL KILL 



SHR 
BAL 

STH 

STH 

BR 



RIOtONE 
RlSfFlNDLN 

Rl*OPNPTR 

R8.ENDPTR 

R13 



ARG LT OR *1 
6 START 



FIND PREV LINE 
Rl START OF PREV LINE 
R8 END OF PREV LINE 
LIST OPEN LINE 



• K COMMAND KILL TEXT BUFFER 



0454R 


4300 
0070R 


KILL 

• 
• 
• 


8 


START 


INITIALIZE TEXT EDITOR 
LIST OPEN LINE 


0458R 


C810 


LIST 


LHI 


R1,X»2805» 


KEYBOARD OUTPUT 


045CR 
0460R 

0464R 


2805 

4010 

090AR 

C800 

OOOS 

4300 

047AR 


• 
• 

• 
• 
• PRINT 


STH 
LHI 

8 

LINE 


Rl* DEVOUT 
RI3.5 

PR1 


LINES WITH 

SeT line pointer 

text is 5 char 
r*m start or line 


0468R 


C810 
2803 


• 

PRINT 


LHI 


R1*X»2803» 


LIST DEVICE 



00004516 

00004520 
00004530 

00004540 
006045§6 
00004566 
000045T6 

00004580 

00004590 
00004600 

oo604bio 

00004620 
00004630 
00004640 

00004656 
00004660 

00004670 
66604680 

00004690 

00004700 

00604716 
00064720 
00004730 
00004746 
0000475D 
00004760 

000047?fl 
00004780 
0000479C 

0000480C 
000048H 

0000482C 

0060483C 

0600484C 
0000485C 
0000486C 

0000487C 
0000488C 
0000489C 
0066490C 
0000491C 



INTERDATA OS TEXT 


EDITOR 


(OS TIDE) 


03-027R02A13 P* 6 * 14 


046CR 4010 




STH 


R I, DEVOUT 


OUTPUT DEVICE 


090AR 
0470R 4300 




B 


OPUT 




0478R 


• 








0474R 41F0 


• 

• PUNCH TEXT 

OUTPUT BAL 


R15.SETBIN 


INPUT DEVICE SPECIFIED 


067AR 










0478R 07DD 


• 
OPUT 


XHR 


Rl3tR13 


CLEAR LINE POINTER 


047AR 41F0 


• 
PR1 


BAL 


R15»TW0ARG 


VALIDATE AROS 


0606R 
647ER 48B0 




LH 


R'lltAftGl 




0068R 
0482R 08AB 
0484R 41F0 


PR2 


LHR 
BAL 


RIOtRll 
R15»FINDLN 


LOAD NEXf LINE ARG 

get line 


0536R 
0488R 0841 
048AR 0868 
048CR C87D 




LHR 
LHR 
LHI 


FR0M f Rl 
THRUtRB 
T0»LINE<R13> 


Rl s StART OF LlNE 

R8 * ENO OF LINE 

R13 *0 FOR P «S FOR L 


0010R 
0490R 0881 

0492R oain 

0494R 082B 
0496R 41E0 


LINUM 


LHR 
LHR 
LHR 
BAL 


R8«R1 
RltR13 
R2.RU 
Rl4tCRCNT 


LOAD OPEN LlNE a 
SAVE LINE POtNtER 
SAVE ARG1 
DEtERMtNE 


01F6R 
049AR 41F0 




BAL 


RIStCNVBTD 


LINE NUM8ER 


056AR 
049ER C800 




LHI 


CHARtX«20« 


SPACE 


0020 
04A2P D200 




STB 


CHAR»LINE»4 


AFtER LINE AOMSER 


0014R 
04A6R 08B? 




LHR 


R11»R2 


RESTORE 


04A8R 0801 
04AAR 41F0 




LHR 
BAL 


R13»R1 
RIStMOVTXT 




0SC4R 










04AER 41F0 


* 

PR3 


BAL 


R15.PUT0UT 




068CR 










0482R 0AB5 
04B4R 45B0 




AHR 
CLH 


RlltONE 
RUfAR62 


TEXT OUffUt COMPLETE 


006AR 










04B8R 4280 




BL 


PR2 


NO 


0482R 
04BCR 4330 




BE 


PR 2 


NO 


0482R 
04C0R 4300 




a 


COMOOE 




OOOAR 


• 










• 
» 




REPRODUCE 


INPUT 


04C4R 41F0 


« 

REPROO BAL 


RlSiSETBIN 


INPUT DEVICE SPECIFIED 


067AR 











00004920 

00004930 

00004940 
00004950 
00004960 
00004980 

00004990 
00005000 
00005010 
00005020 

00005030 

00005040 
00005050 

00005060 
00005070 
00005080 

00005090 
00005100 
00005110 
00005120 

00005130 

00005140 

00005150 

00005160 
00005170 
00005180 

00005190 
00005200 

00005210 
00005220 

00005230 

00005240 

00005250 

00005260 
00005270 
00005280 
00005290 
00005300 



INTERDATA OS TEXT EDITOR (OS TIDE) 



03-027R02A13 



PAGE IS 



04C8R C8B0 
068CR 

04CCR 4300 
0404R 



LHI RU.PUTOUT 
8 SKIP»4 



SET BRANCH 



• SKIP INPUT LINES 



0400R 


C8B0 
04EBR 


SKIP 


LHI 


RUtSK2 


SET BRANCH 


04D4R 


*»1F0 
0SF4R 


• 


SAL 


RISiONEARG 


R12 IS AR81 


0408R 


07AA 




XHR 


RlO.RlO 




04DAR 


0535 




CLHR 


COUNT t ONE 




040CR 


4330 
04E2R 




BE 


SKI 




O4E0R 


08CA 




LHR 


R12»R10 


set ARG to |ERO 
GET INPUT LINE 


04E2R 


4100 


SKI 


BAL 


R13.N0KBRD 




07DAR 


• 
• 






B TO PUtOUt FOR R 
AND SK2 FOR S 


04E6R 


01FB 


• 


BALR 


RlS.RU 




04E8R 


08CC 


• 
SK2 


LHR 


Rl2tRl2 




04EAR 


4330 
04E?R 




BZ 


SKI 


NO ARO SKIP UNTIL BK 


04EER 


0AA5 




AH« 


RlOtONE 




•4F0R 


05AC 




CLHR 


R10.R12 




04F2R 


4280 

04E?R 


• 


BL 


SKI 


LIST LAST LINE SKIPPED OR 


04F6R 


4300 
032CR 




8 


LISTLN 


REPRODUCED 



04FAR C810 
0750R 

04FER 4010 
006CR 

0502R 4300 
OOOAR 



• SET TABULATE FOR PRINT AND List 

TAB LHI Rl.TB SET TABULATE FLAG 

StH R1,TA8FLG FOR WttHt 

B COMODE RETURN TO COMMAND MODE 



0506R 48A0 
000ER 

050AR 45A0 
0008R 

050ER 4280 
052ER 



* SHOW NUMBER OF BYTES USED 
BYTCNT LH RiOtENDPTR 

CLH RIOtBONTXT 

BL ERROR 



SHOW NUMBER 

CONSUMED 

IN TEXT BUFFER 



INTERDATA 



0512R 

0516R 
0518R 
051AR 

OSIER 

0522R 

0S26R 

052AR 



4880 

0008R 

0BA8 

0AA5 

41F0 

056AR 

C8F0 

0000 

O2F0 

OO14R 

EUO 

08FAR 

4300 

OODAR 



OS TEXT EOITOR IOS TIDE) 

LH R8.B0NTXT 

SHR R10*R8 

AHR R10.0NE 

BAL R15.CNVBTD 

LHI R15.X«0D« 

STB R15»LINE*4 

SVC 1.LINEB 

B COMOOE 



03-027R02A13 PAGE 16 

START OP TEXt iUFTER 

DIFFERENCE 

PLUS ONE ©IVES BYTE COUNT 

CONVERT BIN TO DEC 



Print number 
on tty 



052ER EUO 
08F2R 

0532R 4300 
OODAR 



ERROR 



ERROR ROUTINE PRINT QUESTION MARK 
SVC UERR 

b comode return to command mooe 



• find start and end of line 



0536R 


4880 
0008R 


FINOLN 


LH 


R8.BGNTXT 


053AR 


4580 
OOOER 




CLH 


R8.EN0PTR 


0S3ER 


4380 
0S2FR 




BNL 


ERROR 


0S42R 


0818 


FN1 


LHR 


RltRB 


0544R 


41E© 
055AR 




BAL 


R14.GETCR 


0S4BR 


08AB 




SHR 


RlOtONE 


054AR 


033F 




BFCR 


3.R15 


054CR 


4580 
OOOFR 




CLH 


R8*EN0PTR 


0550R 


4380 
052FR 




BNL 


ERROR 


0S54R 


0A85 




AHR 


RBtONE 


0556R 


4300 

0542R 





B 


FN1 






• 
• 


FIN0 


END OF A LINE 


053AR 


D309 
0000 


* 
OETCR 


LB 


CHAR*0(R8> 


0S5ER 


C500 
OOOO 




CLHI 


CHAR.X'OD* 


0S62R 


033F 




BFCR 


3.R14 


0564R 


0A85 




AHR 


R8»0NE 


6566R 


4300 

055AR 




B 


OETCR 



WHOSE NUMBER IS IN RIO 
FIND BEGINNING 



AND ENDING 

OF ARGUMENT LINE 

Rl* START R§« END 
B IF DIFE «0 



ERROR 



R8 POINTS TO LtNE 



R8 END OF LINE 

NO CR 

CONTINUE SEARCH 



00005720 

00005730 
00005740 
00005750 

00005760 

00005770 

00005780 

00005790 

00005800 
00005B10 
00005820 
00005830 
00005840 

00005850 

00005860 
00005870 
00005880 
00005890 
00005900 

00005910 

00005920 

00005930 
00005940 

00005950 
00005960 
00005970 

00005980 

00005990 
00006000 

00006010 
00006020 
00006030 
00006040 
00006050 

00006060 

00006070 
00006080 
00006090 



INTERDATA OS TEXT EOITOR (OS TIDE) 



03-027R02A13 
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• 


BINARY TO DECIMAL 


CONVERSION 






• 


MAX 


4 DEC DIGITS 








• 


CONVERT NUMBER IN 


RIO TO OECIMAL 


056AR 


C5A0 
2710 


CNVBTD 


CLHI 


RIO.lOOOO 


RIO CONTAINS BINARY 


056ER 


438P 
052ER 




8NL 


ERROR 


NUMBER ERROR RETURN 


0572R 


OBBR 




SHR 


Rll.RU 


INITIALIZE REGISTERS TO 


0574R 


OBCC 




SHR 


R12.R12 


ZERO 


0"576R 


C8D0 
0030 
OSEC 


CNV1 


LHI 


R13.C0' 


SET REGISTER TO DECIMAL 


057AR 




LHR 


R14.R12 




057CR 


OAEF 




AHR 


R14.R14 




057ER 


48EF 
05BCR 




LH 


R14.BASECR14) 


LOAO DECIMAL BASE TABLE 


0582R 


OSAE 


CNV2 


CLHR 


R10*ftl4 




0584R 


4280 
0S90R 




BL 


CNV3 




0588R 


ORAF 




SHR 


R10.R14 




058AR 


OAOS 




AHR 


R13.0NE 




058CR 


4300 

0582R 




B 


CNV2 




0590R 


020C 
0010R 


• 

CNV3 


STB 


R13.LINE(R12) 


STORE DEC OIGIT IN BUFFI 


0594R 


C5C0 
0003 




CLHI 


R12.3 




0598R 


031E 




BFCR 


1.R15 


BRANCH IF R12 NOT LOWER 


©59AR 


C5D0 
0030 




CLHI 


R13.C»0» 




059ER 


4230 
05B4P 




BNE 


CNV4 




05A2R 


08BB 




LHR 


R11.R11 




05A4R 


4230 
05B6R 




8NZ 


CNV5 




05A8R 


CBDO 
0020 


• 
• 


LHI 


R13.C i 


SPACE CHAR 

IF PREV AND CURRENT CHAR 
ZERO. STORE SPACE 


05ACR 


D2DC 
0010R 




STB 


R13.LINE(R12) 




05B0R 


4300 

OSBftP 




8 


CNV5 




05B4R 


08BD 


• 
CNV4 


LHR 


R11.R13 


SAVE PREV DIGIT 


05B6R 


OACS 


CNV5 


AHR 


R12.0NE 




05B8R 


4300 

0S76R 




B 


CNV1 




05BCR 


03EH 


BASE 


DC 


1000 


DECIMAL 


05BER 


0064 




OC 


100 


BASE 


05C0R 


OOOA 




OC 


10 


TABLE 


05C2R 


0001 




DC 


1 





00006100 
00006110 
00006120 
00006130 
00006140 
00006156 
00006160 

00006170 

00006186 
00006190 
00006200 

00006210 
00006220 
00006230 

00006240 
00006250 

00006260 
00006270 
00006280 

00006290 
00006300 

00006310 

00006326 
00006330 

00006340 

00006356 
00006360 

00006370 

00006380 
00006390 
00006400 

00006410 

00006420 
00006430 
00006440 
00006450 

00006460 
00006470 
00006480 
00006496 
00006500 



INTFRDATA OS TEXT EDITOR (OS TIDE* 03-027R02A13 
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. SUBROUTINE MOVES TEXT 



05C4R 
05C6R 
C5C8R 

05CCR 

osnop 

05D4R 
05O6R 

05DAR 

G5DCR 
05DER 
05E0R 

05E4R 

05F8R 
05EAR 
05ECR 
OSEER 

05F2R 



0574 

033F 

4380 

OSDCR 

3A4 

0000 

0?A7 

0000 

0A75 

CI 40 

OSCCP 

30F 

0A76 

OP 74 

D3A6 

0000 

02 A 7 

0000 

0H7 C . 

0B6S 

0564 

4 380 

05E0R 

030*=- 



Ml 



MOVTXT CLHR 
BFCR 
BNL 

LB 

STB 



AHR 

8XLF 

BR 

AHR 
SHR 

LB 



M? 
M3 



TO. FROM 

3,R15 

M2 

R10»0(FROM) 

Rl0t0(TO> 

TO. ONE 
FROM, Ml 

R15 

TO, THRU 
TO, FROM 
R10»0<THRU> 



MOVE TEXT 

UP OR DOWN IN 

TEXT BUFFER 

THREE POINTERS USED 

FROM BEGINNING POINT 

THRU FNDING POINT 
TO DESTINATION POINT 



STB R10,0(TO) 

SHR TO.ONE 

SHR THRU, ONE 

CLHR THRU.FROM 

BNL M3 

BR R15 



05F4R 0S3S ONEARG CLHR 


COUNT, ONE 


05F6P 028F 


BTCR 


8.R15 


05F8R 4230 


BNE 


ERROR 


052FR 






05FCR 48C0 


LH 


R12.ARG1 


006flr? 






0600R 4210 


BM 


ERROR 


052E» 






06O4R 030F 


BR 


R1S 



FOR ONE ARG COMMANDS COUNT IS ONE 



VALIDATE FOR 

ONE ARGUMENT B IF LT 



LOOK AT ARG ONE COUNT=l 
NO NEGATIVE ARGS 
RETURN 

FOR TWO ARG COMMANDS COUNT IS TWO 



0606R 


482') 7WOAP6 LH 


R2.ENDPTR 


VALIDATE A TWO 


060AR 


OOOFP 

4520 


CLH 


R2.BGNTXT 


ARGUMENT COMMAND 


060ER 


0008R 
4280 


BL 


ERROR 


ERROR BUFFER EMPTY 


0612R 
0614R 


052FR 

0833 

4230 


LHR 
8NZ 


COUNT, COUNT 
TW1 


COUNT NOT *0 


0618R 


0634P 

C5F0 


CLHI 


Rl5»DELCHG*4 


FOR CHANGE/DELETE N 



00006510 
00006520 
00006530 
00006540 
00006550 
00006560 
00006570 

00006580 
00006590 

00006600 
00006610 

00006620 
00006630 
00006640 
00006650 
00006660 

00006670 

00006680 
00006690 
00006700 
00006710 

00006720 
00006730 
00006740 
00006750 
00006760 
00006770 
00006780 
00006790 

00006800 

00006R10 

00006820 
00006830 
00006840 
00006850 
00006860 
00006870 

00006880 

00006890 

00006900 
00006910 

00006911 
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061CR 
0620R 
0624R 
0628R 
062CR 
0630R 

0634R 

0636R 

063AR 
063ER 
0642R 
0646R 

064AR 

064ER 

06S2R 

0656R 

065AR 

065ER 

0662R 
0664R 

0668R 



04OCR 

4330 

0646R 

C830 

0002 

4050 

0068R 

4880 

OOOFR 

'♦1E0 

01F6R 

40A0 

006AR 

0535 

4?3" 

0656R 

<+6A0 

006RR 

40A0 

006AR 

-noo 

0656R 

4880 

OOOCR 

41E0 

01F6R 

AOAO 

0068R 

40A0 

006AR 

4880 

0068P 

4320 

052FR 

48A0 

006AR 

05A8 

4280 

052EP 

083F 



066AR A1F0 
053ftR 



066ER 08F3 
0670P 030T 



TW1 



TW1A 



TW2 



BE 


TW1A 


LHI 


COUNT, 2 


STH 


0NE.ARG1 


LH 


R8,ENDPTR 


BAL 


R14.CRCNT 


STH 


R10tARG2 


CLHR 
BNE 


COUNT, ONE 
TW2 


LH 


R10.ARG1 


STH 


R1CARG2 


B 


TW2 


LH 


R8.0PNPTR 


BAL 


R14.CRCNT 


STH 


R10,ARG1 


STH 


R10»ARG2 


LH 


R8.ARG1 


BNP 


ERROR 


LH 


R10.ARG2 


CLHR 
BL 


R10,R8 
ERROR 


LHR 


COUNT, R15 



BAL R15.FINDLN 



LHR 
BR 



R 15, COUNT 
R15 



MEANS USE OPEN LINE 

COUNT=0 FORCE =2 

SET ARG1 =1 

END OF LAST LINE TO R8 

GET LINE NUMBER 

COUNT =2 

FOR P,0,L,0,C COMMANDS, SET 

ARG2*ARG1*SINGLE ARG PRESENT 

COUNT=0, CHANGE OR DELETE 

COUNT CR TO FIND L 
NUMBER 

NUMBER OF OPEN LINE 

IN RIO SET ARG1=ARG2 

COUNT «2 

NO NEGATIVE ARGS 



SAVE EXIT ADDRESS 
RIO SET TO 

NUMBER OF OPEN OR ARG2 LINE 
ON ENTRY 



AFTER FINDLN 

Rl = START 

RB * END 

OF THE OPEN OR ARG2 LINE 



PRINT EXCLAMATION POINT TEXT BUFFER OVERFLOW 



0000691 

0000692 

0000693 

0000694 

0000695 

00006961 

00006971 
00006981 

0000698 

0000698i 

0000698; 

00006991 

0000700( 
000070K 

0000702( 

0000703( 

0000704C 

0000705C 

0000706C 

0000707C 
0000708C 

0000709C 
00007100 
00007110 
00007120 
00007130 

00007140 
00007150 
00007160 
00007170 
00007180 
00007190 
00007200 
00007210 
00007220 
00007230 



INTEROATA OS TEXT FOITOR 

0672R El 10 OVRELW SVC 

0902R 
0676R 4100 B 

00OAR 



067AR CflEO 

?HO? 
067ER 4OE0 

O90AR 
0682R CREO 

07 3?R 
0686R 40K> 

noftCR 
06BAR 030E 



068CR n 799 
06RER h.93'3 

00 6^ 
0692R C5JC 

0453R 
0696R 4230 

069ER 
069AP ca9o 

OOOS 
069ER m29 

001 OP 



06A2R 
06A6R 
06AAR 
06AER 

0682R 

06B6R 
06B8R 

06BCR 

06C0P 



0309 

0010R 

C500 

OOOO 

4330 

077CR 

C500 

0020 

4330 

06C4R 

0A95 

C590 

ooso 

4380 

077CP 
4300 

06A?R 



06C4R OH (SO 

06C6R cs2o 
002* 

06CAR 433ft 
73?R 

06CER 4870 



SETBIN LHI 
STH 
LHI 
STH 

8R 

» 

a 

PUTOUT XHR 
LH 

CLHI 

BNE 
LHI 

LB 

» 

NEWCHR LB 

CLHI 
BE 

CLHI 
BE 



(OS TIDE) 
ltOVFL 

COMODE 

R14iX«280?« 
R14, DEVOUT 
R14.NTB 
R14.TABELG 
R15 



LINPTR.LINPTR 
COUNT, COMAND 

COUNT, LIST 

• ♦8 
LINPTR,5 
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TO COMMAND MODE 



PAPER TAPE OUTPUT 



NO TABBING ON 
OUTPUT 

INITIALIZE LINE POINTER 
IE COMMAND L 

SKIP OVER NUMBER 



R2,LINE(LINPTR) SAVE EIRST LINE CHAR 

CHAR. LINE (LINPTRI 
CHAR.X«0D« IS CHAR CR? 



NCI 



AHR 
CLHI 

BNL 

B 



EOL 
CHAR.X«20t 

SPACE 

LINPTR,ONE 
LINPTR,80 

EOL 
NEWCHR 



YES 

IS CHAR BLANK 

YES 

BUMP LINE POINTER 
LINE LIMIT 

YES 

NO 



SPACE 



LHR 
CLHI 


THRU»LINPTR 
R2,X«2A« 


SAVE LINE PTR 
A • COMMENT CARD 


BE 


NTS 


YES, NO TABS 


LH 


TO.TABELG 





00007240 

00007?50 

00007260 
00007270 
00007280 
00007290 

00007300 

00007310 

00007320 

00007330 
00007340 
00007350 
00007360 
00007370 
00007380 

00007390 

00007400 

00007410 

000074^0 

00007430 
00007440 

00007450 

00007460 

00007470 

00007480 

00007490 
00007500 

00007510 

000O7S20 

00007530 
00007540 
00007550 
00007560 

00007570 

00007571 



INTERDATA 


OS TEXT 


EDITOR (OS TIDE) 


03-027R02A13 PA 


006CR 










06D2R C570 




CLHI 


TO.NTB 


IF NO TAB SET, 


0732R 










06O6R 0337 




BFCR 


3. TO 


GOTO NTS 


06O8R 0A95 


SCAN 


AHR 


LINPTR,ONE 


SCAN 


06OAR 0309 

001*R 
06OER C500 




LB 


CHAR, LINE ILINPTRi OVER 




CLHI 


CHARtXtZO* 


SPACES 


0020 










06E2R 4330 




BE 


SOUEEZ 


DELETE EXTRA SPACES 


0738R 










06E6R C500 


SPAC1 


CLHI 


CHAR.X»OD» 


CR» 


OOOO 










06EAR 4330 




BE 


EOL 




077CR 










06EER 4870 

006CR 
06F2R 48E0 




LH 


TO.TABFLG 


TABFLG IS NTB OR TB 




LH 


R14.C0MAN0 


TO SEE IF "LIST* 


0066R 










06F6R C830 




LHI 


COUNT* 8 


OPERATION FOR PRINT 


0008 










06FAR C5E0 




CLHI 


R14.LIST 




0458R 










06FER 4230 




BNE 


•♦8 




0706R 










6702R CA30 




AH I 


COUNT, S 


adjust 


0005 










0706R 0593 




CLHR 


LINPTR,COUNT 




0708R 0287 




BfCR 


a, to 




070AR C830 

oooe 

070ER CSEO 


# 


LHI 


COUNT, 14 


OPERAND fOR P*lNT 




CLHI 


R14,LIST 




0458R 










0712R 4236 




BNE 


• ♦8 




071AR 






1 




0716R CA30 




AH I 


COUNT, 5 


ADJUST 


0005 










071AR 0539 




CLHR 


COUNT.LINPTR 




071CR 0387 




BFCR 


8, TO 




071ER C830 

0024 

0722R C5E0 


• 


LHI 


COUNT, 36 


COMMENT For print 




CLHI 


R14,LIST 




0458R 










0726R 4230 




BNE 


• ♦8 




072ER 










072AR CA30 




AMI 


COUNT, 5 


adjust 


0005 










072ER 0593 




CLHR 


LINPTR,COUNf 




0730R 0287 




BTCR 


8, TO 




0732R 0896 


• 

NTS 


LHR 


LINPTR,THRU 


restore 


0734R 4300 




B 


NCI 


NEXT CHARACTER 


06B6R 
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0000757, 

0000757: 
00007581 
00007591 

00007601 

00007611 

0000762( 
00007631 

00007641 

00007651 

0000766( 

000076?! 

0000768( 

0000769( 

0000770C 

0000771C 
0000772C 
0000773C 
0000TT74<] 

0000775C 

OOOOff^C 

0000777C 

0000778C 
0000779C 
0000780C 
00007810 

00007820 

00007830 

00007840 

00007850 
00007860 
00007870 
00007880 
00007896 



INTERDATA OS TEXT EOITOR (OS TIDE) 
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0738R 
073AR 

0T3ER 

674ZR 

6746R 

•74AR 
674CR 



0849 
D304 
0011R 
0204 

0010R 

C500 

OOOo 

4330 

06DAR 

0A45 

4300 

073AR 



0750R C840 
004E 

0754R D304 
001 OR 

0758R D204 
0011R 

0T5CR 0549 
075ER 4330 

0768R 
0762R 0B4«5 
0764R 4300 

0754R 

0768R C800 
0020 

076CR 0209 
0010R 

0770R 0A95 
0772R 059? 
0774R 4280 

0750R 
0778R 4300 

06A2R 



077CR 
0780R 
0784R 
0788R 
078CR 
0790P 



C80C 

OOOD 

0209 

0010R 

E110 

090AR 

48E0 

090CR 

4210 

089AR 

4820 



SQUEEZ LHR 
LB 

STB 

CLHI 

BE 

AHR 
B 



TB 



TBI 



EOL 



LHI 

L8 

STB 



CLHR 
BE 

SHR 
B 



LHI 
STB 



AHR 

CLHR 

BL 

B 



END 
LHI 
STB 
SVC 
LH 
BTC 
LH 



COLUMN, LINPTR MOVE LINE RldHt 
CHAR. LINE>1 (COLUMN) 

CHAR t LINE (COLUMN) 

CHARtX«0O« 

SCAN»2 END OF LINE 

COLUMN, ONE 
SQUEEZE 

COLUMN, 78 POINT TO ENO OF LINE 

CHAR, LINE (COLUMN) 

CHAR. LINE^l (COLUMN) 

MOVE LINE LEFT 
COLUMN, LINPTR 
TBI 



COLUMN, ONE 
TB*4 



LOOP 



CHAR,X»20« GENERATE SPACE 
CHAR, LINE (LiNPtR) INSERT 



LINPTR, ONE 
LINPTR, COUNT 
TB 

NEWCHR 



MOVE TEXT UNTIL LlNPTR 
EQUALS TAB eOUNf 



PICK UP NEW CHAR 



OF LINE 

char,x»0d» output cr 
char, line (linptr) insurance 
i.oevout Output line 
r14,dev0ut*2 test status 

UIOERR 
R2, COM AND 



00007900 
00007910 
00007920 
00007930 

00007940 

00007950 

00007960 

00007970 
00007980 

00007990 
00008000 
00008010 

00008020 
00008030 

00008040 
00008050 
00008060 

00008070 
00008080 

00008090 
00008100 

00008110 

00008120 
00008130 
00008140 
00008150 

00008160 

00008170 
00008180 
00008190 
00008200 
00008210 

00008220 

00008230 

00008240 

00008250 

00008260 
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0060R 
0794R C910 

0*6«R 
0798R 4330 

07A6R 
0T9CR C520 

0458R 
07A0R 4330 

07A6R 

07A4R 030F 



07A6R 4820 
006ER 

07AAR 0A25 

07ACR 4020 
006ER 

07B0R C520 
0036 

07B4R 028F 



07B6R 
07BAR 
07BER 
07C2R 
07C6R 
07CAR 

07CER 

07D0R 

0704R 
•7D8R 



C830 
OOOC 
C800 
0000 
0200 

OOlOR 

EUO 

090AR 

48E0 

090CR 

4210 

089AR 

0B35 

4230 

07BAR 

4030 

006ER 

030F 



07DAR C8F6 

4801 
07OER 40F0 

0912R 
07E2R C8F0 

0000 
07E6R 40FO 

0060R 
07EAR El 10 



CLHI 

BE 

CLHI 

BE 

• 

BR 

CKLCNT LH 

AHR 
STH 

CLHI 
8TCR 

LHI 

LFS LHI 

STB 

SVC 

LH 

BTC 

SHR 
BN2 

STH 

BR 



Rt. PRINT 
CKLCNT 
R2.LIST 
CKLCNT 

R15 

R2, LCOUNT 

R2.0NE 
R2, LCOUNT 

R2»54 

8,R15 

COUNT t 12 

CHAR»X*OD» 

CHAR* LINE 

1. DEVOUT 

R14tD£V0UT«2 

ltlOERR 

COUNT* ONE 
LFS 

COUNT tLCOUNT 

R15 



• non-keyboaRo line Input 

• useo by r s a commands 



NOKBRD LHI 
STH 
LHI 
STH 
SVC 



RlS*Xt480i* 

RlStDEVlN 

RIS.X'ODOD* 

R15.LlN£*80 

l.OEVlN 



If COMM L OR P 
CHECK LfNE/PO COUNT 
BUT NOT ON 
R AND COMMANDS 

RETURN 



ON L CHECK 

LINE COUNT 

LCOUNT SET »0 IN COMO&E 

LINE COUNT LIMIT OF 54 
NO 



AT END OF PAGE 



2ER0 LCOUNT 



PAPER Tape Input 



0000*270 

00008280 

00008290 

00008300 

00008310 
00008320 
66008330 
00008340 
06008356 
66068366 

O00083?0 
00068386 

00006390 

00008400 
00008410 
00608426 
00008430 

00008440 

00008450 

0000846C 

0000B47C 

0000848C 

0000849C 

ooOOasoc 

000085H 

00668«>2( 
0600853< 
0000854C 
0000855( 
0066856C 
0000857{ 
6660858( 

0000859< 

00008601 

000086K 

00008621 
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0912R 
07EER 48E0 

0914R 
07F2R A210 

089AR 
07F6R 4300 

0816R 



07FAR 
07FER 
0802R 
0806R 
080AR 

080ER 
0812R 

0816R 
0818R 

081CR 
081ER 

0822R 

0826R 

082AR 

082ER 

0832R 

0836R 
0838R 

083CR 

0840R 

0844R 
0846R 
0848R 

084CR 



C8F0 

4805 

40F0 

0912R 

C8F0 

OOOD 

40F0 

006QR 

E110 

0912P 

48FP 
0914R 
4210 
02FER 

0799 

0309 

0010R 

0A95 

C500 

OOOA 

4330 

0880R 

C590 

0052 

4380 

052ER 

C500 

OOOD 

4230 

0818R 

0595 

4330 

0850R 

D379 

OOOER 

C570 

0020 

023D 

0895 

0209 

OOOFR 

4300 



LH R14tOEVIN*2 
BTC l.IOERR 
B SCANER-2 



• KEYBOARD LINE INPUT 
RDLINE LHI 



TEST STATU* 



STH 
LHI 
STH 
SVC 

LH 
BTC 



XHR 
SCANER LB 



R15,Xi4805« 

R15«DEVIN 

Rl5tX«0D0D« 

R15.LINE*80 

ltOEVlN 

R15»DEVIN^2 
l.LSTOPN 



KEYBOARD INPUT 



READ LINE 



LINE BREAK. SHOW OPEN LINE 



LINPTR,LINPTR RESET LINE POINTER 
CHAR.LINE(LINPTP) 



AHR LINPTR.ONE 

CLHI CHAR»X»OA« 

BE LNFEEO 

CLHI LINPTR.8U 

BNL ERROR 

CLHI CHARtX'ODt 

BNE SCANER 

• FOUND CARRIAGE RETURN 

SCN1 CLHR LlNPTR.ONE 

BE ENDSC 



IS CHAR LF OPEN LINE 
FOLLOWING CURR OPN LINE 



CR 

CONTINUE SCAN 

AT FIRst CHARACTER ? 



LB T0.LINE-2(LINPTR) 

CLHI T0.X»20« SPACE? 

BTCR 3.R13 NO 

SHR LINPTR,0NE 

STB CHAR.LINE-KLINPTR) DELETE TRAILING SPACES 



B 



SCN1 



00008630 

00008640 

00008650 

00008660 
00008670 
00008680 
00008690 
00008700 

00008710 

00008720 

00008730 

00008740 

00008750 
00008760 

00008770 

00008780 
00008790 
00008800 

00008810 
00008820 

00008830 

00008840 

00008850 

00008860 

00008870 

00008880 
00008890 
00008900 

00008916 

000089^0 

00008930 
00008940 
00008950 

00008960 



INTERDATA OS TEXT EDITOR (OS TlOEl 


03 


-027R04A13 PAGE 


0836R 

• 
0830* 0370 ENOSC L8 T0.MESS3 

092BR 
0894R CS70 CLHI T0.X«2A« 

08S8R 0330 BFCR 3.R13 




mode flag 

VES CR AND tN E MODE 
EXIT 



• OPENS ANO LISTS LINE PRECEDING 

• CURRENT OPEN LINE 



08SAR 4880 

OOOCR 
085ER 6B85 
0860R 4980 


BKSPAC 
BK1 


LH 

SHR 
CLM 


R8»0PNPTR 

R8.0NE 
R8*B0NTXT 


OPEN 

AND 

LIST PREV LINE 


0008R 
0864R 4280 

OMER 
0868R 4330 

0878R 
0B6CR 0308 




BL 
BE 

LB 


ERROR 

BK2 

CHARt-HRB) 


NO PREV LINE 

PPEV LINE At BONTXT 


FFFF 
0870R C500 

0000 
0874R 4230 




CLHI 
BNE 


CHAR»XtOD« 
BK1 


CR 

CONTINUE SEARCH FOR CR 


085ER 
0878R 4080 


BK2 


STH 


R8*OPNPTR 


CR FOUND. SEt POINTER 


000CP 
087CR 4300 

oarrR 




B 


LSTOPN 


LIST OPEN LINE 



0S80R 4880 


LNFEEO 


LH 


R8.0PNPTR 


OOOCR 
0884R 41E0 




BAL 


R14.GETCR 


0S5AR 








08B8R 4S80 

000|R 
888CR 4380 




CLH 


R8.EN0PTR 




BNL 


ERROR 


0S2ER 








0B90R 0A8«5 




AHR 


R8.0NE 


0892R 4080 




STH 


R8.0PNPTR 


OOOCR 
0B98R 4300 




B 


LSTOPN 


02FER 


» 








• 

• I/O 


TRANSFER ERROR 




• R14 


■ ERROR 


STATUS 


089AR 07DD 


IOERR 


XHR 


R13.R13 


0B9CR 08FE 




LHR 


R1S»RU 



LINE FEED ROUTINE ADJUSTS POINTERS 
OPENS AND LISTS LINE 
FOLLOWING CURRENT OPEN LINE 



FIND END OF L 

ERROR 

SET NEW L POINTER 
LIST OPEN LINE 



00008970 
00008980 

00008990 

00009000 
00009010 
00009020 
00009030 
00009040 
000090!i0 
00009060 

00009070 
00009080 

00009096 

00009)00 

00009110 

00009125 

00009130 

00009140 

000091S6 

00009160 

00069l76 
00009180 
00009190 
00009260 
000092iq 
00069220 

00009236 

00009240 

00009250 

00609260 
00009276 

0000928C 

0600929( 
0000930C 
0000931C 
0000932C 
0000933( 
0000934( 



INTERDATA OS TEXT EOITOR (OS TIDE) 

SLHL R14t4 
SRHL Rl5tl2 
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089ER COEO 

0004 

08A2R CCFO 

O00C 

08A6R C6F0 

0030 

08AAR C5F6 

003A 

08AER 4280 

08B6R 
08B2R CAFO 
0007 
08B6R D2FD 

0936R 

08BAR OADS 

08BCR C5D0 

0004 

08C0R 4280 

089CR 

08C4R El 10 
091AR 

08C8R 4300 
OOOAR 



08CCR E130 
0000 



0800R El 20 
0808R 

08D4R 4300 
0004R 

0808R 0001 



OHI R15tX«30» 

CLHI Rl5tX»3At 

BL •♦B 

AHI R15,7 

STB R15»MESS6*6(R13» 



CONVERT HEX tO ASCII 



AHR R13.0NE 
CLHI R13t4 

BL I0ERR*2 

. PRINT ERROR HESSAOE 
SVC l.ERRIO 

B COMODE 



LOOP 



RETURN TO COMMAND MODE 



• ENO OF JOB 

ENDJOB SVC 



3t0 



• PAUSE. RETURN TO OS 

• CONTINUE RESTARTS TIDE At ORG *4 
• 

PAUSE SVC 2.<»*8 



B 
DC 



RESTRT 
1 



10 CALL PARAMETER BLOCKS 

08DAR 2805 CRLF DC X»2805« ,0tMESSl .MESS1 

0000 
0926R 

08E2R 2M? TIDE DC X. 2 80 5 .,0.MESS2.MESS2*4 

0000 
0922R 

08EAR 2805 MODE DC X»2805« .0.MESS3.MESS3-1 

0000 

0928R 

0929R 



00009350 

00009360 

00009370 

00009380 

00009390 

00009400 

00009410 

00009420 
00009430 

00009440 

00009450 
00009460 

00009470 

00009480 
00009490 
00009500 
00009510 

00009520 
00009530 
00009540 
00009550 
00009560 

00009570 

00009580 
00009590 
00009600 
00009610 
00009620 
00009630 
00009640 
00009650 



00009660 



00009670 



INTEROATA OS TEXT EOITOR (OS TIDE) 63-627R62A13 

08F2R 2805 ERR DC X«2805t t0tMESS4,MESS4«2 

0000 

092AR 

092CR 
68FAR 2805 LINEB OC Xi280St , 6,LINE.LiNE*79 

0000 

0010R 

005FR 

•962R 2805 OVFL OC X«2865« ♦O.MESSS.MESSSM 

0000 

092ER 

092FR 

090AR 2605 DEVOUT DC Xt2B05» t d,LlNE,LlNE»79 

0000 

0010R 

005FR 
0912R *805 DEVIN DC X t*805t , 0,LINE.LlNE*79 

000Q 

0010R 

005FR 

691AR 2805 ERRIO DC X«2805t ,e,MESS6.MES$6*ie 
0000 
0930R 
093AR 

• 

• MESSAGES 
• 
0922R 5449 MESS2 DC X»5449t ,X t4445» ,X t ODOO' 

4445 

0000 
9926R MESSI EQU MESS2»4 
0928R OOOD MESS3 DC XtoOOD* 
092AR 203F MESS4 OC X«203F« ,X«0D66» 

0000 
092ER 210D MESS5 OC X«2100t 
•930R 494F MESS6 OC C* IOEKRt *0»0,X«0OOO* 

4552 

5220 

OOOQ 

0000 

OOOD 
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00009680 



00009690 



00009766 



00009716 



00009720 



00009736 



00009740 
00669750 
00069760 
06669770 
00009780 



66669790 
00009866 
66669810 

66009816 
00009830 



093CR 


0009 


093ER 




11 OCR 




110ER 




Al 


035CR 


A2 


0372R 


A3 


037AR 


AI 


0336R 


AIFLG 


0346R 



END 



OC 



BGNBUF OS 2000 
ENDBUF EQU «-2 
END ORG 



TEXT BUFFER 



00669846 
00669850 
66609866 
00009876 
00009880 
06669890 
06669900 
00669916 
00069920 
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APPEND 


0314R 


ARGl 


0068R 


ARG2 


006AP 


ARGADR 


0?CAR 


ARGT8L 


02B8R 


BASE 


05BCR 


BGNBUF 


093ER 


BONTXT 


0008R 


BK1 


085ER 


BK2 


0878R 


BKSPAC 


OgSAR 


bytcnt 


0506R 


CHANGE 


03B8R 


CHAR 


0000 


CKLCNT 


07A6R 


CM1 


0I2AR 


CNVl 


0576R 


CNV2 


0582R 


CNV3 


0590R 


CNV4 


05B4R 


CNV5 


0S86R 


CNV8TD 


0«56AR 


CNVOTB 


014AR 


COLUMN 


0004 


COMADR 


0280R 


COMANO 


0066R 


COMODE 


OODAR 


COMTBL 


0264R 


COUNT 


0003 


CR1 


Q206R 


CR2 


0214R 


CRCNT 


01F6R 


CRLF 


OflDAR 


CURL IN 


0I86R 


DELCHG 


0408R 


DELETE 


0404R 


DEVIN 


0912R 


DEVOUT 


090AR 


DLMIT1 


01C0R 


DLMIT2 


01DCR 


DLMIT3 


01F0R 


DT81 


014CR 


DTB2 


0168R 


DTB3 


017ER 


END 


093CR 


ENOBUF 


11 OCR 


ENDJOB 


ORCCR 


ENDPTR 


OOOER 


ENDSC 


0850R 


ENOTXT 


OOOAR 


EOL 


077CR 


ERR 


0BF2R 


ERR 10 


091AR 


ERROR 


052ER 


FINOLN 


0536R 


FN1 


0S42R 
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FORCE 


0092R 


FROM 


0004 


GETARG 


0222R 


GETCR 


055AR 


GT1 


0230R 


INSERT 


03BER 


IOERR 


089AR 


KILL 


0454R 


LCOUNT 


006ER 


LENGTH 


0002 


LETXT 


00A6R 


LFS 


07BAR 


LINE 


001 OR 


LI NEB 


08FAR 


LINPTR 


0009 


LINUM 


0490R 


LIST 


045SR 


LISTLN 


032CR 


LNFEED 


0880R 


LNUM8R 


02EER 


LSTLIN 


01BER 


LSTOPN 


02FER 


Ml 


OSCCR 


M2 


05DCR 


M3 


OSEOR 


MESS1 


0926R 


MESS2 


0922R 


MESS3 


0928R 


MESS4 


092AR 


MESS5 


092ER 


MESS6 


0930R 


MINUS 


01AER 


MODE 


OflEAR 


MOVTXT 


05C4R 


NCI 


06B6R 


NEWCHR 


06A2R 


NOKBRD 


07DAR 


NOTAB 


0002R 


NTB 


0732R 


ONE 


0005 


ONEARG 


05F4R 


OPNPRV 


043AR 


OPNPTR 


000CR 


OPUT 


0478R 


ORG 


0000R 


OUTPUT 


0474R 


OVFL 


0902R 


OVRFLW 


0672R 


PAUSE 


08D0R 


PLUS 


019ER 


PRl 


047AR 


PR2 


0482R 


PR 3 


04AER 


PRINT 


0468R 


PROCES 


013ER 


PUTOUT 


068CR 
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Rl 


0001 


RIO 


000A 


Rll 


000B 


R12 


OOOC 


R13 


O00D 


Rl* 


000E 


R15 


OOOF 


R2 


0002 


R8 


0008 


RDLINE 


OtPAR 


REPfOD 


o*c*R 


RESTRT 


0004R 


S3 


03C4R 


SCAN 


06D8R 


SCANER 


0A18R 


SCNl 


0B36R 


SEARCH 


0234R 


SETBIN 


067AR 


SKI 


04E2R 


SK2 


04E8R 


SKIP 


04D0P 


SPACl 


06E6R 


SPACE 


06C4R 


SQUEEZ 


0738R 


SRI 


0240R 


SR2 


025CR 


START 


0070R 


START2 


00B8R 


TAB 


0*FAR 


TABFLG 


006CR 


TB 


0750R 


TBI 


0768R 


THRU 


0006 


TIDE 


08E2R 


TO 


0007 


TW1 


0634R 


TW1A 


0646R 


TW2 


0656R 


TWOARG 


0606P 



SYSGEN PARAMETERS FOR 03r930Rq«+ 



0000 
0001 



3 


0S16MT EOU 





*♦ 


DOS EQU 


1 


5 


••LOADER 




6 


••09030 





-EME 



OSLO000 
CLSLDOJUI 
OSL0001 
OSL0002 



I'-jTCRDATA OS L1BKAKY LOADER 03-030RO«»A13 CAGE 2 

« * OSL000«*0 

9 ♦ QSL0QO5Q 

10 * OSLOOObO 

11 * 0SL00070 

12 ft****************************** ♦*»**t******* ************** *o> OSLO 080 

13 * * OSL00090 

14 * THIS LOADER OPERATES INTERACTIVELY, ACCEPTING * OSL00100 

15 * COMMANDS AND PARAMETERS FROM LOGICAL UNIT S. * OSLO0110 

16 * LOADED PROGRAMS MAY BE RELOCATABLE, AND MAY * OSL00120 

17 * REFERENCE COMMON OR EXTERNAL LABELS, FORWARD * OSL00130 
Id * REFERENCES ARE PERMITTED WITfcjIN PROGRAMS. THIS * OSL001<*0 

19 * LOADER IS DESIGNED TO OPERATE UNDER THE BOSS * 0SL001S0 

20 * SYSTEM WITH LU 5 ASSIGNED TO THE CONSOLE I/O * OSL00160 

21 * DEVICE, OTHER DEVICES ARE REFERENCED IN LOADER * OSL00170 
?2 * COMMANDS bY THEIR LOGICAL-UNIT-NUMUERS WHICH * OSLOOlflO 
2J * SHOULD BE ASSIGNED BEFORE EXECUTING THE LOADER. * OSL00190 
2<+ » * OSL00200 
2b * OPERATING INSTRUCTIONS AND INPUT SPECS FOLLOW. * OSL00210 

26 * THIS EDITION OF THE LOADER INCLUDES OPERATOR- * OSL00220 

27 * COMMANDS FOR HANOLING A LIBRARY OF RE- * OSL00230 
26 * LOCATABLE PROGRAMS. * OSL002<»0 

29 * ♦ OSL002S0 

30 ♦**»*****»•****#**♦********♦*****»*«*»*»****#***#***»******* OSLO 260 
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32 


* 


33 


* 


34 


* 


35 


* 


36 


* 


37 


* 


38 


* 


39 


* 


•♦0 


* 


41 


* 


42 


* 


43 


* 


44 


• 


45 


* 


46 


* 


47 


* 


48 


* 


49 


* 


50 


* 


51 


* 


52 


* 


53 


* 


54 


* 


55 


* 


56 


* 


57 


* 


58 


* 


59 


* 


60 


* 


61 


* 


62 


* 


63 


* 


64 


* 


65 


* 


66 


* 


67 


* 


68 


* 


69 


* 


70 


* 


71 


♦ 


72 


* 


73 


* 


74 


* 


7b 


* 


76 


* 


77 


* 


73 


* 


79 


* 


ao 


* 


ai 


* 


m 


* 


bi 


* 


84 


* 


85 


* 


86 


* 


87 


• 



* LOADER-OPERATING INSTRUCTIONS 

LOAD THE LINKING LOADER AT THE BOTTOM OF USER-COKE BY USING THE 

OPERATING SYSTEM'S RESIDENT LOADER. 
ASSIGN LOGICAL UNITS TO ANY DEVICES THE LINKING LOAOER HAY USE. 

THESE NORMALLY INCLUDE? 

A BINARY INPUT DEVICE 
AN ASCII OUTPUT DEVICE 

LU 5 FOR LOADER COMMANDS (NORMALLY CONSOLE) 
EXECUTE THE LINKING-LOAOER AT ITS ORlGiN (TRANSFER ADDRESS) 
THE MESSAGE "LOADER" IS LOGGED TO INDICATE THAT A COMMAND IS 

EXPECTED FRQH THE OPERATOR 
INPUT THE DESIREO COMMAND (SEE OPEK A TOR-cOMMaNdS, PAGE 5) 

WHEN THE MESSAGE "LOADER" IS OUTPUT, THE COMMaNu HaS BEEN 

EXECUTED AND IS COMPLETE, ERROR-CONDlTlONS ARE INDICATED 

BY SELF-EXPLANATORY MESSAGES. 
ADDITIONAL COMMANDS MaY BE ENTERED WHENEVER THE MESSAGE "LOADER" 

HAS BEEN LOGGED. 
IF CONTROL IS K E TURNEO TO THE OPERATING SYST t M (LITHeR hY THE 

KETURN COMMAND Or BY THE TERMINATION OF A USEr PrOGrAM) 

THE LOADER MAY BE RESTARTED AT ITS ORIGIN. 
IF AN ILLEGAL COMMAND IS DETECTED. "CMD-ERR" IS LOGGED. 

FOR HANDLING A PROGRAM-LIBRARY FILE: 

LIB UNIT SHOULD BE ANY DEVICE CAPABLE OF SEQUENTIAL HEAD, 
WRITE. BACKSPACE. AND REWIND. 

TO CREATE A NEW LIBRARY TAPE: 

1 RXWINO LIB UNIT. 

2 WRITE A FILE-MARK ON THE LIB UNIT. 

3 COPY LOADER ON TO LIB UNIT FROM A RELOCATABLE TaPE 

this tape may then be used to load the os loader with 

the boss resioent loader, prior to executing the os loader 

to load additional library programs 

to add programs to library: 

i write an appropriate label on thf lib device (this may he 

OMITTED IF THE PROGRAM IS ALREADY LABELED) 
2 COPY THE PROGRAM ON THE LIB DEVICE. THE OUT COMMAND MAY BE 
USED TO ADD ABSOLUTE LOAD-MOOULES TO THE LIHRARY, BUT THE L IB 
DEVICE MUST NOT BE USED AS AN INPUT. UNXT IN THE SAME OPERATION 

label and out commands destroy any user program loaded 
immediately above the lib loader. 



NOTE: 



TO LOAD A PROGRAM FROM THE LIBRARY: 

1 FIND THE PROGRAM 

2 LOAO FROM THE LIB DEVICE 

3 EDIT OR FIND and link if this PROGRAM REFERENCES other library 
PROGRAMS 

LIBRARY-FILE DETAILS: 

ANY LIBRARY-PROGRAM WHICH MAY BE CALLED (FOUND) BY THE 



OSL002 
Q SLQJ) 2 
0SL003 
OSL003 
OSLO 03 
OSL003 
OSLO03 
OSL003 
OSL003 
OSL003 
OSL003 
OSL003 
OSL004 
OSLO 04 
OSLOOi* 
OSL004 
OSL004 
OSL004 
OSL0D4 
OSL004 
OSL004i 
OSL004' 
OSL005 
OSL005 
OSL005; 
OSL.005; 
OSL005' 
OSL005! 
OSLO O51 
OSL005 - 
OSL005< 
0SLO05' 
OSL006I 
OSLOOfe: 
OSL006; 
OSL006; 
OSL006' 
OSLQ06! 
OSL006« 
OSL0061 
OSL006( 
0SL006* 
OSL007( 
OSL0073 
OSL007* 
OSL007? 
QSLOEm 
OSL007? 
OSL007* 
OSL0077 
OSl 7P 
Oil 007'3 

osLuoau 

OSL.0081 
OSL0082 
OSL0083 
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0* 
09 

so 

91 

92 

9 3 

94 

9b 

96 

97 

9b 

99 

100 

101 

102 

103 

104 

105 

106 

107 

loa 

109 

110 

111 

112 
113 
114 
lib 
116 
117 
118 
119 
120 
121 
122 
123 
124 
12b 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
14Q 
141 
142 
143 



OPERATOR MUST BE LABELED, EITHER BY BEING ASSEMBLED WITH A 
LABEL OR BY HAVING A LABEL ADDED WHEN IT IS COPIED INTO 
THE LIliRAKY. 

A FILE-MARK MUST FOLLOW THE LAST PROGRAM ON THE TAPE. THE 
LABEL, COPY, AND OUT OPERATIONS SEARCH FORWARD FOR THIS MARK 
BEFORE WRITING, THEN WRITE OVER IT, AND THEN WRITL ANOTHER 
FILE-MARK AFTER WRITING THE LAST RECORD. BEFORE USING THESf. 
UIRECTIVFS WITH A NEW TAPE. AN INITIAL FILF.-MARK SHOULD BE 
URITTEU (REWIND, EOF). 



FOR HANDLING 0S/16-MT CORE-IMAGE OVERLAYS: 

OVERLAY UNIT SHOULO BE A RANDOM ACCESS DEVICE. 
ITS PSEUDO-SECTOR SIZE SHOULD BE 256 BYTES. 



IF A DRUM 



* OVERLAY DIRECTORY MAY BE INITIALIZED WITH THE DIRECT fMD. 



TO ADD A PROGRAM TO ThE OVERLAY FILE: 

1 FIND THE PROGRAM IF ON A LIBRARY FILE 

2 USE THfc OL CMU TO ESTABLISH THE OVERLAY NAML AND LU OF 
THE DIRECTORY 

3 LINK IN ALL PROGRAM St&Mi.NTS OF THt OVLRLAY 

4 INSERT THE PROGRAM IN ThE OVERLAY FiLf 

NOTL: OVERLAYS ARE LOADED INTO MEMORY IIWEDIATELy ABOVE THE OS 
LOAOER. ANY PROGRAMS PREVIOUSLY LOADED IN THAT AREA WILL 
HE OESTROYEO. 

OVERLAYS MAY BE DELETED FROM ThE OVERLAY Fi L E VIA ThE DE L ETE CMD. 
A MAP OF THE OVERLAY FILE MAY BE OBTAINED VIA THE MO COMMAND. 
TAbLE OF LEGAL LOADER-COMMANDS 

meaning: 



cmd: 

BIAS 

ORG 

ORG 

HC 

LC 

OUT 

OUT 

XOUT 

GO 

MAP 

LABEL 

FIND 

COPY 

COPY 

dupe: 

DUPE 
LOAD 
LOAD 
LINK 



ARG1! ARG2: 

BBBB - 
BBBB - 



LLLL 
LLLL 
LU 

LU 



LU 

LU 

LU 

LULU 

LULU 

LULU 

LULU 

LU 

LU 

LU 



LABEL 



NAME 
NAME 

NAME 

NAME 

NAML 



SET BIAS TO BBBB 

SET BIAS TO BBBB 

SET BIAS TO END OF LOADER 

SET LENGTH OF BLANK COMON 

SET LENGTH OF LABELLEO COMMON 

OUTPUT LABELED LOAD-MODULE TO LU 

OUTPUT LOAD-MODULE TO LU, 

END LOAD-MODULE, WRITE LAST RECORo 

TRANSFER TO LOADED PROGRAM 

OUTPUT MEMORY-MAP TO LU, 

WRITE LABEL-RECORD ON FILE LU 

POSITION LU TO START OF NAMED PROc. 

COPY ONE PROGRAM FROM LU A' TO LU o 

FIND AND COPY NAMED PROGRAM 

DUPLICATE UNTIL EOF OR DEV END 

DUPLICATE UNTIL NAME IS READ 

PURGE TABLE, LOAD ONE PROG FROM LU 

FIND AND LOAD A PROGRAM 

LOAD ONE PROG FROM LU, LINKING 



0SL00840 

osLQOe'jO 

USLOOflbO 
OSl ()0fl7U 

oslooawo 

OSLO0O90 

OSL00900 

OSL00910 

OSL 92 

OSL00930 

USLU0940 

OSL00950 

OSL00960 

OSL00970 

OSL009H0 

OSL00990 

OSL01000 

OSLOlOlC 

OSL01020 

0SL0103O 

OSL 01040 

OSLOlO'iO 

OSL 01060 

Oi.L.01070 

OSLOlOfiO 

OSL01090 

OSL U 1100 

OSLOlllO 

OSLU1120 

OSL01130 

0SL01140 

OSL01150 

OSL01160 

OSL01170 

OSL01180 

OSL01190 

OSL01200 

0SL01210 

OSL01220 

OSL01230 

OSL01240 

OSL01250 

0SL01260 

OSL01270 

OSL01280 

OSL01290 

OSL01300 

OSL01S10 

OSL01320 

OSL01330 

OSL01340 

OSL 01 5'iO 

OSLOl "'•<-' 

OSL01370 

0SL013B0 

OSL01390 
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1H5 

IH6 

lt7 

148 

lf9 

150 

151 

152 

153 

15<+ 

155 

156 

157 

158 

159 

160 

161 

162 

163 

161 

165 

166 

167 

16a 

169 

170 

171 

172 

173 

17H 

175 

176 

177 

170 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

19<* 

195 

196 

197 

198 

199 



* 
* 
* 

* 
* 
* 

* 

* 

* 
* 
* 
* 
* 

* 
* 
* 
* 

* 

* 
* 

* 
* 
* 

* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 

* 
* 
* 



LU 
LU 
LU 



LINK 

EDIT 

EDIT 

REWIND LU 
LU 
LU 
BBBB 



NAME. 



NAME 



EOF 

TABLE 

OVLY 

DIRECT LUS2 

OLAY LU NAME 

INSERT - 

DELETE LU NAME 

CMPRES LU 

MO LU 

MD LULU 

ENb 

LOADER INPUT FORMATS 

108-BYTE BINARY RECORD 
BYTES 0-1 SEQUENCE NUMBER 
BYTES 2-3 CHECKSUM XH -X 

bytes h-107 contain contr 
items as follows: a=adrs 
citm: data: 

00 
01 

02 
03 
0* AAAAR 

05 AAAAR 

06 AAAAR 

07 AAAAR 

08 DDOD 

09 DDOOR 
OA QDDD 
OB DODO 
OC 
QU 
OF 
EO 
El 
E2 
E3 
EH 



PAGE 5 

FIND AND LINK NAMED PROGRAM 
LOAD ONLY REFERENCED PROGS FROM LU 
FIND NAMED LABEL AND EDIT 
REWIND LU 

*R1TE A FiLE-MARK ON LU. 
WRITE TABLE-OF-CONTENTS TO LU. 
SET 'DEAD SPACE' TO BBBB 
IMIT DIRECTORY ON LU, SET SI*L TO S£ 
SET UP FOR OVERLAY ON LU 
INSERT OVERLAY IN FILL 
DELETE NAME. F1R0M OVERLAY DIRECTORY 
COMPRESS OVERLAY DIRECTORY X FILE 
MAP MOST RECENTLY USED DIR TO LU 
-HAP DIRECTORY ON 1ST LU TO 2.N0 LU 
EXIT TO THE CS. 



-1. -2. -3. ETC. 
i EVERY OTHER HALF-WORD IN THE BUFFER. 



DDDD 

DDDDR 
CC CC CC CC CC CC 
CC CC CC CC CC CC 
CC CC CC CC CC CC 
CC CC CC CC CC CC 
CC CC CC CC CC CC 
CC CC CC CC CC CC 
CC CC CC CC CC CC 



ol-items optionally followed by oata 
drdata, r=rel (if rel mode) cc=chah 7- 
meaning: 

read next record 
eno of program 
define chain 
toggle abs/rel mode 
transfer-adrs=aaaa relative 
relative prog load-address 

RELATIVE REF (OR THREAD) ADDRESS 
RELATIVE DEF AOORESS 
TEXT ABSOLUTE 1 HW 

1 HW 

2 HW 



HIT 



TEXT RELATIVE 

TEXT ABSOLUTE 

TEXT 1HW ABS, 1HW REL 

REF SYMBOL 

DEF SYMBOL 

PROGRAM LABEL 
SSSS DEFINE NAMED COMMON BLOCK, SIZt=SSSS 
AAAAR REFERENCE NAMED COMMON, UISPLACEMLNT 
AAAAR DDDD LOAD COMMON TEXT 1 HW 
AAAAR DDOD DDOD LOAD COM TEXT 2 HW 

RESET SEQUENCE NR 



OVERLAY DIRECTORY FORMATS 



256-BYTE SECTORS 

1ST DIRECTORY SECTOR 

BYTES 0-1 NEXT AVAILABLE SECTOR 

BYTES 2-3 TOTAL NUMBER OF OVERLAYS 

BYTES H-253 CONTAIN UP TO 25 OVERLAY DIRECTORY ENTKIES FORMATTED 

as follows: 

bytes 0-5 overlay name 

BYTES 6-7 ABSOLUTE LOAD ADDRESS 
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iOO 
101 
102 
103 
104 
105 
106 
)07 
J08 
109 
)0A 
JOB 
30C 
30U 
30E 
OOF 



OOOR 

004R 

008R 

OOCR 

010R 

OXHR 
014R 
OifcR 

01AK 

OlER 

022R 
022K 
024ft 

I028R 

I02CR 



L120 

OFECK 

4840 

OFEAR 

4230 

0014R 

4832 

0000 

1*030 

OFEAR 

0711 

4840 

0656R 

4230 

0022K 

E120 

11C8R 

799 

D1C0 

103?!' 

i 110 

11F4R 

4800 



200 
201 
^02 
203 
204 
20b 
206 
207 
208 
209 
210 
211 
212 
213 

2m 

215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 

232 

233 

234 

23b 



* BYTES 8-9 RELATIVE SECTOR ADDRESS 

* tlYTES 25«»-259 RELATIVE SECTOR ADOR OF 1ST OVERLAY LISTED IN 2ND 
» UIKtCTOHY SECTOR (IF ANY) 

* 

* EACH ADDITIONAL DIRECTORY SECTOR „„„„.,. , c „ Drll ,r, 

* BYTES 0-249 UP TO 25 OVERLAY DIRECTORY ENTRIES (FORMAT AS ABOVE) 

* HYTES 250-251 RELATIVE SECTOR AOUR OF 1ST OVERLAY LISTED IN NEXT 

* DIRECTORY SECTOR (IF ANY) 



* LOADER 

PAR 

RTN 

AC1 

AC2 

ARG 
NDX 
KEY 
RTX 
ITM 
SEQ 
OEF 
REF 
ZRO 
ON£ 
TWO 
SIX 



REGISTERS 
EOU 



EQU 
EOU 
EQU 
EOU 
EQU 
EOU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EuU 
EQU 



1 

2 
3 

4 

5 

h 

7 

8 

9 

10 

11 

12 

13 

14 

15 



* LOADER COMMAND PROCESSOR 

* loader is Entered here 

GOLOAD SVC 2.FETCHP 



LH ARG.TOC 

BNZ LOADER 

LH AC2,0(AC1) 

STH AC2.TOC 



236 LOADER EQU 



237 

238 

239 
240 

241 HATCH 

242 

24 3 

244 

245 



XHR 
LH 

BNZ 

SVC 

EQU 

XHR 

Lh 

SVC 
LH 



RTN. RTN 
ARGiTTYSWT 

BATCH 

2,LDMS 

* 

SLUibLQ 

ZKO,ZROCON 

l.LDCHU 

PAR.LDCMD+2 



AFTER BEING LOADED 

HAS TOC BEEN SET 7 
YES - TOP OF CORE IS OK 
FETCH TOP-OF-CORE 
STORE TOP-OF-CORt 

IF INPUT NOT QN TTY 
SKIP 'LOADER' MSG 
OUTPUT MSG 'LOADER' 



WAIT FOR CMD-INPUT 
TEST INPUT STATUS 



OSL01960 

OSL01970 

OSL0198U 

OSL01990 

OSL02000 

OSL02010 

OSL02020 

0SL02030 

OSL02040 

OSL02050 

OSL02060 

0SL02070 

OSL02080 

OSL02090 

OSL02100 

OSL02110 

OSL02120 

OSL02130 

OSL02140 

OSL02150 

USLU2160 

OSL02170 

OSL021»0 

OSL02190 

OSL02200 

OSL02210 

OSL02220 

OSL02230 

OSL02240 

OSL02250 

OSL02260 

OSL02270 

OSL 02280- 

OSL02290 

OSL02300 

OSL02310 

OSL02320 
OSL02330 
OSL02340 

OSL02350 

OSL02380 

OSLU2370 
OSL02380 
OSL023HI! 

0SLU24 0U 
OSL02410 
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0030H 
0034R 
0038R 
003CR 
0040K 
0044R 
0048K 



11F6K 

4210 

<Jf BAR 

4800 

0654K 

4330 

0048R 

E110 

1236R 

4800 

1238K 

4210 

OFBAR 



0048R 

004CR 

0050R 

0054R 

0056R 

005CR 
Q05ER 
0060R 
0062k 

0066R 
068R 

006CR 

0070K 

0074R 

0078R 

007CR 
007LR 
0080R 
0082K 
0084R 

Q088R 



C840 

2020 

4040 

11B0R 

4040 

11B2R 

40«tO 

11B4K 

40C0 

102ER 

0700 

0755 

0733 

C810 

FFFF 

0766 

U325 

1244R 

C520 

OOOD 

4330 

OOEAR 

CS20 

0020 

4230 

0094K 

0A1D 

0733 

0A5O 

091E 

4380 

OOEAR 

C550 



246 

247 

248 

249 

250 

251 

252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 

263 

264 

265 

266 

267 
266 
269 
270 

271 
272 

273 

274 
27b 
276 

277 

278 
279 
260 
281 

282 



BM 


RPMSG 


IF LRR STST, REPORT STAT X. PAUSE 


Lll 


PAR.LOGSWT 


IF LOG SPECIFIED 


UZ 


NOLOG 


SKIP BRANCH 


SVC 


l.LOGBL 


ECHO MSG 


LH 


PAR»L0GBL+2 


TEST STATUS 


bM 


LOGER 




LQU 


* 





NOLOG 
* 

* THIS ROUTINE SCANS THE COMMAND RECEIVED FROM THE OPLRaTOK aNU 

* MOVES THE FIRST TWO CHARACTERS INTO T( ( £ AR(i REGISTER 



PACKS HEX DIGITS, RIGHT-JUSTIFIED, INTO PR, 
AND MOVES THE LABEL FIELD INTO SYMBUF 



* TYPICAL INPUT: LABEL 3 PNAME 

* RESULT: (ARG)= LA (PAR)= X»0003« 

* 



CHYTL 



LHI 


ARG,X«2020' 


STH 


ARG, SYMBUF 


STH 


ARG.sYMBUF+2 


STH 


ARG»SYNBUF+4 


STH 


ZRO.S.YMFEG 


XHR 


PAR, PAR 


XHR 


NUX.NUX 


XHR 


AC2.AC2 


LHI 


RTN.-l 


XHR 


KEY, KEY 


LB 


AC1,BUF(N0X) 



CLHI ACl.CR 

HE CMOPRC 

CLHI AC1,SP 

BNE CHAR 



AHR 
X|,R 
CBYTL? AHR 
CHR 
BNL 



RTN.ONE 
AC2.AC2 
NUX.ONE 
RTN, TWO 
CMDPRC 



CLHI NDX,40 



(SYMBUF )=PNAML 

INITIALIZE SYMBUF AREA 

TO BLANKS. IN CASE LABEL 

IS LESS THAN SIX BYTEs 

THIS ALSO SETS UP ARG 

RESET SYMFLG FOR INITIAL START 

ZERO PAR TO RIGHT-JUSTIFY HEX 

ZERO MOVE-SOURCE-POINTER 

ZERO MOVE OEXTINATION-POINTER 

RTN INDICATES WHICH IS CUR DEST AREA 

HEX OPERAND PRESENT Sul 
FETCH NEXT BYTE 

IF ITS A CR, THEN ALL IS IN 

CO PROCESS IT. 

IF ITS A NON-BLANK CHARACTER, 

GO MOVE IT 

IF BLANK. SUITHC TO THE NEXT FIELU 
BY BUHPINT RTN AND RESTETTING AC2 
HUMP MOVE-SOURCE 

AFTER 40 CHARS, IF NO CR, 



INTERDATA 


OS LI 




0028 




)8CR 


4280 
00681- 


26i 


)90R 


4300 
OOEAR 


264 


)94R 


0811 


285 


)96R 


4210 
OOCtR 


286 


39AR 


4220 
00D6K 


287 


)9ER 


C660 
FFFF 


288 


3A2R 


C520 
00H7 


289 


3A6R 


4380 
010 AH 


290 


QAAR 


C520 
0040 


291 


OAER 


4280 
0B6K 


292 


OB2R 


CA20 
0009 


293 


0B6H 


C420 
OOOF 


294 


OBAH 


cuoo 

000H 


29b 


OBtR 


0602 


296 


OCOR 


4300 
0080K 


297 


OC4R 


053E 


298 


0C6R 


4380 
0080R 


299 


OCAR 


0A30 


300 


OCCR 


CD40 
0008 


301 


ODOR 


0642 


302 


0D2R 


«*300 
0080R 


303 


OD6R 


053F 


304 


OD8R 


4380 
0080R 


305 


OUCR 


D223 
11B0R 


306 


OtOR 


40D0 
102ER 


307 


0E4R 


0A3U 


308 


0E6R 


•+300 
0080R 


3Q9 

310 
311 


ifjEAR 


CA50 
0001 


312 


lOEER 


4050 
1242R 


313 


I0F2R 


C850 

103AR 


314 



OS LIBRARY LOADER 



03-030K04A13 



CHAR 



CHAKl 



DIR 



SYM 



UL 


CtiYTE 


b 


CMDPKC 


LHR 

BM 


RTN.RTN 
DIR 


UP 


SYM 


OHI 


KLY.-l 


CLHI 


AC1,C«G« 


HNL 


CMDERR 


CLHI 


ACi,c»a» 


bL 


CHAR1 


AH I 


AC1.9 


NHI 


ACl.15 


SLHL 


PAR' 4 * 


OHR 
B 


PAR,AC1 
CBYTL2 


CLHR 
UNL 


AC2»TW0 
CBYTL2 


AHR 
SLHL 


AC2,0NE 
ARG.8 


OHR 
B 


ARGiACl 
CBYTE2 



ClHR AC2,SIX 
BNL CBYTL2 
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ASSUME IT'S ALL IN, AND GO 

PROCESS IT. 

IF RTN IS NEGATIVE, MOVE BYTE 
TO UIR FIELD. IF POSITIVE, TO 

LABLL FIELD, OTHERWISE, TRLAT IT AS 
HEX FOUND 



HEX. IF ALPHA, ADD 9 IF NUMERIC, 

just mask off the upper three hits 
so that by char1, ac1 contains fouk- 
blt value of hex character. this gets 

SHIFTED INTO PaR FROM THE RIGHT LNu. 
THE LAST FOUR OIGITS ARl LEFT IN PAR. 



only the first two characters of the 
oirective are used. ..ignore any more. 

count first two and shift then int 
ahg from the right. 



IGNORE ANY CHARACTERS AFTER THE FIRST 
SIX OF THE LABEL FIELD. 



STB ACl«SYMBUF(AC2l SYMBUF AND BUMP AC2. 

STH ONE.SYMFLG SET FLAG TO SHOW SYMBOL IN SYMBUF 

AHR AC2,ONE 
B CBYTE2 

* OECOOE COMMANO BY COMPARING CHARS WITH CMDTAH ENTRIES 

* ARb CONTAINS 2 SIGNIFICANT CHARACTER.! PAR CONTAINS HEX PARAMETER 
CMDPRC AHI NUXtl IN CASE 0F ERROR 

STH NDX,ECH0+2 SAVE LENGTH OF CMD 

LHI NDX.CMDTAB SET INDEX TO TOP OF TABLE 



OSLQ2790 

OSL02800 

OSL02810 
OSL02820 

OSL02830 

OSL02840 

OSL 02850 

OSL02860 

OSL02870 

OSL02880 

OSL02890 

0SL0i>900 

OSL02910 

OSL02920 
OSL02930 

OSL02940 
OSL02950 

OSL02960 
0SL02970 

OSL02980 
OSL02990 

OSL03000 
0SL03010 

OSL03020 

0SL03030 

OSL03040 
OSL03Q&0 

OSL03060 
OSLU3070 

OSLU30B0 

OSL03090 
OSL03100 



00F6R 
OOFAR 
OOFER 
0102R 
0106R 
OXOAR 
010E.R 
0112R 
01X6R 



OllBR 
OllAR 

OllER 

0122R 

012&K 

D12AR 

012LR 

0132R 



INTLrOATA OS LIBRARY LOADER 

315 CHL1 CLH 

316 BE 

317 AMI 



03-Q3QR04A13 



4545 

OOOO 

4330 

0112H 

CA50 

0004 

C550 

109AR 

4260 

00F6R 

L120 

1100R 

4300 

OFCER 

4S15 

0002 

0301 



0800 

4230 

012AR 

4860 

OFFAR 

4230 

012AR 

C800 

131CR 

4000 

0FF2R 

4000 

10 06R 

4300 

0014R 



0136R 4000 

102AR 
013AR 4300 

0014R 
013ER 4000 

102CR 
0142R 4300 

0014R 



0146R C810 
0014R 

014AR 4000 
1020R 

014ER 4820 
1020R 



ARG,0(NOX) 

CML2 

NUX.4 



318 
319 

320 CMDERR SVC 

321 B 

322 CML2 LH 



CLHI NDX,ECMD 
HL CML1 

SiCMLRR 

CKDEV 

RTN,2(N0x) 



323 



bR 



RTN 



PA&t 9 

TEST THIS ENTRY. IF HATCH, GO TO 
CML2 TO ENTER COMMAND-ROUTINE. 
IF NO MATCH. BUMP INDEX, AND 
TRY NEXT ENTRY. IF NO MORE ENTRIES, 
FALL THRU TO CMDERR. 
TYPE CMD-EHR MESSAGE* REQUEST A 

ON CMD-MATCH, FETCH COMMAND-ROUTINE 
ADDRESS AND BRANCH 



324 * LOADER COMMAND-IMPLEMENTATION ROUTINES 

325 * 

326 * ON ENTRY TO THESE ROUTINES, PAR CONTAINS THE PACKED HEX 

327 * PARAMETERS IF ANy W ERE ENTERED 

328 * ORG SETS THE BIAS (ORIGIN OF NEXT PROGRAM) 



329 ORG 
330 

331 

332 

333 

334 ORG1 

335 

336 



LHR 

BNZ 

LH 

bNZ 

LHI 

Sj-H 

STH 

B 



PAR, PAR 
ORG1 

KEY.OUTFLG 

OKGl 

PAR.PBOT 

PAR, BIAS 

PAR.LOC 

LOADER 



IF _ZERQ-ARGUMENT, S E T BIAS TO 
TOP OF LOADER (DEFAULT VALUE) 



ELSE* MOVE PAR TO BIAS 
AND FETCH NEXT COMMAND 



337 * 

338 * COMMON-LENGTH SETUP DIRECTIVES 

33S L.ABCOM STH PaR.LABLEN SET LAB-COM LENGTH 



340 B 

341 BLKCOM STH 

342 B 



LOADER 

PAR»BLKLEN 

LOADER 



SET LEMTJt OF BLANK COMMON 



*!*? * nr^r- . WITHIN OLD COMMON 

344 * WRITE A FILE-MARK ON LIBRARY FILE, ANO BACKSPACE OvER IT 

345 * 

346 CWFM LHI RTN.LOAOER 



347 

348 WFM 



STH 

LH 



PAR.OLU 
ACl.OLU 



1NTLR0ATA 

52R 0220 

1227R 
56R E110 

1226H 



5AH t820 
1020R 

5ER D220 
1223R 

.62R mo 
1222R 

166R 0301 



L68R H820 

1020R 
16CR U220 

122RK 
170R £-110 

122AR 
l7*R «*300 

015AR 



OS LIBRARY LOADER 
3«*9 STB 

350 SVC 



178R 

17CR 

180R 

18HR 

188R 

18CR 

190N 

19«*K 

H98R 

I19CR 

I1A0R 

llAHR 
llAfeR 

)1AAR 

UAER 
31B0R 



4820 

OFFAP 

H23° 

010AR 

H820 

102ER 

H330 

010AK 

C870 

0014H 

D200 

1205K 

HOOO 

1020H 

toco 

100CK 

H110 

0168R 

HllO 

0LE1R 

<+820 

102EK 

0337 

C600 

OOOF 

<*110 

0E1CR 

0755 

0325 

11B0R 



OS-OSORtWAlS 
AC1.FMB41 
l.FMB 
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351 * 

352 * BACK-SPACE A RECORD 

353 * 

35H BSK LH AC1.0LU 



355 
356 



STO 
SVC 

bR 



AC1,BSB+1 

1,BSB 

RTN 



357 

HI * SEARCH FORWARD FOR A FILE-MARK AND BACKSPACE OVER IT. 

360 * 

361 SFH UH ACl.OLU 

362 STB AcltSFB+1 

363 SVC 1,SFB 
36H b BSR 

* [ 1MFL PTLE 

AC1.0UTFLG 

bUZ CMDERR 

LH ACl.SYMFLG 

Ul CMDERR 

LHI RTX, LOADER 

PAR.BOUTDV+1 

STH PAR,OLU 

STH ZRO»USLQ 

BAL RTN.SFM 

BaL RTN.ZOBUF 

LH AC1,SYMFLG 

BZR RTX 

LHI PAR»15 



365 * LABEL FILE 

366 LABOPT LH 

367 
368 
369 

370 

371 LABflOD STB 



372 

373 
37<+ 
375 
376 

377 

378 

379 

380 

381 LABI 



BAL RTN,OPAK 



DONtT ALLOy LABEL IF OUT IS IN 
PROGRESS, BUFFER CUO BE DESTROYED. 
DON'T LABEL IF NO LABEL 
IS INPUT IN COMMAND 

SAVt OUTPUT UNIT * 

ZERO OUTPUT SEO' NR. 

SPACE FWD TO FILE-MARK, AND BACK 0\/ER 

ZERO OUTPUT-BUFFER 

PACK OUT A PROGRAM-LABEL CONTROL-ITEM 
BY CALLING OPAK 
INITIALIZE BYTE-COUNTER 



XHR NDX.NDX 

LB ACl.SYMBUF(NDX) FETCH A BYTE FROM SYMBUF (LABEL) 



USL03H50 

OSL03«»60 

QSL03H70 
OSL03*80 
OSL03"»90 
OSL03500 

OSL03510 

OSL03520 

0SL03530 
0SL035*0 
OSL03550 
OSL03560 
OSL03570 

OSL03580 

OSL03590 

OSL03600 

OSL03610 
OSL03620 

OSL0363° 
OSL036H0 
OSL03650 
OSL03660 
OSL03670 
OSL03680 
OSL03690 
OSL03700 
OSL03710 
OSL03720 

OSL03730 
OSL037HO 

OSL03750 

0SL0376U 
OSL0377U 



INTERDATA 


OS LIBRARY LOADEK 


03-030 


OlBtR 0802 


382 


LHR 


PAR,AC1 


01B6K CC00 


383 


SRHL 


PAR.t 


000<4 








OlBAH tllG 


38t 


BAL 


RTN.OPAK 


oeicr 








01BER 0602 


385 


LHR 


PAR.AC1 


01COR tllO 


386 


BAL 


RTN.OPAK 


OEICR 








OlCtR 0A5D 


387 


AHR 


NDX.ONE 


OlcfeR 055F 


388 


CLHR 


NQX.SIX 


01C8R H280 


389 


Bi_ 


LABI 


01B0R 








01CCR C800 


390 


LHI 


PAR, It 


OOOE 








01U0R tllO 


391 


UAL 


RTN.OPAK 


0E1CR 








OlDtR C800 


392 


L.HI 


PAR.t 


ooot 








01D8R mio 


393 


BAL 


RTN.OPAK 


0E1CR 








01DCR tllO 


39t 


HAL 


RTN.OUTTXT 


OEBOR 








01E0R tUO 


39b 


BAL 


RTN.WFM 


OltER 








OlEHR 0307 


396 


BR 


RTX 




397 * FIND 


A LABEL 


OlEfcR C810 


398 FIND 


LHI 


RTN. LOADER 


0014R 








OlEAR t820 


399 


LH 


ACl.SYMFLb 


102ER 








01EER t330 


"♦00 


BZ 


CMDERR 


01 OAR 








01F2R tOlO 


•+01 FINDER 


STH 


RTN.FIN03 


025tK 








, 01F6R U2Q0 


H02 


STB 


PAR.BINOV+1 


11FDR 








OlFAR t820 


•♦03 


LH 


AC1.SYMFLG 


102ER 








01FER 0331 


tot 


UZH 


RTN 


0200R «4000 


tob 


STH 


P'.R.OLU 


1020R 








020«*R D200 


t06 


STB 


PAR.RWD+1 


121BR 








0208R E110 


t07 


SVC 


l.RWU 


121AR 








020CR t800 


•♦08 


LH 


PAR.RWO+2 


121CK 








0210R t210 


t09 


BM 


INER2+t 


OFAAR 








D21tR H110 


tlO FIND1 


BAL 


RTN.LREAD 


0F30H 








0218R t300 


til 


B 


PNF 


0256K 








021CR 14820 


tl2 


LH 


ACl.BUF 


12ttK 








0220R C520 


tl3 


CLHI 


AC1.-1 
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MOVE I,, FOUR BITS AT ATIWE. 
TQ THE OUTPUT BUFFER 

IN TWO CALLS TO OPAK. 



BUMP BYTE-COUNTER. AND CONTINUE 
UNTIL SIX BYTES HAVE BEEN MOVED. 



SET INPUT UNIT NUMBER 



AND REWIND UNIT-NUMBER 

REWXNO LIB IF REWINOABLE DEVICE 



READ A RECORD AND T£ST CHECKSUM 

FETCH SEQUENCE-NUMBER 
IS IT -17 



INTERDATA cs library loaueh 



03-03QR04A13 
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:2HR 

!28R 
I2AR 

!2ER 

?32R 

!36R 
>38R 

>3CR 

?40R 

»44R 
>46R 

?4AR 

2<+tR 

252R 

?S4R 
256R 

25AR 
25CR 

260R 

2b4R 

268R 

26CK 



FFFF 
4230 

0214K 
0788 

4110 

OBEER 

C500 

OOOF 

4230 

021tl< 

0755 

1110 

0C54R 

4545 

110 OR 

4230 

0214K 

0A5E 

C550 

0005 

4280 

0238K 

4110 

U15AR 

4300 

0252K 

4820 

1U2EK 

0337 

U1D0 

11B0R 

DODO 

0270H 

E120 

026CH 

4300 

0014R 

0007 

0010 

3030 

3030 

3030 

204E 

4H54 

2046 

4F55 

4E44 



270R 



280R U200 
122FR 

2BHR D200 
121FR 



414 

41b 

416 

417 

418 

419 

420 FIND* 

421 

422 

423 
424 

42b 

426 

427 

4?8 FIN03 
429 PNF 

430 
431 

432 

433 

434 

435 PNF2 



BNE 

XilK 
BAL 

CLHI 

tiNE 

XhR 
BAL 

CLH 

i»NE 

AHR 
CLHI 

BL 

BAL 

b 

EQU 

LH 

BZR 

LH 

STM 
SVC 
B 

uc 



FIND1 IF NOT, READ ANOTHER RECORD 

ITM.1TM IF SLO NR IS -1. THEN LETS FETCH 

RTN, FETCH THE FIRST CONTROL-ITEM ITQ PAR) 

PAR, 15 IS IT IS? 

FIN01 IF NOT, NO LABEL SO IGNORE PROGRAM 

NOX.NDX IF LABEL, FETCH FIRST TWO BYTES OF IT 

RTN.OFETCH AND COMPARE, A HALF-wORD AT A TIME 

ARG,SYHBUF(NDX) WITH SYMBUF 



FINOl 

NDX.TWO 
NDX»5 

FIND2 

RTN,BSR 

* 

*-2 
AC1,SYMFl& 

RTX 

ONE, SYMBUF 

ONE.HNFM 

2.PNF2 

LOADER 

7,16,c'000000 NOT FOUND' 



IF NOT EQUAL, GO LOOKSOME MOKL 

IF EQUAL, BUPIP NOX TO CHECK NLXT HW. 
THRU YET??? 



IF THIS IS THE LABLE, BACKSPACE OVER 



EQU 



PNF2+4 



436 PNFH 

437 * 

438 * PKOGRAM-COPY ROUTINE 

439 * 

440 COPY STB pAR,COOUT+l 



OSLQ41Q0 

OSL04110 
OSL04120 

OSL04130 

0SL04140 

OSL04150 
OSL04160 

OSL04170 

OSL 0418 

OSL04190 
OSL04200 

OSL04210 

OSL04220 

OSL04230 

OSL04240 
OSL04250 

OSL04260 
OSL04270 

OSL04280 

OSL04290 

OSL04300 

OSL04310 



SET Up OUTPUT- DEV ICE-NUMBER 



441 



STB PAR.COWT+1 



OSL04320 
0SL04330 
OSL04340 
0SL04350 
0SL043f.0 

0SL04370 



INTLROATA OS LIBRARY LOADER 



0288R CCOO 


442 


SRHL 


PAR. 8 


oooa 








028CH 4110 


443 


BAL 


RTN, FINDER 


01F2R 








0290R D300 


444 


Lb 


PAR.COUT+1 


121Fk 








0294R 4000 


445 


STH 


PAR.OLU 


1020R 








0298K miO 


44fa 


BAL 


RTN.SFM 


G168R 








Q29CR 4110 


447 COPYl 


UAL 


RTN.LREAD 


0F30R 








02A0R 4300 


448 


B 


C0PY4 


02E6R 








02A4R EllO 


449 


S V C 


l.COOUT 


122ER 








02A6R 0788 


450 


XHR 


ITM.JTM 


02AAR H110 


H51 C0PY2 


BAL 


RTN. FETCH 


OBEER 








02AER 0500 


H52 


CLHR 


PAR, ONE 


02DOR 4330 


453 


BE 


C0PY4 


02E6R 








0?U4R 0820 


454 


LHR 


ACl.PAR 


02B6R 1330 


455 


B* 


C0PY5 


02F6R 








02BAR CD20 


456 


SLHL 


AC1.2 


0002 








02BER CbOO 


457 


CLHI 


PAR.1H 


OOOE 








02C2R 4330 


458 


BE 


C0PY3 


02CER 








02C6R 4A62 


459 


AH 


ITM.CITTAB+ 


109CR 








02CAR 4300 


460 


B 


C0PY2 


02AAR 








02CER 4110 


461 COPY3 


BAL 


HTN, FETCH 


ObEER 








02D2R 0820 


462 


LHR 


ACl.PAR 


02D4R CD20 


463 


SLHL 


AC1.2 


0002 








02DBR 4812 


464 


LH 


RTN.CQMTAB+ 


10DCR 








02DCR 4210 


■♦65 


BM 


C0PY2 


02AAR 








02E0R 0A81 


466 


AHR 


ITM.RTN 


02E2R 4300 


467 


B 


C0PY2 


02AAR 








02E6R D300 


468 C0PY4 


LB 


PAR.COOUT+1 


122FR 








02EAR i*000 


469 


STH 


PAR.OLU 


1020H 








02ELR tllO 


470 


BAL 


RTN.WFM 


014EK 








02F2R 4300 


471 


B 


LOAOER 


0014R 








02F6H EllO 


H72 C0PY5 


SVC 


l.COWT 
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SHIFT TO GET INPUT DtVICE-NUMHEK 
FIND REQUESTED PROGRAM 



POSITION OUTPUT-FILE TO ENL> 

READ INPUT-RECORD 

IF EOF. TERMINATE COPY 

HKITE IT OUT, AND WHILE WRITING, 

-U2QK. AT ITS £ONTROL-ITE«S TO FINu END 
MOVE ITEM TO PAR 

IF 1, END OF PROGRAM, WRITE 

final file-mark 

if zero, go wait for write to be 
Finished and read next record 

otherwise, mult item BY FOUR TO INDEX 

thru Table, if e. go for second 

gigit 

ITM,CITTAB+2(ACD BUMP ITM BY NUMBER OF OATa-ITEMS. 

GO FETCH NEXT CONTROL ITEM. 

ON E ITEMS, FETCH SECOND DIGIT 

MOVE IT TO AC1, 
MULTIPLY BY FOUR 



WHEN END IS REACHED. WRITE A FILL- 
MARK AND FETCH NEXT COMMAND. 



INTER DAT a 


OS LIBRARY 


LOADER 


03-030R04A1 




121ER 










•FAR 


4800 
1230K 


473 




LH 


PAR.COOUT+2 


>FER 


4230 
OFAAK 


474 




liNZ 


INER2+4 


502R 


4300 
029CR 


475 
476 


* 


B 


C0PY1 


506R 


D200 
122FR 


477 


OUPEK 


STB 


PAR.COOUT+1 


SOAR 


D200 
121FR 


4 78 




STB 


PAR,C0WT+1 


50ER 


D200 
1021R 


479 




STB 


PAR.OLU+1 


512R 


CCOO 
0008 


480 




SRIlL 


PAR, 8 


516R 


U200 
11FDK 


481 




STB 


PAR,BINDV+1 


51AR 


4110 

0168K 


482 




BAL 


RTN,SF!"I 


51ER 


4110 
OF 3 OK 


483 


0UP1 


BaL 


RTNiLREAD 


522H 


4300 
02E6R 


484 




B 


C0PY4 


526R 


<*170 
0368R 


48b 




BAL 


RTX.LTST 


52AR 


4300 
0354R 


466 




B 


DUP4 


52E.R 


0755 


487 




XHR 


NQX.NUX 


530R 


4110 
0C54R 


488 


DUP3 


BAL 


RTN.DFETCH 


S34R 


4545 
1160R 


489 




Clh 


ARG.SYMBUF(NDX) 


538R 


4230 
0354R 


49o 




BNE 


DUP4 


S3CR 


0A5E 


491 




AHR 


NOX,TWO 


53ER 


055F 


492 




CLHR 


NOX.SIX 


5HQR 


4280 

0330K 


493 




BL 


DUP3 


344R 


0300 
11FDK 


494 




LB 


PAR.BINDV+1 


346R 


D20 
1Q21R 


49b 




STB 


PAR,0LU+1 


3HCR 


4110 

015AH 


496 




BAL 


RTN,BSR 


350R 


4300 
Q2E6R 


497 




B 


C0PY4 


354R 


E110 

122ER 


498 


DUP4 


SVC 


1,C00UT 


358R 


EHO 
121ER 


499 




SVC 


l.COWT 


35CR 


4800 
1230R 


bOO 




LH 


PARtC00UT+2 


360R 


4230 

OFAAR 


501 




BNZ 


INER2+4 


364R 


4300 


502 




B 


DUP1 
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TEST OUTPUT DEVICE STATUS 



DUPLICATION ROUTINE 

COPIES ALU PROGRAMS UNTIL LABEL 



CHECK IF LABEL-RECORD 

IF NOT 

IF SO, COMPARE IT WITH SYMBUF 



IF LWJALi BACK OVER IT J STOP 



TEST OUTPUT DEVICE STATUS 



OSL0H690 

OSL04700 

OSL04710 

OSL04720 
OSL04730 

OSL04740 

OSL04750 

OSL04760 

(JSL04770 

OSL04780 

OSL04790 

OSL04800 

OSLOueiO 

OSL04820 

OSL04830 
OSL04840 

OSL04850 

OSL04860 

OSL04870 
OSL04880 
OSL04890 

OSL0490n 

OSL04910 

OSL04920 

OSL04930 

OSL04940 

OSLOH950 

OSL04 960 

OSL04970 

OSL04980 



INTLRDATA 


OS L 




U311K 


503 
504 
bob 
506 


0366R 


4820 
1244R 


b07 


036CR 


C520 
FFFF 


508 


0370R 


0237 


b09 


0372R 


0788 


blO 


0374R 


4110 

OBEER 


bn 


0378R 


C500 

OOOF 


512 


037CR 


4337 
0004 


513 


0380R 


0307 


514 
515 
516 
517 


0382R 


C820 
113CR 


518 


0386R 


C830 

1151R 


519 


038AR 


0200 
1135R 


520 


038ER 


CCOO 
0008 


521 


0392R 


4110 

0C76R 


522 


0396K 


D200 
11FDR 


523 


039AR 


L)?00 
121BK 


524 


039LK 


4000 
1020R 


b2b 


03A2R 


L110 
121AH 


526 


03A6R 


4800 
121CR 


527 


03AAR 


4210 
OFAAR 


528 


03AEH 


4110 

0F30R 


529 


03b2R 


4300 
0014R 


530 


0306R 


4170 
0368R 


531 


03BAR 


4300 

3AER 


532 


30LR 


4110 

OClAk 


533 


03C2R 


C620 
11B0R 


534 


03C6K 


C830 


535 



OS LIBRARY LOADER 



03-030R04A13 



PA&E. lb 



* LABEL-TESTER ROUTINE 

* 

* LABEL-TESTER ROUTINE... RETURNS TO ♦* IF NOLABEJ., +8 IF LABEL 
LTST LH AC1.BUF 

CLHI AClt-1 

bNER RTX 
XHR 1TM.ITI1 
bAL RTN, FETCH 

CLHI PAR. 15 

BE 4{RTX) 

BR RTX 

* LlB-TAbLE OF CONTENTS 

* 

TABCON LHl ACl.PRMS 



SET Up OUTPUT L" NUMBER 



TAB1 



LHI 


AC2.PRMS+21 


STB 


PAR,nApOEV*l 


SRHL 


PAR, 8 


BAL 


RTN.NLOG 


StB 


PAR.BINDV+I 


STH 


PAR.KUO+1 


STH 


PAR.OLU 


SVC 


l.RWO 


LH 


PAR.RWO+2 


BM 


INER2+4 


BAL 


RTN.LREAO 


13 


LOADER 


BAL 


RTX. LTST 


B 


TAB1 


BAL 


RTN.SFETCH 


LHI 


AC1.SYHBUF 


LHI 


AC2.SYMBUF+5 



OUTPUT HEADING "PROGRAMS" 



IMLHOATA 


OS LIBRARY LO 


ADER 


03-0301 




XXUbK 








ICAH 


4110 

0L76R 


»3fe 


UAL 


RTN.MLOG 


ICLM 


4500 

03ALK 


5 3 1 
538 * 


» 


TAH1 


ID2R 


4170 
018CR 


539 OUT 


UAL 


RTX.LABMOD 


SD6R 


40D0 
OFFAR 


540 


STH 


ONEiOUTFLG 


SOAR 


40C0 
100ER 


541 


STH 


ZRO.OITM 


5DER 


40C0 
100CR 


542 


STH 


ZRO,OSEO 


SE2R 


4110 

0EE4R 


54 3 


BAL 


RTN.ZOBUF 


SE6R 


40C0 
101AR 


544 


STH 


ZRO,OLOC 


SEAR 


C800 
0003 


545 


L>,I 


PAR, 3 


SEER 


4110 
0E1CR 


546 


BAL 


RTN.OPAK 


SF2R 


4300 
0014R 


54 7 


B 


LOADER 


SF6R 


40c0 
OFFAH 


548 XOUT 


STH 


ZRO.OUTFLG 


5FAR 


4820 
1204R 


549 


Lh 


ACl.bOUTDV 


SFER 


U220 
1021H 


550 


STB 


ACl.OLU+1 


>02R 


4820 
0FF4R 


551 


LH 


AC1«PT0P 


>06R 


4830 

1022R 


552 


LH 


AC2.COMBOT 


(OAR 


ooou 


553 


LMH 


PAR. ONE 


► OCR 


4110 

0E58R 


554 


HAL 


RTN.OFW 


HOR 


4820 

100ER 


555 


LH 


ACl.OITM 


H4R 


4330 

041CR 


556 


bZ 


JUSTFM 


H8R 


4110 
OEBOR 


557 


BAL 


RTN.OUTTXT 


HCR 




558 JUSTFK 


EQU 


* 


HCR 


4110 
014CR 


559 


BAL 


RTN.WFM 


► 20R 


4300 
OOOOR 


56(1 


B 


GOLOAD 


► 24R 


U200 
121BR 


561 REWIND 


STB 


PAR.RWD+1 


► 2"R 


EllO 
121AR 


562 


SVC 


l.RWD 


►2CR 


4800 
121CR 


563 


LH 


PAR,KWU+2 


>30R 


4210 
OFAAR 


564 


bM 


INER2+4 
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LABEL OUTPUT MOD IF POSSIBLE 

AND SET OUT F|_AG 

RESET OUTPUT BUFFER-POINTL R 

RESET OUTPUT SEQUENCE-NUMBER 

ZRO TO OUTPUT BUFFER 

RESET OUTPUT LOC-FLAG 

PACK A TOGGLE FIRST 

INTO OUTPUT BUFFER. 

ON XOUT. RESET OUT-FLAG 
HOVE BOUTDV TO 

AND PACK OUT PTOP 

AND COMBOT AFTER END ITEM. 

TO SET POINTERS IN OS 
PACK IT OUT, AND UNLESS IT 

FILLED A RECORD EXACTLY. 

WRITE OUT THE LAST BUFFER. 

AND A FINAL EOF 

EXIT TQ RES£T TQP-OF-CORE 

SET LU PARAMETER IN SVC BLOCK, 

AND REWIND THE UNIT. 



USL053,.'0 

OSLU5330 

OSL0S340 
OSL05350 

OSL05360 

OSL05370 

OSL05380 

0SL05390 

OSL05400 

OSL05410 

OSL05420 

OSL05430 

OSL0S440 

OSL05450 

OSL05460 

OSL05470 

OSL05480 

OSL05490 
OSL05500 

OSL05510 
OSL05520 
0SL05530 

QSLQS54Q 

OSL05550 

OSL05560 
OSL05570 
OSL05560 
OSL"b590 
OSL05600 



INTLRDATa OS LIKRARY LOADER 



0434R 4300 
0014K 



0438K 

043CR 

0440R 

0444R 
0446R 

044AK 

044ER 

0452R 

0456R 

045aR 

045ER 

0462R 

04fefc>R 

046AR 

046LR 

0472R 

0476R 

047AR 

047u< 

0482R 

0486R 

048AR 
048CR 

0490R 

04 94R 

0498R 

049CR 
049ER 



4800 

OFFCR 

C500 

131CR 

4280 

010AR 

0110 

4300 

0014R 

4000 

078ER 

4300 

0456R 

40C0 

078ER 

4110 

06F8R 

D200 

1135H 

U1C0 

1032R 

4820 

123ER 

4230 

0476R 

4820 

UFF6R 
4520 
1026K 
4280 

047ER 
E120 
110CH 
4300 

0014R 

C820 

113CR 

C830 

1151R 

4110 

0C76R 

0766 

4170 

04CCR 

C820 

1152H 

C030 

1161K 

4110 

0C76R 

086D 

4170 



565 

566 ♦ 

567 GO 

568 

569 

570 
571 

572 AMAP 
573 

574 MAP 

575 HAPGO 
576 

577 
578 
579 



LH 

CLHI 

BL 

tiALR 

B 

STH 

B 

STH 

BAL 

STB 

LM 

LH 

BNZ 



Q3-Q30H04A13 
LOADER 

PAR.XFER 
PAR.PBOT 
CMDERR 
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580 * 

581 RESBOT LH 



582 

583 

584 MAPO 

585 

566 MAPI 

587 

588 

589 

590 

591 

592 

593 

594 
595 



CLH 

HL 

SvC 

B 

LHI 

LHI 

BAL 

XHR 
BAL 

LHI 

LHI 

BAL 

LHR 
BAL 



RTN, PAR 

LOADER 

ONE.AFLAG 

HAPGO 

ZRO«AF|_AG 

RTN, BUBBLE 

PAR.MAPDEV+1 

ZKOt^ROCON 

AC1.LOFLG 

MAPO 

AC1.SBOT 
ACl,STQP 

MAPI 

2.NPRG 

LOADER 

AC1.PRMS 

AC2.PRMS+21 

RTN.MLOG 

KEY, KEY 

RTx,NEWMAP 

AC1,EPMS 

AC2.EPMS+15 

RTN.MLOG 

KEY, ONE 
RTXtNEUMAP 



ON GO, TEST TRANSFER-AODRCSS. 
IF BELOW PBOT (AS IN CASE OF NO XFLR) 
GO TO ERR. OTHERWISE. BAL TO USER- 
LOADED TRANSFER-ADDRESS. IF USER PROr; 
RETURNS VIA RTN, FETCH NEXT COMMAND. 

SET AFLAG FOR ALPHABETIC SORT 

B 

SET AFLAb FOR ADDRESS SORT 

DO SORT 

SET MAP-LU IN PHLK 

TEST IF LOAD HAS BEEN OONE 
IF NOT, DON'T PRINT MAP. 

FETCH SBOT. IF EQUAL To TOC , 
TABLE IS EMPTH. LOG NO PROGRAMS 
MESSAGE AND FETCH NEXT COMMAND. 
OTHERWISE, LIST MEMORy-MAP IN 
ORDER OF LOADING. 

LIST HEADING 'PROGRAMS:' 



SET KEY TO TO SEARCH FOR LABELS 
PRINT PKOGRAM MAP 



LIST HEADING 'ENTRY-POlNTSt • 



SET KEY TO 1 TO SEARCH FOR DLFS 
PRINT ENTRY-POINT MAP 



OSLOSC 

OSL056 
OSL056 

OSL056 

OSL056 

OSL0OSL056 
0SL056 

OSL056 

0SL056 

0SL057 

OSL057 

OSL057 

OSL057 

0SL057 

OSL057 

OSLO 57 
OSL057 

OSL057 

OSL057 

0SL058 

OSL058 

OSL058 

OSL058 

0SL058 

OSL058 
0SLD58 

OSL058 

OSL058 

Qi>LU56 ( 

OSL05'J 
OSL059 
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A2R 

AbR 
AAR 
► AER 

>B2R 

^6R 

(BAR 

♦ BER 

♦C2R 
+C4R 

4C8R 

4CCR 

4D0R 

HOUR 
4D&K 

4qAR 

4D t R 

4E2* 
4E4R 

4E6R 

•♦EAR 

4EER 

I4F2R 
|4F4R 

14F8R 

I4FCR 

I500R 
)S02R 

)S06R 

)50AR 



04CCR 

C820 

1162H 

C830 

1172R 

4110 

0C76H 

C860 

0003 

4170 

04CCR 

C820 

1174R 

C830 

1180R 

4110 

0C76R 

086E 

4170 

OHCCR 

•+300 

0014R 

4850 

1026R 

40C0 

1012R 

0733 

C820 

0003 

C800 

0020 

D203 

1244R 

0A3D 

0B2O 

4220 

04DER 

4110 

0CA4R 

4300 

056ER 

056E 

4330 

OblCR 

C810 

051CR 

4805 

0006 

0722 

E120 

10FCR 

0302 

1002R 

0203 

1244R 



b9b 

b97 
b9(i 
b99 

600 

601 

602 

603 

604 
60b 

606 

6Q7 
60S 

609 

610 
611 

612 

613 

614 
61b 
616 

617 

6ia 

619 

620 

621 

622 

623 
624 

62b 

626 



LHI 


AC1.CBMS 


LHl 


AC2.CBMS+16 


HAL 


RTN,l"ILOG 


LHI 


KEY. 3 


HAL 


RTX,NLWMAP 


LHI 


AC1.USMS 


LHI 


AC2.USMS+12 


BAL 


RTN.MLOG 


LHR 
BAL 


KEY, TWO 
RTX.NEWMAP 



B 



LOADLR 



♦ THIS ROUTINE LISTS MEMORY. 
NEWMAP LH NOX.STOP 

STH ZRO.MAOA 



NEWLIN XHR 
NEWSYM LHI 



MAI 



LHI 

STB 

AHR 
SHR 
BP 

BAL 

B 



AC2,AC2 

ACH3 

PAR.X'20« 

PAR.BUF ( AC2) 

AC2.0NE 
ACl.ONE 

MAI 

RTN.CSRCH 
EMAP2 



CLHR KEY. TWO 
BE MSYM 



WRTV 



MA 



LHI 


RTN.MSYM 


LH 


PAR.6(NDXJ 


XHK 

SVC 


AC1,AC1 

2.UNHAK 


LB 


PAR.TMPKACJ.) 


STB 


PAR,RUF(AC2> 



LIST HEADING 'COMMON-BLOCKS • 

SET KEY TO 3 TO SEARCH FOR OEF-COMS. 

PRINT COMMON-BLOCK MAP 



LIST HEADING 'UNDEFINED SYMBOLS' 

SET KEY TO 2 TO SEARCH FOR REFS. 
LIST UNDEFINED EXTERNAL SYMBOLS 

AND FETCH NEXT COMMAND 

•MAPS ON MAPQEV 

NDX POINTS AT CURRENT TABLE-ENTRY 



AC2 POINTS AT NEXT CHAR POSITION OUT 
BEFORE MOVING EACH SYMBOL. MOVE 3 

BLANKS INTO PRINT-BUFFER. THE MAP IS 
OUTPUT AS FOUR VALUES AND FOUR SYMB- 
OLS PER LINE OR SIX SYMBOLS FOR UN- 
DEFINED EXTERNALS. CSRCH FINOS THE 
NEXT TABLE-ENTRY WITH A KEY MATCHING 

REGISTER. KEY, AS SET BY CALLING PROG. 

IF TABLE SEARCHED TO BOTTOM. END MAP. 

OTHERWISE. IF KEY IS 2 PRINT SYMBOL 
AND NO VALUE* IF KEY IS NOT 2. FETCH 

THE VALUE OF THE SYMBOL (AT NDX+6) 

UNPAK IT AND MOVE IT TO THE 

PRINT-BUFFER AND 
MOVE ASCII TO TMP 



AND THEN INTO BUFFER 



OSLO 592.Q 

OSL05930 

OSLQS940 

OSL05950 

OSL05960 

OSL05970 

OSL0b980 

OSL05990 

OSL06000 
OSLOfeOlO 

OSL06020 

0SL06030 
OSL0fe040 

OSLO6050 

OSL06060 
OSL0(,070 

OSL06080 

OSL06090 

OSL06100 
OSL06H0 
OSL06120 

OSL0OSL06130 

0SL06140 

OSL06150 
OSL06160 

OSL06170 

OSL06180 

OSL06190 
OSL06200 

OSLab2lO 
OSL06220 
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050ER 


0A3D 


627 




AHR 


AC 2. ONE 


0510R 


0A2D 


628 




AHR 


AC 1. ONE 


0512R 


C520 
0004 


629 




CLHI 


AC1,4 


0516k 


4280 
0506R 


63a 




BL 


MA 


051AR 


0301 


631 




UR 


RTN 


051CR 


C800 
0020 


632 


MSYM 


LHI 


PAR,X»20' 


0520R 


1)203 
1244K 


633 




STB 


PAR,BUF<AC 


0524R 


0A3O 


634 




AHR 


AC2.0NE 


0526R 


082F 


635 




LHR 


ACltSIX 


0528R 


D305 
0000 


636 


MA2 


LB 


PARiOlNDXl 


052CR 


D203 
1244R 


637 




STB 


PAR,BUF(AC 


0530R 


0A3D 


638 




AHR 


AC2.0NE 


0532R 


0A5O 


639 




AHR 


NUX.ONE 


0534R 


0B2D 


640 




SHR 


ACl.ONE 


0536R 


•♦230 

0528R 


641 




ONZ 


MA2 


053AR 


0B5F 


64i> 




SHR 


NL/X,S1X 


053CR 


4000 
1012R 


643 




STH 


ONE.MAUA 


0540R 


C530 
0037 


644 




CLHI 


AC2,55 


0544R 


4280 

04O6R 


645 




BL 


NEWSYM 


0548R 


C800 

04D4R 


646 




LHI 


PAR.NEWLIN 


054CR 


4820 
1012R 


647 


EMAH1 


LH 


ACI.MaDA 


0550R 


4230 
OS60R 


648 




BN2 


EMAP15 


0554R 


C820 
1182R 


649 




LHI 


AC 1, NHS 


Q558R 


C830 
1186R 


650 




LHI 


AC2.NMS+4 


055CR 


4300 
0568R 


651 




B 


EMAP16 


0560R 


CA30 
1243R 


652 


EHAP15 


AHI 


AC2,BUF-1 


0564R 


C820 
1244R 


653 




LHI 


AC1.BUF 


0568R 


4110 
0C76R 


654 


EMAP16 


BAL 


RTN.MLOG 


036CR 


0300 


655 




BR 


PAR 


O56ER 


0866 


656 


E.MAP2 


LHR 


KEY, KEY 


0570R 


4330 
0S7ER 


657 




B2 


PPTP 


0574K 


0833 


658 


EMrtPi 


LHR 


AC2,AC2 


0576K 


0337 


659 




qzr 


RTX 


0578R 


0807 


660 




LHR 


PAR,RTX 


057AR 


4300 

054CR 


661 




B 


EMAP1 



VALUE AND SYMBOL t MOVE SYMBOL <SIX 

BYTES) TO BUFFER FROM (Nt)X). NOX GETS 

BUMPED FOR EACH BYTE, AC1 COUNTS DOWN 
FROM 6 AND AC2 IS INCREMENTED TO THE 
NEXT CHARACTER-POSITION OF BUF. 



WHEN SYMBOL HAS BEEN MOVEU, RESET NDX 
TO BEGINNING OF TABLE-ENTRY. TEST AC2 

TO SEE IF A FULL LINE IS IN bUF, IF 
NOT, FETCH ANOTHER SYMBOL. W||EN A 
LINE IS FILLED, RESET BUF INDEX (AC2) 
TEST IF ANY HAVE BEEN LOGGEO... 
IF NOT, PRINT "NONE" 



AT NEWLIN AND OUTPUT THE CURRENT LINE 
THRU MLOG* 



WHEN TABLE IS EXHAUSTEO, TEST KEY: 
IF KtYSO, OUTPUT J»IOP TO SHOW HIGH 

END OF LAST COMMON-BLOCK. OTHERWISE, 
OUTPUT THE LAST LINE (IF A PARTIAL 
LINE REMAINS) AND RETURN TO MAPPER 
ROUTINE. 



IF\ITLRDaTa 


OS LIHRAHY 


LOADER 


03-030R01AI 


7ER 1800 


b(,^ pptp 


Lli 


PaW.PT OP 


UFF1R 








B^R 1110 


663 PTP 


UAL 


RTN.WKTV 


ObOOH 








186R 1300 


661 


b 


E.MAP3 


0571R 


665 * 






■ 8AR 1820 


666 LOAO 


LH 


AC1.T0C 


OFEAK 








18ER 1B20 


66 7 


SH 


AC1.LABLEN 


10?A.< 








>92R 1020 


668 


STH 


AC1.LCMB0T 


1026R 








)96R 1020 


669 


STH 


AC1.LCMT0P 


1028K 








59AR 1020 


670 


STH 


AC1.SB0T 


0FF6R 








j9ER 1B2Q 


671 


SH 


ACl.BLKLEN 


102CR 








5A2R 1020 


672 


STH 


ACl.bCHBOT 


1022*' 
iAfeR 1020 


673 


STH 


ACI.BCMTOP 


lU21f- 








5AAR 10C0 


671 


STH 


ZRO.XFER 


OFFCR 








5AER 10C0 


675 


STH 


ZRO.LDFLG 


li>3E'< 
5B2R 10C0 


b76 


STH 


ZRO.KLFLG 


1010H 
5B6R 10C0 


67 7 


STH 


ZRO.CMFLG 


1016R 








5BAR 10C0 


b78 


STH 


ZRO.OLOC 


101AR 








5BE.H HOCO 


679 


STH 


ZRO.PTOP 


0FF1R 








5C2R 10C0 


680 


STH 


ZKO.FWFLG 


1011R 








5C6R 10C0 


681 


STH 


ZRQ.BCFLG 


1018K 


68i? * 


MODIFICATION TO SET 




60 3 


IF 


DOS 


5CAR C810 


681 


LHI 


RTN.OVLY 


0658R 








5CER 1010 


685 


STH 


RTNtOVTAB+2 


109PR 










fa 8b 


IF 


1 


5D2R C610 


687 


LHI 


RTN.SBOT 


0FF6K 








506R 1010 


688 


STH 


RTN.KESBOT+2 


016CR 








5DAR 10C0 


689 LI UK 


STH 


ZRO.SKPFLG 


1006H 








5DER 10C0 


690 


STH 


ZRO.EDTFLG 


0FF8R 
5E2R 1110 


691 


BAL 


RTN, FINDER 


01F2R 
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ON LOAD-COMMAND. PURGE LABEL-TABLE 
ADJUST SYMTAB TOP FOR LAB COM 
BELOW TOP OF CORE 
SET TOP OF L.AB COM TO BOTTOM 

ADJUST BOTTOM OF BLANK-COMMON 
TO PUT IT BELOW LABELED COMMON. 

SET TOP OF BLK COM 

CLEAR TRANSFER-ADDRESS. ON OTHER 



RESET POINTER TO TOP OF USfR PROG 



GET EP 

FOR FIRST TIM. 



POSITION TO NAMED PROGRAM, IF ANT 



OSLU6580 

OSL06590 
OSL06600 

OSL06610 
OSL06620 

OSL06630 

OSL06610 

OSL06650 

OSL06660 

OSL06670 

OSL06680 

OSL06690 

OSL06700 

OSL06710 

OSL0672(1 

OSL06730 

OSL06710 

OSL067S0 

OSL06760 

OSL06770 

OSL06780 
0SL06790 
OSL06S00 

OSL06610 

OSLU6620 
0SL06830 

OSL06810 

OSLU68bO 

USL0686U 

OSL06870 



INTERDATA 


OS LIBRARY 


LOADER 


05E6K 4170 


692 




bAL 


0790K 








05LAH 4.500 


693 




H 


01 IK 










694 


* 




05EER D^OO 


695 


EDIT 


STB 


11FDR 








05F2R D200 


696 




STB 


121BK 








05F6R E110 


697 




SVC 


121AK 








05FAR 4810 


698 




LH 


12XCR 








05FER 4210 


699 




QM 


OFAAR 








0602R 4110 


700 




BAL 


01F2R 








0606R 40F0 


701 




STH 


0FF8R 








060AR 086E 


702 


EOlTl 


LHR 




708 




IF 


060CR mio 


709 




BAL 


OCAOR 








0610R 4300 


710 




B 


ODHK 








0614R 4170 


711 




BAL 


0790R 








0618H 4300 


712 




B 


OfaOAH 
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RTX.PRGLOD CALL THE PROGRAM-LOAUER . . . 
LOADER ON COMPLETION, FETCH NEXT COMMAND. 



PAR,BIN0V+1 

PARiRWO+1 

l.RWD 

RTN,RW0+2 

INER2+4 

RTN, FINDER 

SIX.EOTFLG 

KEY, TWO 

1 

RTN.TSRCH 

LOADER 

RTX.PRGLOD 

EDITl 



SET UP EDIT INPUT DEVICE 



SET EDIT-FLAG 

SET KEY AND SEARCH TABLE 

FOR ANY REFS. IF NO RF.FS THLRE. 

END EDIT OPERATION NOW. 

IF ANY REFS* KEEP LOOKING. 

IF NON-ZERO, SCAN SOME MORE. 



OSLOM 

OSLOfefl 

QSLO&9 
OSL069 

OSLO 6 9 

OSL069 

OSL069 

OSL069 

OSL069 

OSL069 

0SL069 
OSL070 
OSL070 

OSL070 

OSL070 

OSL070* 
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1CK 


CbOO 
1FFE 


718 


,20R 


"♦280 
OlOAR 


719 


.2<tR 


<*8<tO 
OFFAR 


720 


.28R 


<+330 
OlOAR 


721 


.2CR 


48«»0 
10XAR 


722 


»30R 


U230 
OlOAR 


723 


>3»»R 


<+000 
OFEAR 


724 


i38R 


•♦300 
001HR 


72b 


i3CR 


tl30 
0000 


72b 



714 * 

71b * 

716 * SET TOP-OF-CORE FOR OOUT MODULE 

717 * 

718 TOPCOR CLHI PAR, 8190 



72fe RETURN SVC 



HL 


CMOERR 


LH 


ARG.OUTFLG 


tv. 


CMOERR 


LH 


ARG,OLOC 


BNZ 


CMDERR 


STH 


PAR,TOC 


B 


LOADER 


SVC 


3,0 



AUPR < fiK ? 

YES - ERROR 

OUT MODE ? 

NO - ERROR 

LOADING STARTED ? 

YES - ERROR 

SET TOP-OF-COftE 

B 

RETURN TO OS HY SVC tND-OF-JOB. 



OSL07100 
OSL07110 
OSL07120 
OSL07130 
OSL071H0 

OSL07150 

OSL07160 

OSL07170 

OSL07180 

OSL07190 

OSL07200 

OSL07210 

OSL07220 



INTERDATA OS LIBRARY LOADER 
0640R 
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0640h D200 

1237R 
0644R D200 

0654R 
0648R CCOO 

0008 
06HCK 4000 

0656R 
0650R 4300 

0014R 
0654R 0000 
0656R 0000 

0658R 



0658R 

065CR 
065ER 

0662R 

066fcK 

066AR 

066CR 

0670R 
0674R 
0&78R 
067CR 
Q680R 
0684R 
0686R 
068CR 



4820 

0FF2R 

0866 

4210 

0666R 

C800 

0168 

C40Q 

fffe 

0A20 

4020 

06F4R 

4020 

GFF2R 

4820 

0FF6R 

4020 

06F6R 

C820 

0690R 

4020 

1098R 

C820 

06F6R 

4020 

046CR 

4300 

0014R 



0690R 4820 
ObF4iJ 

0694R 4020 
0FF2R 

0698R 4820 
06F6K 



728 LOG 

729 * 

730 * 

731 * 
732 



* OVERLAY COMMAND PROCESSOR FOR DOS 



733 

734 

735 

736 

737 LOGSWT 

736 TTYSWT 

739 

740 OVLY 

741 

742 

743 ♦ 

744 

745 
746 

747 

748 OPND 

749 

750 

751 
752 
753 
754 
755 
756 
757 
758 

759 * 

760 OvLYl 

761 
762 



EUU * 

LOG COMMAND USED IN BATCH PROCESSING TO PLACE 
INPUT COMMANDS ON SOME DEVICE. FORMAT OF COMMAND IS 
LG ULU 

STB PAK.LOGBL+1 

STB PAR.LOGSWT 
SHHL PAR .8 
STH PrtR, TTYSWT 
LOADER 



B 

DC 
DC 
IF 
t.QU 





DOS 

* 



FIRST TIME AN OV COMMAND PROCESSED S A VE BIAS A ND 
SBOT POINTER. CHECK FOR 'DEAD SPACE' VALUE. 
LH ACl,bIAS 



LHR KEY, RET 

BM OPND 

LHI PAR,UEFAUT 

NHl PAR.X'FFFE' 

AHR AC1.PAR 

STH AC1.BIASV 

STH ACl.UIAS 

LH AC1.SBOT 

STH ACliSBOTSV 

LHI AC1.0VLY1 

STH ACl.OVTAB+2 

LHI AC1.SBOISV 

STH AC1.RESBOT+2 

B LOADER 



CHECK FOR VALUE 
IF ZERO DEFAULT 

TO 3H0 BYTES 

ROUND TO HALF WORDS 

ADD TO BIAS 
SAVE FOR LATTER 

SET FOR FIRST OVERLAY 

SAVE BOTTOM 

OF SYflBQL TABLE 

ALTER ENTRY POINT 

FOR NEXT TIME AROUND 



GET NEXT CMO. 



£NTRY TO OVERLAY PROCESSING AFTER FIRST TIME 
LH AC1.BIASV RESTORE BIAS 



STH 
LH 



ACl.UIAS 
ACl.SBOTSV 



TO ROOT SEG. ONLY 
REATORE SBOT 



INTtRUATA U.S LIBRARY LOADER 



>9CR 

^AOR 

,A4R 

iABR 

,ACR 
iAER 

,B2R 

iBfcR 

iBAR 

bBER 

bC2R 

iC6R 

-.CAR 

^CER 

5.D2K 
bD4R 

iD8R 

?OCR 

iEOR 

iE4R 

iEBR 

iECR 

iFoR 

iF4R 
iF6R 
168 



4020 

0FF6R 

4820 

06F4R 

4020 

0FF4H 

4850 

1026K 

086D 

4110 

OCA4R 

•♦300 

06CEH 

4805 

0006 

4500 

Q6F4R 

4280 

06AER 

C860 

0007 

1110 

0U5QI'' 

4300 

06ACK 

1850 

1026^ 

0766 

4110 

GCA4R 

4300 

0014R 

"♦805 

0006 

4500 

06F4R 

4280 

06D4R 

CB60 

0007 

4110 

0D50R 

4300 

06D2R 



765 

764 

7fab 

766 

767 01 
766 U2 

769 

770 

771 

772 

773 

774 

775 

776 Ll 

777 L2 

778 L3 

779 

780 
781 
782 
78.5 
784 
785 



STH 

LH 
STH 

LH 

LHR 
BAL 

U 

LM 

CLH 

BU 

LHI 

BAL 

b 

LH 

XHR 
UAL 

B 

Lt, 

CLH 

BL 

LHI 

BAL 

B 
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ACliSBOT TO RLMOVE ANY SIGN OF OVERLAY 

AC1.UIASV 

AC1.PT0P 

NuX.STOP 

KEY, ONE 
RTN.CSRCH 

Ll 

PAR,fc(NDX) 

PAR.B1ASV 

D<i 

KEY, 7 

RTN,T1NSRT 

01 

NDX.STOP 

KEY, KEY 
RTN.CSRCH 

LOADER 

PAR.6CNDX) 

PAR.BIASV 

L3 

KEY, 7 

RTN.T1NSRT 

Li 



78b BIASV OS 1 

787 SROTSV OS 1 

788 OEFAUT EQU 360 

1226 IF 1 

1227 * 

1228 * BUBBLE SORT SUBROUTINE 

1229 * 

1230 * SOHTS THE SYMBOL TABLE FROM <SBOT) TO NSTOP ) 

1231 * 

1232 * I»- WAFLAG) = SORTS BASED ON ADORESS 

1233 * OTHERWISE SORTS ALPHABETICALLY 

1234 * 



OSL07590 

OSL 07600 

OSL07610 

OSL07620 

OSL07630 
OSL07640 

OSL07650 

OSL07660 

OSL07670 

OSL07660 

OSL07690 

OSL07700 

0SL07710 

OSL07720 

OSL07730 
OSL07740 

OSL07750 

OSL07760 

OSL07770 

OSL07780 

OSL07790 

OSL07800 

0SL07810 

OSL07820 
OSL07830 
OSL 7 84 
OSL12220 
OSL12230 
OSL12240 
OSL12250 
0SL1226G 
OSL12270 
OSL12280 
OSL12290 
OSL12300 



INTEROATA OS LIBRARY LOADER 
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0002 
0003 
000C 
0000 
000L 
OOOF 

06F8R 

06FCR 

0700R 

0704k 

0706R 

070AR 

070ER 

0712R 

0716R 

071AR 

071ER 
0720R 

0724R 
0726R 
Q728R 

072CR 

0730H 
0732R 

0736R 
0738R 
073AR 

073ER 

0742R 

0744R 

0748R 
074AR 
Q74CR 

0750R 



4830 

0FF6R 

C860 

7FFF 

CA30 

0008 

0823 

D1C2 

0000 

4840 

078ER 

4230 

071ER 

45F2 

FFFE 

4280 

0750K 

4300 

U75ER 

04C6 

4842 

FFF6 

0446 

UbC4 

4280 

0750R 

4230 

075ER 

0406 

4842 

FFFA 

0446 

0504 

4280 

0750R 

4230 

075ER 

04E6 

4842 

FFFC 

0446 

05E4 

4380 

075ER 

CA30 

0008 



1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 

1246 

1247 

1248 
1249 

1250 

1251 

1252 

1253 

1254 

1255 
1256 

1257 

1258 
1259 

1260 

1261 
1262 

1263 
1264 
1265 

1266 

1267 
1268 

1269 
1270 
1271 



* LINKAGE : BAL RTN, BUBBLE 

* NOTE REblSTER REDIF INITIONS : 



ACJ 

ACK 

XI 

X2 

X3 

X4 

* 

BUBBLE 



EQU 
EQU 
EQU 
EQU 
EQU 
LuU 

Lll 

LMI 

AHl 

BUBBL2 LHR 
BUBBL3 LM 

LH 

BN/ 

CLH 

BL 

B 



CMPALF 



NHR 
LH 

NHR 

CLHR 

BL 

BNE 

NHR 
LH 

NHR 

CLHR 

BL 

BNE 

NHR 

LH 

NHR 

CLHR 

BNL 



AC1 

AC2 

12 

13 

14 

lb 

ACK.SBOT 

KEY.X'7FFF» 

ACK, 8 

AC J, ACK 
Xl.O(ACJ) 

ARG.AFLAG 

CMPrtLF 

X4.-2UCJ) 

BUBBL4 

BUBHL7 

XI, KEY 
ARG,-8«ACJ) 

ARG.kEY 

Xl.ARG 

BUBHL4 

BUBBL7 

X2.KEY 
ARG,-6(ACJ) 

ARG.KEY 

X2.AR& 

BUBBL4 

BU88L7 

X3.KEY 
ARG,-4(ACJ) 

ARG.KEY 

X3.ARG 

BUBBL7 



INITIALIZE K 



sJ = K 
GET ENTRY 

AFLAG =07 



YES - X(J) a ADDRESS 



NO 



X(J) = SYMBOL (ANDEO W KEYS) 



X(J) > X<J-,> ? 



1272 BUBBL4 AnI ACK, 8 



IMTtRDATA OS LIBRARY LOAUE.R 



rstR 


4530 


1273 




CLH 


ACK.STOP 


T56R 


1026R 

4280 

0704U 


1274 




UL 


BUBKL2 


rsca 

r5ER 


0301 
D1C2 


1275 
1276 


BUBBL7 


UR 


KTN 
X1,0(ACJJ 


I-62R 


0000 
OOCO 


1277 




STM 


XI, SAVE 


7bbH 


0786U 
D1C2 


1278 




LM 


X1.-8(ACJ) 


76AR 


FFF3 
D0C2 


1279 




STM 


XltO(ACJ) 


76ER 


0000 
D1C0 


1280 




LM 


XI, SAVE 


772R 


0786R 
D0C2 


1261 




STH 


Xlt-eiACj) 


776R 


FFF6 
CB20 


1282 




SHI 


ACJ,e 


77AR 


0006 
"♦520 


1283 




CLH 


ACJ.SBOT 


77LR 


0FF6R 
4320 


1284 




Bf,jP 


BUBBLE 


782R 


0750K 
4300 


128b 




B 


BUBBL3 


786R 
78ER 


0706R 

0000 


1286 
1287 


SAVE 

AFLA6 


DS 
DC 


6 
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K = (STOP) 7 



YLS - KLTUKN 

EXCHANGE FULL ENTHY (J.J-8) 



OSL12690 

OSL1270'! 

OSL12710 
0SL12720 

OSL12730 

0SL12740 

OSL12750 

OSL12760 

OSL12770 

OSL12780 

OSL12790 

OSL12800 

OSL12810 

OSL12820 
OSL12830 



INTERDATA OS LIBRARY LOADER 
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1289 * 

1290 * PROGRAM-LOADER 

1291 * 

1292 ♦ 

1293 * THIS ROUTINE IS CALLED BY CQMMANO-JflPLEMENTATIQN ROUTINES TO LOAD 

1294 * PROGRAMS, OR OUTPUT CORE-IMAGE TAPES. 

1295 * 

1296 * INPUT DEVICE IS SET BY CALLER AT BJNDV BEFORE CALLING THIS MOPULE. 

1297 * 

INITIALIZE SEQ NUMBER TO 1 
FORCE INITIAL VALUE OF BIAS 
UHJQ LQC. 
SET RELATIVE MODE 



IF INPUT ERROR, GO TO INER 

THIS STARTS AT -l ON TAPE. WHEN SEQ 
!S_2LfiQ., TEST FLAG. IF THIS IS 

NOT AN EDIT OPERATION, OR IF IT IS 

BUT NO LABEL APPEARS AS THE FIRST 

ITEM OF THE RECORD, THEN LOAD THE 
RECORD. RESET SKPFLG AND AND 

GO BACK TO BSEQ TO DECREMENT DEO TO 

-1 FOR TESTING FIRST RECORD. 

UNLABELED PROGRAMS ARE SKIPPED 



TO SCAN AND TEST LABEL (FOR EDIT CMO) 
SET SEARCH-KEY TO 2 TO LOOK FOR rEFS 

HOVE- SYMBOL FORM TAPE TO SYMBUF 

TEST FOR LABEL "ENDVOL" 

IF NOT, GO ON 

IF SO, STOP EDITING. 



0790R 


089D 


1298 


PRGLOD LHR 


SEQ, ONE 






1302 


IF 


1 


0792R 


4820 
0FF2R 


1303 


LH 


ACl.BIAS 


0796R 


4020 
1008R 


1304 


STH 


ACltLQC.-.-. 


079AR 


40D0 
101CR 


1305 


STH 


ONE.RELFLG 


079ER 


4110 

0F30R 


1306 


CRNR BAL 


RTN.LREAD 


07A2R 


4300 

0F98R 


1307 


B 


INER 


07A6R 


0B9D 


1308 


BSEQ SHR 


SEQ, ONE 


07A8R 


4230 
0812R 


1309 


BNZ 


CSEQ 


07ACR 


4820 
0FF8R 


1310 


LH 


ACl.EDTFLG 


07B0R 


4330 

07C6R 


1311 


HZ 


NSKP 


07I34R 


0788 


1312 


XHR 


ITM,ITM 


07B6R 


4110 

OBEER 


1313 


BAL 


RTN, FETCH 


07BAR 


C500 
000F 


1314 


CLHI 


PAR.X'OF? 


07BER 


4330 
07CEK 


1315 


BE 


LABTST 


07C2R 


4300 
080AR 


1316 


B 


SKPPRS 


07C6R 


40C0 
1006R 


1317 


NSKP STH 


ZRD, SKPFLG 


07CAR 


4300 
7A6R 


1318 


B 


BSEQ 


07CER 


086E 


1319 


LABTST LHR 


KEY, TWO 






1325 


IF 


1 


07D0R 


4110 

0C1AR 


1326 


BAL 


RTN.SFETCH 


07D4R 


4820 
11B0R 


1327 


LH 


AC1, SYMBUF 


07D8R 


C520 
454E 


1328 


CLHI 


AC1,C»EN« 


07DCR 


4230 

OflOOR 


1329 


BNE 


EDTSCjN 


07L0k 


4820 
11B2K 


1330 


LH 


ACl,SYMBUF+2 


07E4K 


C520 
4456 


1331 


CLHI 


AC1,C*0V* 


07E8R 


4230 


1332 


BNE 


EDTSCN 
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0800N 
TZCH 4B20 

hb«u< 

.FOR C520 

4F4C 

7F4R 4230 

oeooK 

7F8R E120 

1124R 
7FCR 4300 
0014K 

800R 4110 

OCOAR 
904R 0855 
B06R 4230 

07C6R 
BOAR 40F0 

1006R 
BOER 4300 

07A6R 



812R 

816R 

BlAR 

BIER 

822R 
824R 

B2BR 

82CR 
B2ER 

832R 

836K 

83AR 
83CR 

840R 
842R 
844R 



4590 

1244R 

4330 

0822R 

L120 

1196K 

4300 

0F80R 

078B 

4110 

OBEER 

CUOO 

0002 

0820 

4802 

109AR 

C810 

0824H 

4630 

1006R 

0330 

4832 

109CR 

0210 

0A83 

4300 

0824R 



848R 4110 
OHEER 

84CR C500 
0005 

850R 4280 
0860H 



1333 

1334 

1335 

1336 

1337 

1336 
1339 

1340 
1341 

1342 

1343 

1344 
1345 

1346 

1347 

1348 

1349 
1350 

1351 

1352 
1353 

1354 

1355 

1356 
1357 

1356 
1359 
1360 

1361 
1362 

1363 

1364 



LH AC1.SYMBUF+4 

CLHI ACl.C'OL' 

LINE EOTSCN 

SVC 2.ME0FS 

H LOAOER 



EOTSCN BAL 

LHR 

BNZ 

SKPPKG STH 

If 



CSl8 



CLH 

BE 

SVc 

H 



DECODE XHR 

NEWITM UAL 



RTN.SFIND 

NDX.NDX 
NSKP 

SlX.SKPFLG 

BSEQ 

SeQ'BUF 

DECODE 

2.WSSE0 

CRN2 

ITM,ITM 
RTN, FETCH 



EOF MESSAGE 



FIND A HATCHING REG 

IF NONE, SKIP THIS PROG 
ELSE LOAD 



test sequence number 

okay? then start processing record 

no? then output messagfe and exit 

with pause for re-try 

start new record here 
fetch next control-item 



SLHL PAR. 2 



DEC2 



LHR 
LH 

LHI 

LH 

B2R 
LH 

Br.R 
A MR 

B 



AC1.PAR 

PAR.CITTABCACl. FETCH ADRS OF ITEM-SERVICE ROUTINE 

RTN, NEWITM SET RETURN ADDRESS 

AC2,SKPFL& TEST SKIP-FLAG JF RESET. 

PAR EXIT TO SERVICE-ROUTINE. 

AC2,CITTAB*2<ACD IF . 5EI.i_EEIC.H_ DATA-COUNT. IF MTA- 



PAR 
ITM.AC2 

NEWITM 



COUNT NEGATIVE. FXIT TO ROUTINE. 
OTHERWISE, BUMP ITE«. 



* CCOM USED TO DECODE SECOND DIGIT IF FIRST IS _ 
CCOM BAL RTN. FETCH FETCH SECOND OIGIT 



CLHI PAR, 5 
BL CC0M2 



TEST FOR LEGAL CONTROL ITEM 
IF ALL IS WELL. VECTOR IT 



OSL13290 

OSL13300 

0SL13310 

OSL13320 

0SL1333U 

OSL13340 
OSL13350 

OSL13360 
OSL13370 

OSL13380 

OSL13390 

OSL13400 
0SL13410 

OSL13420 

OSL13430 

OSL13440 

OSL13450 
OSL13460 

OSL134 7 

OSL13480 
OSL13490 

OSL13500 

OSL13510 

OSL13520 
QSl_.95._Q 

OSL13540 
OSL13550 
OSH3560 

OSL13570 
0SL135B0 

0SL1359U 

OSL13600 



INTLROATa OS LIURAHY LOADER 



0OS4R L120 


136b 


1NVL0D 


SVC 


2.ICM 


11D4R 










8b»l< (12 


1366 




SVC 


2.AHLM 


11E2H 










085CR 4300 


1567 




U 


CKDEV 


OFCER 










OBfeOH COOO 


1368 


CC0M2 


SLHL 


PAR, 2 


0002 










0864R C820 


1369 




LHI 


AC1.COMTAB 


10OAR 










0868R C820 


137Q 




SHI 


ACl, CUT. AB 


109AR 










086CR 0A20 


1371 




AHR 


ACl.PAR 


D86LR 4300 


1372 




B 


0EC2 


0B2EK 












1373 


* END OF PROGRAM 


0872R 4820 


1374 


CEND 


LH 


ACl, PTOP 


0FF4R 










0876R 4330 


1375 




132 


GOFET 


087ER 












1381 




IF 


1 


087AR 


1382 


GOENU 


EUU 


* 


087AR 4020 


1383 




STH 


ACi.BIAS 


0FF2R 










087ER 


1384 


GOFET 


EOU 


* 


087ER 4110 


1385 




BAL 


RTN»DFETCH 


0C54R 










0882R 0844 


1386 




LHR 


ARG.ARG 


0BB4R 4330 


1387 




til 


USET 


0894R 












1391 




IF 


1 


0888R 4040 


1392 




STH 


ARG.PTQP 


0FF4R 










088CR 


1393 


G0FET2 


EOU 


* 


0B8cR 4110 


1394 




UAL 


RTN.DFETCH 


0C54R 










0890R 4040 


1395 




StH 


ARG.COMBOT 


1022R 










0894R 4820 


1396 


USET 


LH 


ACl,OUTFLG 


OFFAR 










0898R 0237 


1397 




UN2R 


RTX 




1401 




IF 


1 


089AR L120 


1402 




SVC 


2,FETCHP 


OFECR 










089ER 4830 


1403 




LH 


AC2.PTOP 


0FF4R 










08A2R 4032 


1404 




STH 


AC2,4(AC1) 


0004 










08A6R 4830 


1405 




LH 


AC2,C0MB0T 


1022R 










08AAK 4032 


1406 




.STH 


AC2,2(AC1) 


000? 










Q8ALR 0307 


14U7 




bk 


RTX 




1408 


* UtF INE CHAIN 


08B0R 4820 


1409 


COCN 


LH 


AC1,0UTFLG 


OFFAK 
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ABORT LOAD 



SET UP ACl TO VECTOR DtCOOt-ROUTINE 
10 CQMAB INSTEAD OF CI TAB BY ADDING 
TO IT THE LENGTH OF CITTAB. 

FETCH LAST LOC USED 
BRANCH IF 

AND UPDATE BIAS FOR LOADING 

GET PTOP IF ITS ON TAPE 

IF ITS ZERO, THEN SKIP IT 

AND USE VALUES COMPUTED IN LOADER 

IF NON-ZERO, THIS IS A LOAD-MODULE 

SO FETCH COMBOT FROM INPT, TOO 
NOW PTOP AND COMROT ARE SETUP, 
UNLESS THIS WAS AN OUTPUT JOB. 
SET UP THE PARAMETERS IN BOSS. 
GET TABLE-ADRS INTO ACl 
MOVE PTOP INTO TABLE 

MOVE COMBOl INTO TABLE 

AND EXIT LOADER TO COM-PROCCLSSOR 
ON CHAIN ITEM, TEST OUT FLAG. 



INTERDATA 


OS L1URARY LOADER 


03-030! 


>B4R 




1410 


CDCNO 


LQU 


* 


IB4R 


4230 

6D2R 


1411 




BNZ 


C0CN2 


SB8R 


4 82B 
QOOO 


1412 


CDCN1 


LH 


AC1,0<REF) 


JBCR 


40AB 
0000 


1413 




STH 


DEF,0(REF> 


1C0R 


08B2 


1414 




LHR 


REF,AC1 


JC2R 


0331 


141b 




HZR 


RTN 


iC4R 


05BA 


1416 




CLHR 


REF, DEF 


JC6R 


4230 
08B8R 


1417 




BNE 


C0CN1 


SCAR 


E120 
11A2R 


1418 


CDCN7 


SVC 


2.MSSL0P 


JCER 


4300 
OlOAR 


1419 




H 


CMOERR 






1420 


* OUTPUT REF, 


DEF, CHAIN 


JD2R 


4010 

08F8K 


1421 


CDCN2 


STH 


RTN.C0CN3 


J06R 


082B 


1422 




LHR 


AC1,REF 


JDBR 


08DF 


1423 




LHR 


PAR, SIX 


3DAR 


HllO 
0L94R 


1424 




BAL 


RTN«OHW 


1DER 


082A 


1425 




LHR 


AC1,DEF 


5EOR 


CSOO 
0007 


1426 




LHl 


PAR, 7 


JE4R 


0E94R 


1427 




BAL 


RTNtOHW 


5E8R 


C84Q 
OOCE 


1428 




LHI 


ARG.206 


5ECR 


4110 

OEAAR 


1429 




BAL 


RTN.OTST 


JFOR 


080E 


1430 




LHR 


PAR»TWO 


JF2R 


tuo 

0E1CR 


1431 




BAL 


RTN»OPAK 


JF6R 


"♦300 
08F6R 


1432 




B 


* 


JF8R 




1433 


CDCN3 


LQU 


*-2 






1434 


* TOGGLE ABS/REL MODE 


JFAR 


4820 
100AR 


1435 


CTOG 


LH 


AC1.L0C+2 






1439 




IF 


1 


JFER 


"♦830 
1008R 


1440 




LH 


AC2oLOC 


9 02R 


4020 
1008K 


1441 




STH 


AC1,L0C 


J0&R 


•♦030 
100AR 


1442 




STH 


AC2.L0C+2 


JOAR 


4820 
101CR 


1443 




LH 


ACl,RELFLG 


50ER 


4330 
091AR 


1444 




Bz 


CT0G2 


J12R 


082C 


1445 




LHR 


ACltZRO 


»14R 


4020 
101CR 


1446 


CT061 


STH 


AC1,RELFLG 


»18R 


0301 


1447 




BR 


RTN 
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IF OUT, GO OUTPUT SOMETHING 

OTHERWISE, DEF THE CHAIN: FETCH END 

LOCATION. THEN FOLLOW REF 

CHAIN UNLESS NEXT REF-LOC 
IS ZERO. 

IF REF s DEF, CHAIN IS LOOPED 
ELSE, CONTINUE 

IF CHAIN-LOOP IS OETECTED, CANCEL 

THE OPERATION AND TYPE A MESSAGE. 

SAVE RETURN ADDRESS 
PACK OUT SIX, REF 



PACK OUT 7, DEF 



PACK OUT 2 (DEF-CHAIN) 

ON MODE-TOGGLE ITEM, SWAP LOCATION- 
COUNTERS AND FLIP RELFLG 



OSL14060 
OSL14070 

0SL14080 

OSL14090 

OSL14100 
0SL14110 
OSL14120 
OSL14130 

OSL14140 

OSL14150 

OSL14160 
OSL14170 

OSL14180 
OSL14190 
0SL14200 

OSL14210 
OSL14220 

OSL14230 

OSL14240 

OSL14250 

OSL14260 
OSL14270 

OSL14280 

OSL14290 
OSL14300 
OSL14310 

OSL14350 
OSL14360 

OSL14370 

0SL1438Q. 

OSL14390 

OSL14400 

OSL1441Q 
OSL14420 

0SL14430 



INTERDATA OS LIBRARY LOADER 



Q3-Q3QR04A13 
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091AR 


C820 
0007 


1448 


CT0G2 


LHI 


AC1.7 


09Ul< 


4300 

G914R 


1449 




B 


CTOG1 






1450 


♦ LOAD 


TRANSFER ADURESS, 


0922R 


4110 
0C44R 


1451 


CTRA 


UAL 


RTNtKFETCH 


0926R 


4040 
OFFCR 


1452 




STH 


AKG.XFER 


092AR 


4810 
OFFAR 


1453 




LH 


RTN.OUTFLG 


092ER 


4330 
0824R 


1454 




bZ 


NLWITM 


0932R 


ceoo 

0004 


1455 




LHI 


PAR. 4 


0936R 


0824 


1456 




LHR 


AC1.ARG 


0938R 


4110 

0E94R 


1457 




BAL 


RTN.OHW 


093CR 


4300 
0824R 


1458 




B 


NEWITH 


0940R 


4110 

0C44R 


1459 


ClDA 


BAL 


RTN.KFETCH 






1466 




IF 


1 


0944R 


4040 
1008R 


1467 




STH 


ARG.LOC 


0948R 


4540 
0FF4R 


1466 




C L H 


ARG,PTOP 


094CR 


4280 
0824R 


1469 




BL 


NEWITM 


0950R 


4040 

0FF4R 


1470 




STH 


ARG.PTOP 


0954R 


4300 

0824R 


1471 




a 


NEWITM 


0958H 


4110 
0C44R 


1472 


CREF 


BAL 


RTN.KFETCH 


095CR 


08B4 


1473 




LHR 


REF.ARG 






1491 




IF 


1-0S16MT 


095ER 


4300 

U824R 


1492 




B 


NEWITH 






1493 




IF 


1 


0962R 


4110 
0C44R 


1494 


CDEF 


BAL 


RTN.KFETCH 


0966R 


08A4 


1495 




LHR 


OEF.ARG 


0968R 


4300 

0824R 


1496 




B 


NEWITH 






1497 


* LOAD 


TEXT 




096CR 


4110 
0C54R 


1498 


CXAB 


BAL 


RTN.DFETCH 


0970R 


4850 

10 08K 


1499 


ClABl 


LH 


NOX.LOC 


0974R 


4550 

10221* 


1500 




ClH 


NDX.COMBOT 


0978R 


4380 
0LF8R 


1501 




BNL 


MFULL 


097CR 


0824 


1502 




LHR 


AC1.ARG 


097LR 


4110 


1503 




BAL 


RTN.MHW 



MOVE TRANSFER ADRS TO XFLR 

IF OUTFLAG IS SET, PACK XFER AORS. 

ON OUTPUT FILE 



MOVE LOAD-AORS TO LOC-COUNTER 
SEE IF THIS WILL BUMP PTOP 
IF NOT, GO BACK FOR MORE 
OTHERWISE. UPDATE PTOP 



FETCH REF AOORESS 



FETCH DEF ADDRESS 

FOCM A HALFuQRD OF DATA 

AND GET LOAD-LOCATION FROM LOC. 

TEST FOR OVERLAP WITH COMMON 



CALL MHW TO MOVE THE DATA INTO CORE 
OR PACK IT INTO THE OUTPUT BUFFER 



INTEROATA 


OS L3I 


3RAKY t_0 


AUER 


03-030f 


0D84R 










82R 4300 


1504 




b 


C2AB2 


09C8K 










86K 1110 


150 5 


C1RL 


UAL 


RTH.UFETCH 


QC54I: 










BAR 4A40 


1506 




AH 


ARG.BIAS 


0FF2R 










'8ER 4300 


1507 




B 


C1AB1 


0970H 


1508 


* 






>92R 4000 


1509 


C2RL 


STH 


ONE.RLFLG 


1010R 










I96R mio 


1510 


C2AB 


BAL 


RTN.OFETCH 


0C54R 










I9AR 4040 


1511 




STH 


AHG.TMPl 


1002W 










I9ER 4110 


1512 




BAL 


RTNiUFETCH 


0C54R 










IA2R 4820 


1513 




LH 


AC1.RLFLG 


1010R 










>A6R 4330 


1514 




HZ 


* + 8 


09AEK 










>AAN 4A4Q 


1515 




AH 


ARG.BIAS 


0FF2R 










IAER 40CO 


1516 




STH 


ZRO.RLFLG 


1010K 










>B2R 0834 


1517 




LHR 


AC2.ARG 


>B4R 4620 


1518 




LH 


ACl.TMPl 


1Q02R 










IB8R 4850 


1519 




LH 


NDX.LOC 


1Q08R 










>BCR 4550 


1520 




ClH 


NQX.CQMBOT 


1022R 










JCOR 4360 


1521 




BNL 


MFULL 


0LF8R 










>C«*R H110 


1522 




BAL 


RTN.MFW 


0080R 










>C8R 4050 


1523 


C2AB2 


STH 


NOX.LOC 


1008R 










»CCR 4550 


1524 




CLH 


NUX.PTOP 


0FF4K 










3U0R 4280 


1525 




BL 


NEWITM 


0824R 










3D4R 4050 


1526 




STH 


NDX.PTOP 


0FF4K 










3U8H 4300 


1527 




B 


NEWITM 


0024N 












1528 


* LOAD 


REF SYMBOL 


30CR 4110 


1529 


CRFS 


BAL 


RTN.SFETCH 


0C1AR 












1533 




IF 


1 


3E0R 0060 


1534 




LHR 


KEY, ONE 


3E2R 4110 


1535 




BAL 


RTN»SFlNO 


OCDAR 










9E6R 0855 


1536 




LHR 


NQX,NQX 


3E8R 4230 


1^37 




BNZ 


CRFSl 
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IF DATA IS RELOCATABLE, RELOCATE IT, 

BY ADDING BIAS 

BUT OUTPUT IS ONLY ABSOLUTE. 

FOR FULLWORO.SAME AS ABOVE. 

FETCH SECOND HW OF FW 
TEST RELOCATION FLAG 
IF ABSOLUTE. SKIP 
ADDING THE BIAS 
RESET RL FLAG 



UPDATE LOC AND PTOP 
AFTER MOVING DATA 



move symbol to symbuf 

find a .matching. def (if any) 

if matching def exists, go define it, 



OSL15000 

OSL15010 

OSL15020 

OSL15030 

OSL15040 
OSL15050 

OSL15060 

OSL15070 

OSL15080 

OSL15090 

OSL15100 

OSL15110 

OSL15120 

OSL15130 
OSL15140 

OSL15150 

OSL15160 

OSL15170 

OSL1M80 

OSL15190 

0SL15200 

OSL15210 

OSL15220 

OSL15230 

OSL15240 
OSL15250 

OSL15290 
OSL15300 

OSL1S310 

OSL15320 
OSL15330 



IfJTLRDATA OS LIBRARY LOADER 


03-Q3DR04 


UA2CW 










09ECK 066E 


1530 




LHR 


KEY, TWO 


09EEK <+820 


1539 




LH 


AC1,0UTFLG 


UFFAK 










09F2R '(230 


154J 




bijz 


CRFSO 


0A22R 










09F6R 


1541 


CRFLNK 


LOU 


* 


09F6R mio 


1542 




UAL 


RTN.SFIND 


OCUAR 










09FAR 0855 


lb**. 1 ! 




LHR 


NuX.NoX 


09FCK 4330 


1544 




uz 


CRFSO 


0A22N 










OAOOR 0711 


1545 




XHR 


RTN,RTN 


0A02R 4825 


1546 




LH 


ACl,6(NQX) 


0006 










OAOfch 4832 


1547 


CP1 


Lll 


AC2»0< AC1 ) 


0000 










OAOAH 1330 


15i*8 




til 


CR2 


0A1AR 










OAOER 0823 


1549 




LHR 


AC1.AC2 


OAlOR OAlD 


1550 




AHK 


RTN.ONE 


0A12R 4310 


1551 




BNM 


CR1 


0A06R 










0A16R 1+300 


1552 




B 


CUCN7 


08CAR 










OAlAR «*0B2 


1553 


CR2 


STH 


RtFtO(ACl) 


0000 










0A11.R 4300 


1554 




Li 


NLWITM 


0824H 










0A22R 080B 


1555 


CrFSO 


LHR 


PAR, KEF 


0A24R 4110 


1556 




BAL 


RTN.SINSRT 


0U18R 










0A28R H300 


1557 




B 


NLWITM 


0824R 










0A2CK 46A5 


1556 


CRFS1 


LH 


DEF.feCNDX) 


0006 










0A30R 4110 


1559 




BAL 


RTN.CDCN 


08B0R 










0A34R 1+300 


1560 







NEWITM 


0824R 












1576 




IF 


1 




1577 


* LOAD 


DEF SYMBOL 


0A38R 4110 


1578 


COFS 


BAL 


RTN.SFETCH 


0C1AR 










0A3CR 086D 


1579 




LHR 


KEY. ONE 


0A3LR 4110 


1580 




BAL 


RTN.SFIND 


OCUAR 












1584 




IF 


1 


0A42R 0855 


1585 




LHR 


NDX.NDX 


0A44R 4330 


1586 




UZ 


C0FS2 


0A6AR 










0A48K C83C 


1587 




Ltil 


AC2.H 


0004 










0A4CK "+623 


1588 


CDFS1 


LH 


ACl.SYMBUF (AC2 


11B0W 










0A50R 4023 


1589 




STH 


ACl,MSYMB(AC2) 
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IF NO MATCH, INSERT THIS REF IN TABLE 
AT FIRST AVAILABLE SLOT. 



IF MATCH AND ITS A REF ALSO, 
LINK TWO THREADS TOGETHER. 

FETCH REF -VALUE 

GET LINK OF CHAIN TO FOLLOW TitREAD. 

IF ZERO, WE'RE AT THE END - Go STORE 

NEW REF-VALUE. OTHERWISE, 

BUMP CHAIN-COUNTER, AND LOOP AROUND 

AGAIN, IF COUNTER OVERFLOWS, THREAD 

MUST BE AN ENDLESS LOOP STO i,KIP IT. 



IF MATCH, FETCH DEF-VAlUE AND Go 
DEFINE THE CHAIN 



MOVE DEF SYMBOL TO SYMHUF 

LOOK FOR ANOTHER DEF SAME SYMBOL 
THIS IS A MULTIPLY-DEFINED ENTRY- 



POINT. 

IF ANOTHER DEF FOUND, MOVE SYMBOL 
TO MESSAGE-AHEA AND LOG M MESSAGE, 
TYPE IT OUT, BUT 



INTEHOaTA 


OS |_I! 


(RARY LOAULR 


03-030R 




11C2H 








541 


0H3E. 


1590 


SHH 


AC2.TWO 


,56R 


4.UU 

UAHCi' 


i*m 


HNM 


CUFS1 


,5AR 


tllO 
11U6K 


1592 


SVC 


l.MSMUF 


>5ER 


1600 
UB8H 


1593 


LM 


PAR,HSM0F+2 


t62K 


1210 

OFAAi? 


1594 


ilM 


INER2+4 


166R 


4300 
CS24K 


1595 


b 


NEWITM 


16AR 


080A 


1596 


CDFS2 LHR 


PAR.OEF 


16CR 


4110 

0D18R 


1597 


BAL 


RTN.SINSRT 


i70R 


0766 


1598 


XHR 


KEY, KEY 


JZR 


411 
OCDAR 


1599 


HAL 


RJN,SFIND 


i76R 


0855 


1600 


LHR 


NOX.NOX 


*78R 


4330 
0A88H 


1601 


Li^ 


CDFGO 


>7CR 


45A5 
0006 


1602 


CLH 


DEF,6(NDX) 


kSOR 


4380 

0A88R 


1603 


BNL 


CDFGO 


»84R 


40A5 
0001=. 


1604 


STH 


DEF,6(N0X) 


*88K 


4850 
1026i' 


1605 


CDFGO LH 


NOX.STOP 


18CK 


Q86E 


1606 


CDF&3 LHR 


KEY. TWO 


18ER 


4110 
OCDER 


1607 


BAL 


RTN.CFIND 


k92R 


0855 


1608 


LHR 


NUX.NDX 


»94R 


4330 
0824K 


1609 


HI 


NEWITM 


*98R 


4BB5 
0006 


1610 


LH 


REF.6CNDX) 


k9CR 


C860 
0007 


1611 


LHI 


KEY, 7 


»A0R 


4110 

0D50R 


1612 


BAL 


RTN,TINSRT 


\*HH 


4110 

08B0R 


1613 


BAL 


RTN.CDCN 


*A8R 


4300 
0A8CI 


1614 


B 


CDFS3 






1653 


IF 


1 






1654 


* LOG PROGRAM 


-LABEL 


»ACR 


4110 
0C1AR 


1655 


CLAB BAL 


RTN.SFETCH 


kBOR 


4800 
0FF2H 


1656 


LH 


PAR, BIAS 


VB4R 


0766 


1657 


XHR 


KEY.KLY 


\B6R 


4110 
0D18R 


1658 


BAL 


RTN,sINSRT 


>BAR 


4300 
0824K 


1659 


U 


NEWITM 
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IGNORE THIS CONTROL-ITEM COMPLETELY, 



IF NOT HULTI-DEFINED, ADD IT TO TABLE 
AS A DEF AND THEN LOOK FOR HATCHING 

NAME. IF WE FIND ONE 



SET ITS ADDRESS TO REF 



AND GO LOOK FOR MATCHING 
REFS. 



NO MORE REFS, WE'RE OONLl 

REF FOUND, FETCH VALUE 

CHANGE TABLE-ENTRY TO NULL (KEY=7) 

TO BE REPLACED BY ANOTHER SlNSRT.. 

DEFINE THIS REF'S CHAIN 



MOVE PROGRAM-LABEL TO SYMBUS 

VALUE IS CURRENT BIAS 

KEY IS ZERO 

INSERT PROGRAM LABEL 



OSL15860 

OSL15870 

OSL15880 

0SL15890 

OSL15900 

OSL15910 

OSL15920 
OSL15930 

OSL15940 
OSL15950 

OSL15960 
OSL15970 

OSL15980 

OSL15990 

OSL16000 

OSL16010 

OSL16020 
OSL16030 

OSL16040 
OSL16050 

OSL16060 

OSL16070 

OSL 16080 

OSL16090 

OSL16100 

OSL16490 
OSL16500 
OSL16510 

OSL16520 

OSL16530 
OSL 1654 

OSL16550 



INTLRDATA OS LIBRARY LOADER 



03-030R04A13 
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1660 * DEFINE COMMON-BLOCK 



OABER 4H0 


1661 CWOEF BAL 


RTN,SFETCH 


0C1AR 








0AC2R 4110 


1662 


BAL 


RTN.OFETCH 


QC54R 








0AC6R 4040 


1663 


STH 


ARG,TMP2 


1004R 








OACAR C860 


1664 


LH! 


KEYt3 


0003 








OACER mio 


1665 


BAL 


RTN.SFINd 


OCOAR 








0AD2R 0855 


1666 


LHR 


NOX,NQX 


0AO4R 4230 


1667 


BNZ 


NEWITM 


0824R 








0AD8R C820 


1668 


1 LHI 


ACl,C«//« 


2F2F 








OADCR 4520 


1669 


CLH 


ACl f SYMBUF 


11B0R 








OAEOR 4230 


1670 


BNE 


CMDl 


0B04R 








OAE'+R C820 


1671 


LHI 


AC1.C • 


2020 








0AE8R 4520 


1672 


clm 


AC1.SYMBUF+2 


11B2K 








OAECR 4230 


1673 


BNE 


CMDl 


0B04R 








OAFOR 4520 


1674 


CLH 


AC1.SYMBUF+4 


11B4R 








0AK4R 4230 


1675 


BNE 


CMDl 


0B04R 








0AF8R 40E0 


1676 


STH 


TWO.BCFLG 


1018H 








OAFCH 4800 


1677 


LH 


PAR,BCMBOT 


1022R 








OBOOR 4300 


1678 


B 


CMD2 


0B08R 








0B04R 4800 


1679 CMD1 LH 


PAR.LCMTOP 


1028R 








0B08R 4000 


1680 CHD2 STH 


PAR.TMP1 


1002R 








OBOCR 4110 


1681 


BAL 


RTN.S1NSRT 


0D18R 








0B10R 4800 


1682 


LH 


PAR.TMP1 


1002K 








0B14R 4AO0 


1683 


ah 


PAR.TMP2 


10 04K 








0B18R 4280 


1684 


BC 


MFULL 


0EF8R 








0B1CR 4500 


1685 


CLH 


PAR.TOC 


OFEAR 








0H20R 4330 


1686 


BE 


•+8 


UB28R 








0B24R 4380 


1687 


BNL 


MFULL 


0EF8R 








0B28R 4820 


1688 


LH 


ACl.BCFLG 


1018R 









FETCH SYMBOL iNAME OF BLOCK) 
FETCH BLOCK-LENGTH 



IF THIS BLOCK IS ALREAuY DEFINED. 

IGNORE THIS DEFINITION ANO LET PREV- 
IOUSLY-DEFINED BLOCK STAND. 

IF NAME OF BLOCK IS 

. "//. . » SET BCFLG AND FETCH 

TOC RATHER THAN COMTOP TO DEFIND 

THE BLOCK. THIS PUTS BLANK COMMON 

AT THE TOP OF CORE WITH ROOM TO 

GROW LATER IN THE LOAD, 



OTHERWISE, INSERT SYMBOL 



AND BUMP TOP OF COMMON 



TEST FOR MEMORY FULL 



INTERDATA 


OS LIBRARY LOADER 


03-030R04AI 


12CR 4230 


1689 




BNZ 


CMD3 


0B38R 
I30R 4000 


1690 




STH 


PARtLCMTOP 


1028R 
I31R 4300 

0B24R 
I38R 40C0 


1691 
1692 


CMD3 


B 
STH 


NLWITM 
ZRO,BCFLG 


1018R 
I3CR 4500 


1693 




CLH 


PAR.LCMBOT 


1026K 
I40R '♦330 


1694 




bt 


»+8 


0B48R 
144R 4380 


169b 




BNL 


MFULL 


0EF8R 
*48R 4500 


1696 




CLH 


PAR,BCMTOP 


1024R 
14CR 4280 


1697 




ML 


NtWITM 


082«tR 
)SOR HOOO 


1698 




STH 


PAR.BCMTOP 


1024R 
554R 4300 


1699 




b 


NEWITM 


G824R 
358R 4110 


1700 
1701 


* REFERENCE COMMON-BLOCK 
CMREF BAL RTN,SFETCH 


0C1AR 
35CR C860 


1702 




LHI 


KEY, 3 


0003 
360R mio 


1703 




BAL 


RTN.SFINp 


OCDAK 
164R i+llO 


1704 




BAL 


RTN.DFETCH 


0C54K 
368R 0855 
}6AR 4330 


1705 
1706 




LHR 

bz 


NuX,NU* 
CMREF1 


0B78R 
16ER 48A5 


1707 




LH 


DEF,6(NDX) 


0006 
372R 0AA4 
374R 4300 


1708 
1709 




AHR 

B 


OEF.ARG 

NEWITM 


0824R 
378R 086E 
37AR 4110 


1710 
1711 


CMHE.Fl 


LHR 
BAL 


KEY, TWO 
RTN,SINSRT 


0018R 
37ER 4300 


1712 




B 


NEWITM 


0824R 
382R 40D0 


1713 
1714 


* BLOCK 
CM2DA 


-DATA 

STH 


(LOAD COMMON) 
ONE.CMFLG 


1016R 
B86R 

R86R 4110 


1715 
1719 

1720 


CM1DA 


EQU 

IF 

BAL 


* 
1 
RTN.SFETCH 


0C1AR 
H8AR CBfcO 


1721 




LHI 


KEY, 3 


0003 
B8ER 4110 


1722 




BAL 


RTN.SFIND 


OCDAR 
B92R 4110 


1723 




BAL 


RTN,UFETCH 
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move symbol to symbuf 

find common-def matching nawt. 

fetch displacement value 

if no such definition, inslrt 
symbol as a ref. this causes it to 

appear as undefined in the map. 

else, load effective definition-adrs 
adding the displacement to the 

bottom-address of the block, 



MOVE NAME OF BLOCK TO SYMBUF 

FIND MATCHING DEF-COM IN TABLE. 
FETCH DISPLACEMENT 



OSL168S0 

OSL16860 

OSL16870 

OSL16880 

OSL16890 

OSL16900 

OSL16910 

OSL16920 

OSL16930 

OSL16940 

OSL16950 

OSL1&960 
0SL16970 

OSL16980 

OSL16990 

OSL17000 

OSL17010 
OSL17020 

OSL17030 

OSL17040 
OSL17050 

OSL17060 
OSL17070 

OSL17080 

OSL17090 
OSL17100 

OSL17110 
OSL17150 
OSL17160 

OSL17I7G 

OSL17180 

OSL17190 



INTERDATA OS LIBRARY LOADER 



Q3-SL3QR04A13 
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0C54R 








0B96R 


0855 


1724 


LHR 


ND.X.NPX 


0898R 


4330 

0BD2R 


1725 


B2 


CM10A2 


0B9CR 


4355 
0006 


1726 


LH 


N0X.61NDX1 


OBAOR 


0A54 


1727 


AHR 


NOX.ARG 


0BA2R 


4110 
0C54R 


1728 


8AL 


RTN.DFETCH 


0BA6R 


4830 
1016R 


1729 


LH 


AC2.CMFLG 


OBAAR 


4330 
0BC8R 


1730 


a* 


CmiOAl 


OBAER 


4040 
1002R 


1731 


STH 


ARG.TMP1 


OQB2R 


4110 
0C54R 


1732 


bAL 


RTN.UFETCH 


OBB6R 


0834 


1733 


LHR 


AC2.ARG 


OBB8R 


4820 
1002R 


1734 


LH 


AC1.TMP1 


OBBCR 


4110 

ooeoK 


1735 


BAL 


RTN.MFW 


OUCOR 


40C0 
1016R 


1736 


STH 


ZRO,CMFLG 


0HC4R 


4300 
0824K 


1737 


B 


NEUITM 


0BC8R 


0824 


1738 CM1DA1 


LHR 


AC1.ARG 


08CAR 


4110 

0U84R 


1739 


BAL 


RTN.MHW 


ORCER 


4300 

0824R 


1740 


B 


NEWITH 


OBD2R 


4820 

1016R 


1741 CM1QA2 


LH 


ACl»CnFL,fi 


0BD6R 


4330 
0BE2R 


1742 


tiZ 


CH10A3 


OBDAR 


40C0 
1016R 


1743 


STH 


ZRO.CMFLG 


OBDER 


4110 

0C54R 


1744 


BAL 


RTN.UFETCH 


OBL2R 


4110 
0C54R 


174b CH1DA3 


BAL 


RTN.UFETCH 


0BE6R 


4300 
0B78R 


1746 
1747 * 


B 


CMREF1 


OBEAR 


0799 


1748 CMSEG 


XHR 


StQ.SLB 


ORECR 


0301 


1749 


BK 


RTN 



1£JWLJ&U£H BLOCK EQUMU INSERT L.JNAWL 
AS A REF TO SHOW AS UNDEFINED SYMBOL 

XALMLUQAIL-MAP.. 

BUMP BLOCK-LOCATION BY DISPLACEMENT 
FELTCH DATA 

CMFLG INDICATES FULLWORD/HALFWORU 



CALL TXXT-MOVER TO PUT TEXT INTO 
CORE OR OUTPUT BUFFER 



RESET SEQUENCE-NR 

AND FETCH NEW DIRECTIVE 



-QSLU2 
OSL172 

.QSL-172 

0SL172 
QSL172 

0SL172 

OSL172 

0SL172 

0SL172 

0SL172 
0SL173 

0SL173 

0SL173 

OSL173 

0SL173 
0SL173 

0SL173 

OSL173 

0SL173i 

0SL173' 

0SL174I 

0SL174: 

OSL174I 

0SL174; 
0SL174< 
0SL174! 
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BELR 

BF2H 

BF6R 
4F8R 
*FAR 

3FER 

C02R 

C06R 

:oar 
:ocr 

ZOLH 

:ior 

C14R 
C16R 
C18R 

ClAR 

C1E.R 

:aoR 

:24r 
:2feR 

:2ar 

:2ER 
:30R 

:3tR 

:38R 
:3AR 
:3CR 

;hor 
;<*2R 



cbeo 

O0D0 

1280 

OBFAK 

0700 

0301 

cceo 

0001 

0306 

1248K 

438Q 

0C1OK 

C400 

OOOF 

0A8D 

0A86 

0301 

ccoo 

0004 
0A66 
OA60 
0301 

4010 

0C42K 

0722 

•♦110 

OUEER 

0830 

4110 

OBEER 

CD30 

0004 

0630 

C430 

007F 

D232 

11B0R 

0A2D 

052F 

4280 

0C20R 

4300 

0000 



:44R 4830 
101CR 

:48R 4330 
QC56R 

:4CR 4830 
0FF2R 

:50R 4300 



1751 * LOADER SERVICE-ROUTI ES 

1752 * 

1753 * THIS R0UT1NL CALLED TO FETCH NEXT 4-BIT ITEM FROM BUFFER AND BUMP 

1754 FETCH CLHI ITM, 208 IF ITM AT OR PAST END OF BUFFER, 



1755 

1756 
1757 
1758 FT1 

1759 

1760 

1761 

1762 
1763 
1764 
1765 FT2 



1771 

1772 SFEl 

1773 
1774 

1775 

1776 
1777 

1778 

17 79 

1780 
1781 

1782 



BL 

XHR 

BR 

SRHL 

LB 

BFC 

NHI 

AHR 
AHR 

BR 



FT1 



RETURN ZERO IN PAR. THIS CAUSES 
DECODER TO READ-NEXT-RECORD 
DIVIDE ITM TO INDEX BYTE ADDRESS. 
PAR,BUF+4(ITM) FETCH BYTE (TWO ITEMS) ITEM POINTER 



PAR, PAR 

RTN 

ITM,1 



8,FT2 

Par, 15 

ITM, ONE 
ITM, ITM 
RTN 



SRHL PAR, 4 



1766 AhR 

1767 AHR 

1768 BR 

1769 * 

1770 SFETCH STH 



XHR 
BAL 

LHR 
BAL 



ITM, ITM 
ITM, ONE 
RTN 

RTN,SFE2 

ACl, ACl 
RTN, FETCH 

AC2,PAR 
RTN, FETCH 



SLHL AC2,4 



OHR 
NHI 

STB 



AC2.PAR 
AC2,X«7F« 



(ITM BIT 151 IS IN C FLAG, 
IF 1, MASK FIRST ITEM OUT. 
AND BUMP ITM 

IF 0, SHIFT SECOND ITEM OUT 
AND BUMP ITM 

MOVt SIX-BYTE SYMBOL TO SYMrsUF 

ACl yO BE USED TO COuNt BYTES MOVED 
FETCH FIRST HALF-BYTE 

SAVE IT IN AC2 

FETCH SECOND HALF -BYTE 

PUT TOGETHER A FULL BYTE IN AC2 

AND HOVE IT TO SYMBUF 
MASK TO 7-BIT ASCII 



AC2,SYMBUF(AC1) ITJDExED BY ACl 



AHR ACl, ONE 
CLHR ACl, SIX 
Bl SFEl 



ERU 



1783 SFL2 

1784 * 

1785 RFETCH LH 



1786 
1787 
1788 



til 
LH 
B 





AC2,RELFLG 
DFE1 

AC2,BIAS 
DFE1 



BUMP ACl AND TEST IF SYMBUF IS 
NOT FILLED, 50 AND GET ANOTHER 
BYTE. WHEN SYMBUF IS FILLED, 

RETURN TO CALLER 



MOVE A HW To ARG, ADDING BIAS IF 
RELFLG SET, IF RELFLG IS NOT SET, 
DON'T ADD BIAS. BIAS OR ZERO IS 
LEFT IN AC£ 



OSL17470 
OSL17460 

ITM 0SL1749C 
OSL17500 

OSL17510 

OSL17520 
OSL17530 
OSL17540 

OSL17550 

OSL17560 

OSL17570 

OSL17580 
OSL17590 
OSL17600 
OSL17610 

OSL17620 
0SL17630 
OSL17640 
OSL17650 
OSL17660 

OSL17670 
OSL17680 

OSL17690 
OSL17700 

0SL1771U 

OSL17720 
0SL17730 

OSL17740 

0SL17750 
OSL17760 
OSL17770 

OSL17780 

OSL17790 
OSL17800 
OSL17810 

OSL1782U 

OSL17830 

OSL17640 
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0C54R 
OC56R 

0C5AR 
0C5CR 

OC60R 
0C64R 

OC68R 
0C6AR 
0C6CR 

0C70R 
0C72R 

0C74R 

0C76R 

0C7AR 

OC7ER 

OC82K 

OC86R 
OC86R 

OCaCR 

QC90R 
OC90R 



UCbfeR 

U733 

4010 

0C74R 

0744 

C820 

0004 

<*110 

UbEF.R 

C04Q 

0004 

0640 

0B2D 

4230 

0C60R 

0A43 

4300 

0000 



OCAOR 

0CA4R 
0CA4R 
0CA6R 

OCAAIC 

QCAER 
OCBOk 

0CB4R 



4020 

1138R 

4030 

113AR 

EllO 

1134R 

4820 

1136K 

0311 

E120 

OC90R 

4300 

UFCER 

0007 
0006 
2049 
2F4F 
2044 
4556 
2045 
5252 

4850 
1026R 

0700 

CB50 

0008 

<<550 

0FF6R 

0281 

4825 

0000 

4310 



1789 * 

1790 DFCTCH 

1791 DFE1 

1792 
1793 

1794 DFL2 

1795 

1796 
1797 
1798 

1799 
1800 

1801 UFE3 

1802 * 

1803 MLOG 

1804 

1805 MLOGi 

1806 

1807 
1808 

1809 

1810 ML0G2 
1811 



XHR 
STH 

XHR 
LHI 

UAL 

SLHL 

OHR 
SHR 

BNZ 

AHR 
b 

EQU 

STH 

STH 

SVC 

LH 

BNMR 
SVC 



EQU 
DC 



AC2.AC2 
RTN.DFE3 

ARG,ARG 
AC1.4 

RTN, FETCH 

ARG.4 

ARG.PAR 
AC It ONE 
0FE2 

ARG,AC2 


*-2 

AC1,MAPL0 

AC2.MAPHI 

1»MAP0EV 

ACl.MApOEV+2 

RTN 
2i**B 

CKDEV 



MOVE A HW TO ARG, ADD CONTENTS OF 
AC2. AC2 ZEROED BY CALLING OFETCH 

OR BY CALLING RFETCH WHEN RELFLG IS 
NOT SET. AC1 COUNTS FOUR HALF-BYTES 

MOVED. FETCH HALF-BYTE 

MOVE IT INTO ARG 

AND LOOP BACK UNTIL A HALF-WORD 
HAS BEEN MOVED. 

ADD ZERO OH BIAS (SEE ABOVE) 
AND RETURN TO CALLER. 



LOGS MAP-MESSAGES... FBA IN AC1, l«A 
IN AC2, MAP-OEVICE (LUj IN MAPDEV+1. 

FETCH OUTPUT CALL-STATUS 
IF OKAY, RETURN 



7,11»C» I/O OEV ERR» 



1812 ^SEARCHES TABLE FOR ENTRY MATCHING KEY. FOR EACH ONE FOUND, RETURNS 

IF NONE FOUND, RETURN+4. TO FIND MORE 



1813 TSRCH LH 



1814 CSRCH 

1815 CSO 
1816 

1817 

1816 
1819 

1820 



EQU 
XHR 
SHI 



NOX.STOP 



PAR, PAR 
NDX,8 



ClH NDX, SHOT 



bLR 

LH 



RTN 
AC1,0(NDXI 



BNM CS1 



CALL CSRCH. ON EXITS, NDX POINTS AT 
ANOTHER SYMBOL AT CSO 

HOT OF FOUNO LWTRY. IF EXIT+4. NDX 

EQUALS SflDT 

FETCH SYMBOL AND ASSEMBLE KEY IN PAR 

ADD 1 TO PAR FOR FIRST HW, 



ir. 


ITERDaTa 
OCPAH 


OS LH 


iRARY LC 


)AOER 


03-030R02 


:bbr 


OAOO 


1821 




AHR 


PAR, ONE 


:bar 


4825 
0002 


1622 


CS1 


LH 


AC1,2(N0X) 


CBLR 


4310 
0CC4W 


1823 




UNM 


CS2 


CC2R 


OAOE 


1824 




AHR 


PAR, TWO 


CC4R 


4625 
0004 


1825 


CS2 


LH 


AC1,4(NDX) 


CCRR 


4310 
OCDOR 


1826 




UNM 


CS3 


CCCH 


CAOO 
0004 


1827 




AHI 


PAR, 4 


COOK 


0506 


1828 


CS3 


CLHR 


PAR, KEY 


CD2K 


4331 
0004 


1029 




UL 


4 (HTM) 


CD6R 


4300 
0CA4R 


1830 
1631 


* 


ti 


CSO 


CDAR 


4850 
1026K 


1832 


SF1ND 


LH 


NOX,STOP 


CDEK 


4010 
ODOAK 


1833 


CFiNO 


STH 


RTN.SFI4 


CE2R 


4110 
0CA4R 


1834 


SFIl 


BAL 


RTN,CSRCH 


CE6R 


4300 
0D12H 


183b 




B 


SFI6 


CEAR 


0722 


183b 




XHR 


AC1,AC1 


CECR 


4835 
0000 


1637 


SFI2 


LH 


AC2.01N0X) 


CFOR 


C430 
7FFF 


1838 




NHI 


AC2»X , 7FFF» 


CF4R 


4532 
11B0K 


1839 




CLH 


AC2,SYMBUF(AC1) 


CF8R 


4230 
OUOCR 


184 




BNE 


SFI5 


CFCR 


0A2E 


1841 




AHR 


AC1»TW0 


CFER 


0A5E 


1842 




AHR 


NDX,TWO 


nooR 


052F 


1843 




CLHR 


AC1.SIX 


D02R 


4280 
OCECK 


1844 




HL 


SFI? 


006R 


0B5F 


1845 




SHR 


NUX.SIX 


OOSR 


4300 
0000 


1846 


SFI3 


B 





DOAR 




1847 


SFI4 


EQU 


*-2 


OOCR 


0U52 


1848 


SF15 


SHR 


NDX,AC1 


DOER 


4300 
0CE2R 


1649 




B 


SFU 


012R 


0755 


1850 


SFI6 


XHR 


ndx,ndx 


014R 


4300 

0D08R 


1851 




B 


SFI3 






1852 


* INSERT A SYMBOL IN TABLEt W 


018R 


4010 
0D7ER 


1853 


SINSRT 


STH 


RTN,TINH 


D1CR 


0846 


1854 




LHR 


ARG,KEY 


niER 


C860 


1855 




LHI 


KEY, 7 



ll3 PAGE 40 

ADD 2 FOR SECOND, AND 
ADD 4 FOR THIRO IF RESPECTIVE KEY- 
BITS ARE SET. THUS BY CS3, ACl 
CONTAINS BINARY VALUE OF KEY (0-7) 



DOES KEY I1ATCH? EXIT TO CALL + 6 

NO, THEN BUMP NOX AND KETUKM TO FIND 



CALL SFIND TO LOOK FOR A SYMBOL WITH 
KEY MATCHING KEY AND SYMBOL MATCHING 
SYHBUF. ON RETURN NOX POINTS AT THE 
FOUND MATCH. IF NO MaTcH IS FOUND, 
RETuRN IS MADE wITH NDx ZERO. 

CALL CFIND TO CONTINUE LOOKING 

FETCH HW AT A TIME FHOM TABLE. MASK 

OFF KEY (MSB) AND COMPARE WITH NEXT 
HW OF SYMBUT. IF NO MATCH, GET 
ANOTHER SYMBOL. IF THEY MATCH, RESET 
NDX TO SYMBOL AND EXIT TO CALLER. 



IF NO MATCH FOUND* ZERO NDX 



CALL SINSRT, OR TINSRT 



KEY IS IN KEY 
VALUE IS IN PAR 



0SLldl70 
0SL18160 

OSL10190 

OSL18200 
OSL18210 

OSL16220 

OSL18230 

OSL18240 
0SL18250 

0SL1026U 

OSL18270 
OSL18280 

OSL16290 

OSL18300 

OSL18310 

OSL18320 
OSL18330 

OSL18340 

OSL16350 

0SL1836U 

OSL18370 
OSL18380 
OSL18390 
OSL18400 

OSL18410 
OSL18420 

OSL18430 
OSL18440 
OSL18450 

OSL18460 
OSL18470 

OSL18480 

OSL 16490 

0SL18500 
0SL16510 
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0U22K 
0D24R 

0U2HR 

0O2CR 
002ER 
0D30R 

0Q34R 

0D38R 

003CR 

ODHOK 

0D44R 

0D46R 

004CR 

0D50R 

0D54R 

0D58R 
0D5AR 

OObER 

0D62R 

OD66R 

OD6AR 

0O6ER 
0D70R 
OD72R 
0D7i»R 

0D78R 
OD7AR 
0D7CR 

0O7ER 



0007 

Of) 30 

'4110 

UCAOH 

4050 

0FF6H 

0803 

0864 

4820 

OFTAK 

4230 

0D44R 

4550 

0FF4R 

4380 

0U54R 

4300 

0EF8R 

C550 

131BR 

4380 

0U54K 

4300 

0EF8R 

4010 

007ER 

4035 

0006 

0733 

4823 

11B0R 

CC60 

0001 

4380 

006AR 

C620 

8000 

4025 

0000 

0A3E 

0A5E 

053F 

4280 

005AK 

0B5F 

0064 

4300 

0000 



0D80K 40EO 
1014R 

QD84R 4010 
0DD6R 

0088R i*800 
OFFAR 



1856 
1857 

1858 

1859 
1860 
1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 
1872 

1873 

1874 

1875 

1876 

1877 
1876 
1879 
1880 

1881 
1882 
1083 

1884 
1885 
1886 

1887 

1888 



LHK 

BAL 



AC2.PAR 

RTN.TSRCH 



STH NUX.SBOT 



LHR 
LHR 
LH 

BNZ 

CLH 

BNL 

b 

SIN1 CLHI 

BNL 

b 

TINSRT STH 

TIN1 STH 



XmR 
TIN2 LH 

SKHL 

BFC 

OHI 

TIN3 STH 

AHR 
AHR 
CLHR 
BL 

SHR 
LHR 
B 

TIN4 LOU 
* TEXT-HOVER 

MFW STH 



MHW 



STH 

LH 



HAR.AC2 
KEY.ARG 
ACl, OUTFLG 

SINl 

NOX.PTOP 

TIN1 

MFULL 

NDX.OBUF+107 

TIM 

MFULL 

RTN,TlN«t 

AC2t6<N0X) 

AC2.AC2 
AC1,SYMBUF(AC2) 

KEY.X 

8.TIN3 

AC1,X'8000» 

AC1.0 1NDX) 

AC2,TWO 
UDX.TWQ 
AC2.SIX 
TIN2 

NUX.SIX 
KLY.ARG 


*-2 
ROUTINES 
TWO.FWFlG 

RTN.MHWR 
PAR, OUTFLG 



SAVE (PAR) 

SYMBOL IS IN SYMMUF 

IF NEW ENTRY, RESET SHOT 

RESTORE IPAR) 

TINSRT MOVES SYMBOL TO TABLE WHERE 
IF OUTFLG, KEEP STAB FROM OVER- 
LAPPING THE. OUTPUT BUFFER, ON LOAD 
KEEP IT FROM BELOW PTOP. 



AVAILABLE SLOT 

saved <PaR) is symbol-value in table 



CALL MFW TO MOVE FULLWORO, MHW FOR A 
HALFWORO. IF OUTFLG IS SET, TEXT IS 
PACKED INTO OUTPUT BUFFER. AC1 ANO 



INTERnATA 


OS LIBRARY I 


uOAULR 


03-0 


D8CR 


4230 
QDD8R 


1889 




BNZ 


MHW2 


390R 


4550 
0FF6R 


1890 




CLH 


NOX.SbOT 


394R 


4280 
OOAOR 


1091 




UL 


MwT2 


098R 


4550 
1026R 


1892 




CLH 


NDX.STOP 


D9CR 


4280 
0EF8H 


1893 




BL 


MFULL 


DAOR 


C550 
131CR 


1894 


MWT2 


CLH I 


NQX.PBOT 


OA4R 


4280 
OFOOR 


lfa95 




BL 


AOER 


DA8R 


4025 
0000 


14*96 




STH 


ACl.O(NDX) 


UACR 


4820 
1014R 


1B97 




Llf 


ACliFWFLO 


□ BOR 


4330 
ODCAR 


1898 




BZ 


HHWl 


DB4R 


0A5E 


1899 




AMR 


NDX.TWO 


DB6R 


4550 
0FF6R 


1900 




CLH 


NOX.SBOT 


OBAR 


4280 
0DC6R 


1901 




BL 


MWT25 


OBER 


4550 
1026R 


19Q2 




CLH 


NOX,STOP 


DC2H 


4280 
0EF8K 


1903 




BL 


MFULL 


0C6R 


4035 
0000 


1904 


«WT25 


STH 


AC2,0«NDX) 


DCAR 


0A5E 


1905 


MHWl 


AHR 


NDXiTWG 


DCCR 


40C0 
1014K 


190fo 




STH 


ZRO.FWFLG 


ODOR 


4050 
101AR 


1907 




STH 


NDX.OLOC 


0D4R 


4300 
0OD4K 


1908 




B 


* 


0U6R 




1909 


MHWR 


LQU 


*-2 


DD8R 


4550 
101AK 


1910 


MHW2 


CLH 


ndx.oloc 


DDCR 


4330 
OOFAH 


1911 




BE 


MHW5 


OEOR 


4020 

0UF4I' 


1912 




STH 


ACX.MHW3 


OE4R 


4030 
0DF8R 


1915 




STH 


AC2.MHW4 


0E6R 


0825 


1914 




LHR 


ACl.NUX 


DEAR 


C800 
0005 


1915 




LHI 


PAR.5 


DEER 


4110 

UE94H 


1916 




BAL 


RTN.OHW 


DF2R 


C820 

0DF2R 


1917 




LHI 


AC!,* 


DF4R 




1918 


MHW3 


LQU 


*-2 


DF6R 


C830 


1919 




LHI 


AC2,* 



\13 PAGE 42 

AC2 HOLD FIRST (AND SECOND) HU OF 
TEXT. IF LOADING. CHECK FOR OVERLAP 
WITH SYMBOL- TABLE. l AND MOVE TEXT 
BUT FIRST. 

TEST FOR OVERLAP WITH LOADER 
AND IF SO. STOP LOAD. 
CORE-LOCATION SPECIFIED IN NUX. 



MAKE SURE SECOND HW OOWNNT 
OVERLAP SYMBOL-TABLE 



BUMP NDX AND UPDATE OLOC. 



IF OUTPUTTING, SEE IF LOCATION-COUNT 
HAS BEEN MODIFIED. 

if so, save text <in regs aci and 

AC2) AND PACK OUT A LDA (CITM 5) 
AND NEW LOC VALUE. 

RESTORE ACI, AND AC2 



OSL18850 

osLiaafeO 

OSL18870 

OSL18880 

OSL18890 

OSL18900 

OSL18910 

OSL1P920 

OSL18930 

OSL18940 

OSL18950 
OSL16960 

OSL18970 

OSL16980 

OSL18990 

OSL19000 

OSL19010 
OSL19020 

OSL19030 

OSL19040 

OSL19050 
OSL19060 

OSL19070 

OSL19080 

OSH9090 

OSL19100 
OSL19110 

OSL19120 

0SL1913Q 

0SL1914U 
OSL19150 
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0DF8R 
OOFAR 



0UF6R 



ODFEH 

0E02R 

OE06R 

OEOAR 
OEOCR 

QE10R 

OEltH 

OE18R 

OE1CH 

OE20R 

0E24R 

0E26R 

OE2CR 

0E30K 

0E34R 

OE38R 
OE3AR 
OE3CR 

0E40R 

0E44H 
0E46R 

OEtAR 
0E4CR 

OE4ER 

0E52R 

0E54R 
0E56R 



4800 

4330 

OEXOR 

C800 

000A 

4110 

0E58K 

0A5E 

<+300 

OOCAR 

C800 

0008 

4110 

0E94R 

H300 

ODCAR 

C+00 

OOOF 

4050 

0E54R 

4650 

100ER 

CC50 

0001 

4280 

0C4QK 

COOO 

0004 

0205 

12B4R 

0A55 

0A5D 

4300 

0E4ER 
D345 

12B4R 

0604 

D205 

12B4R 

0A55 

0A5E 

4050 

100ER 

C850 

0E52R 

0301 



0E58R 4010 

0E92R 
0E5CR 4030 



1920 
1921 

1922 

1923 

1924 

1925 
1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 
1938 
1939 



MHW4 
MHW5 



LQU 
LH 

LHI 

BAL 

AHR 
B 



*-2 

PARiFWFLG 

MHW6 

PAR, 10 

RTN.OFW 

NDX. TWO 
MHW1 



PACK out either: 

CITM fl ANO A HALF WORD 
OR 

CITM A AND A FULLWORD 



MHW6 



OP A K 



LHI PAR, 8 

BAL RTN,OHW 

U MHWl 

NHI PAR»15 

STH NUX.0PAK3 

LH NUX.OITM 

SRHL NuX.l 

UTC 8.0PAK1 

SLHL PAR, 4 
STB 



call qpak to pack a h-bit item to 



AMR 
AHR 
B 



OBUF. FETCH OUTPUT HALF-BYTE POINTER 
SHIFT TO GET |iYT E -INT E X, C -FLA6 
IS HALF-BYTE POINTER 
IF EVEN, MOVE PAR INTO BYTE, UPPER 
PAR.OBUF+4CNOX) FOUR BITS 

RESTORE NDX AND BUMP. 



NDX,NOx 
NDX , ONE 
0PAK2 



1940 QPAK1 LB ARG.OBUF+4 (NDX J IF QQD» FETCH UPPER HALF-BYTE 



1941 

1942 

1943 
1944 
1945 

1946 

1947 
1948 
1949 
1950 
1951 
1952 

1953 



BUMP AND SAVE- -01 TM 



OHR PAR.ARG OR THEM TOGETHER 

STB PAR.0BUF+4 1N0X) AND MQV£ FULL-BYTE INTO BUFFER. 

AHR NDX, NDX 
AHR NDX, TWO 
OPAK2 STH NDX.OITM 

LHI NUX,* 

0PAK3 EQU *-2 
BR RTTJ 

* CALL OFW TO PACK a CITM ANO A FULLWORD TO OUTPUT HUFFFR 

• PAK HALDS CONT ITEM. AC1 AND AC2 HOLD FIRST AND SECOND HA L FW0RU S 
OFW STH RTN,OBYTE2 SAVE REURN-ADDRESS 



STH AC2.TMP2 



SAVE SECOND HW 
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1004K 
E60R 4020 
1002R 

zbUR C840 

0QC6 
L68R 4110 

OEAAK 
E6CR 0722 



E6ER 
E72R 

E76R 

E78R 

E7CR 

E80R 
E82R 

E86H 
E88R 

E8CR 

E90R 

E92R 



4110 

0E1CH 

0332 

1002? 

9303 

CCOO 

0004 

4110 

0E1CR 

9303 

4110 

0E1CR 

0A2O 

C520 

0004 

4280 

QE72R 

4300 

OE90R 



E94R 4010 

0E92R 
E98R 4020 

1004R 
E9CR C840 

OOCA 
EAOR 4110 

OEAAR 
EA4R 082E 
EA6R 4300 

0E6ER 

EAAR 4540 

100LK 
EAEH 0361 

EBOR 4840 
XOOCR 

IEB4R OB40 

EB6R 4040 
100CK 

lEBAR 4040 
12B0R 

lEBER C830 



1954 
1955 
1956 
1957 

i9ba 

19b9 



* 
PIT" 



1960 OBYTL 

1961 
1962 



1963 

1964 
1965 

1966 
1967 

1968 

1969 

1970 
1971 
1972 

1973 
1974 

1975 

1976 

1977 

1978 
1979 

1980 
19B1 

19B2 

1983 
1984 

198b 
1986 

1987 

1988 



STH ACltTflPl 

LHI ARG.198 

BAL RTN.OTST 

XHR AC1,AC1 

BAL RTN,OPAK 

LH AC2»TMP1(AC1) 

LBR PAR,AC2 

SRHL PAR, 4 



bAL 



RTNtOPAK 



LhR PAR,AC2 
BAL RTN.OPAK 



AHR 


ACl.ONE 


CLHI 


ACX.t 


HL 


OBYTt 


H 


* 


LQU 


*-2 



AND FIRST HW 

TEST IF ROOM FOR A FULLWORD IN OBUF 

OTST WILL OUTPUT OBUF IF NOT 

PACK THO CONTROL-ITEM 

FETCH NEXT DATA-BYTE (AC1 = BYTE NDX > 



PACK FIRST FUR-BITS 

AND SECOND FOUR-HITS OF THIS BYTE, 

BUMP BYTE-INDEX 

AND GET ANOTHER BYTE. 

WHEN ALL ARE OUTPUT, 

EXIT TO CALLER. 



0bYTt2 LQU 
* 

* CALL OHw TO PACK A CITM AND 

* PAR HALDS CONTROL-ITEM. AC1 
OHW STH RTN,0BYTE2 



STH 
LHI 

BAL 

LHR 
B 



ACl»TMP2 

ARG.202 

RTN,OTST 

AC1.TWO 
PITM 



A HALFWORD TO OBUF 
HOLDS HALF-WORD 
SAVE RETURN-ADDRESS 

SAVE DATA TO BE OUTPUT 

TEST IF ROOM FOR A HALF-WORD IN OBUF 

IF NOT, OtSt WRITES OUT THE BUFFER 

GO AND PACK IT OUT... 



OTST 



CLH ARG.OITM 

bNLR RTN 



OUTTXT LH 

SHR 
STH 

STH 

LHI 



AKG.OSEQ 

ARG.ONE 

ARG,OSEQ 

arg,obuf 

AC2.106 



CALL OUTTXT To WRITE OUTPUT BIFFER, 

DECREMENT SEQUENCE-NUMBER 
AND MOVE IT INTO OBUF 



OSL19SQ0 

OSL19510 

OSL19520 

0SL19530 
OSL19540 
OSL19550 

0SL19560 

OSL19370 

OSL19580 

OSH9590 

OSL19600 
OSL19610 

OSL19620 
OSL19630 

OSL19640 

OSL19650 

OSL19660 
OSL19670 
OSL19680 
OSL19690 
OSL19700 

OSL19710 

OSL19720 

0SL1973U 

OSL19740 
OSL19750 

OSL19760 
OSL19770 

OSL19760 
OSL19790 
OSL19800 

OSL19810 
OSLiy«2 

OSL19830 

OSL19B4Q 
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0EC2R 

0EC6R 

OECAR 
OECCR 

OEUOH 

OEUHR 

0ED8R 
OEDAR 

OEDER 

OEE2R 



006A 

CflfO 

FFFF 

4743 

12HOR 

OB3E 

4310 

OEC6R 

40«»0 

12B2R 

1110 

1204R 

0840 

4800 

1206R 

•♦230 

OFAAR 

0804 



0EE4R C830 

006A 
0EE8R 40C0 

100ER 
OEECR 40C3 

12B0R 
OEFOR 0b3E 
0EF2R 4310 

OEECH 
0EF6R 0301 



QEF8R 

OEFCR 

OFOOR 

0F04R 

0F08R 
OFOAR 

OFOER 

0F12R 

0F16R 

0F1AR 

OFlER 

0F22R 
0F24R 



E120 

10EEK 

1300 

OFCER 

"♦100 

OFOER 

E120 

120CR 

0307 

E120 

1124R 

D320 

11F0R 

D220 

1021R 

4300 

015AR 

4100 

OFDER 

I 120 

0F24R 

0301 

0007 

0006 

2044 



1989 

1990 

1991 
1992 

1993 
1994 

199b 
1996 

1997 

1998 
1999 
2000 

2001 

2002 

2003 
2004 

2005 
2006 
2007 
2008 

2009 

2010 

2011 

2012 
2013 

2014 

2015 

2016 

2017 

20lft 

2 019 
2020 



* 
ZOtjUF 



Z0B1 



LHI ARGt-1 

0T1 XH ARG.0BUFIAC2) 

SHR AC2.TW0 

BNM 0T1 

STH ARG,OBUF + i> 

SVC ltBOUTOV 

LHR ARG,PAR 

LH PARtBOUTDV+2 

BuZ INER2+4 

LHR PAR.ARG 

LHI AC2,106 

STH ZR0,0ITM 

STH ZR0,08UF(AC2) 

SHR AC2»TW0 

ONM Z0B1 

BR RTN 

SVC 2.HFM 

B CKOEV 

BAL PAR.CKTTY 

SVC 2.A0ERM 

BR RTX 

SVC 2tME0FS 

LB AC1.BINDV+1 

STB AC1.0LU+1 

B BSR 

MDU BAL PAR,CKTTY 

SVC 2.MDUS 

bR RTW 

MOUS OC 7,8,C DEV END' 



mpull 



ADER 



MEQF 



COMPUTE CHLCKSUli AND 
HOVE IT INTO OBUF+2 

WRITE OBUF ON BOUTDV 



AND THEN ZERO OUT BUFFER 



tOG MESSAGE ABOUT MtMORY-FULL 

ADDRESS -ERROR MESSAGE 

FETCH INPUT LU 

AND BACKSPACE IT OVER 

FIMAL EOF. 
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IF30R 

IF34R 

IF38R 

IF3CR 
IF311R 

IF42R 
IF44R 

IF48R 

IF4CR 

IF50R 

IF54R 

)F58R 

)F5CR 

)F60R 

)F64R 

1F66R 
1F6AH 

)F6tlR 
3F70R 

1F74R 

)F7BR 

3F7CR 

JF80R 

3F84R 

3F88R 
DF8AR 

3F8LR 

DF92R 
3F94R 

3F98R 



4SS6 

2045 

4L44 

LllO 

11FCI' 

•♦820 

UFER 

4310 

0F64*< 

0A22 

4210 

010AR 

0A22 

4210 

QF1AR 

CD20 

0002 

4280 

0F58R 

4210 

OFOAK 

4300 

0FA6K 

L120 

112CW 

E120 

101ER 

4300 

0F3QK 

C880 

006A 

0722 

4728 

1244R 

0B8E 

4310 

0F6AR 

C720 

FFFF 

4331 

0004 

E120 

1188R 

4100 

OFUEK 

e 120 

101EK 

0831 

4820 

11FCR 

4110 

015ER 

0813 

4300 

0F30R 

0899 



2021 LREAO 
2022 

2023 

2024 
2U25 

202fa 
2027 

2028 

2029 

2030 

2^31 

2032 MEOM 

2033 

2034 

203b CRN1 

2036 

2037 CKSM 

2 38 
2039 

2040 

2041 

2042 

20^3 CRN2 

2C44 

2045 
2046 

2047 

2048 
2049 

2050 1NER 



SvC ltUINDV 

LH AC1.BINDV+2 

L>NM CRN1 

AMR AC1.AC1 

bM CMOERR 

AHR AC1.AC1 

(>M MQU 

SLHL AC1.2 

UC MEOM 

BM MEOF 

B INER2 

SVC 2.ME0MS 

SVC 2, PAUSE 

B LREAU 

LHI ITM.106 

XHR ACl.ACl 

Xh ACl.BUF(ITM) 

ShR ITM.TWO 

BNK CKSM 

XHI ACi.-l 

BZ 4(RTN) 

SVC 2.MSCKSM 

BAL PAR.CKTTY 

SVC 2, PAUSE 

LHR AC2.RTN 

LH AC1.BINDV 

BAL RTN.BSR+4 

LHR RTN,AC2 

B LREAD 

LHR SEQtSEQ 



READ NEXT INPUT RECORD 

FETCH 10 STATUS AFTER READING 

IF NOT MINUS. REAO WAS OKAY 



EOM 
EOF 



RE TRY 

SET UP INDEX 

AND COMPUTE CHECKSUM. 
EXCLUSIVE-OR OF ZERO WITH 

EACH HALF-WORD OF BUFFER (INCLUDING 
THE HALF-WORD CONTAINING THE CHECK- 
SUM) AND -1 SHOULD PRODUCE ZERO. 



AND PAUSE... 



ON RESTART. READ AGAIN 



BACKSPACE INPUT IF MAG TAPE 

IF CKSuM IS OK, BUMP SEQuENCE-NuMBER 
CHECK IF kPAD. IN PROGRESS 



OSL20170 

OSL20180 

OSL20190 

OSL20200 
OSL20210 

OSL20220 
OSL20230 

OSL20240 

OSL20250 

OSL2026Q 

OSL20270 

OSL20280 

OSL20290 

OSL 2 300 

OSL20310 

OSL20320 
OSL20330 

OSL2034.. 
OSL20350 

OSL20360 

OSL20370 

OSL20380 

OSU20390 

OSL20400 

OSL20410 
OSL20420 

OSL20430 

OSL20440 
OSL20450 

OSL20H60 
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0F9AR 

0F9EK 

0FA2R 

0FA6R 

OFAAM 

OFAER 

0FB2R 

OFB6R 

OFBAR 

OFBER 

OFC2R 

OFCfeR 
OFC6R 

OFCAR 

OFCER 

OFCER 

OFD2R 

0FD6R 

OFDAR 

OFDER 

0FE2R 
OFE4R 

OFE6R 



4310 

OFCER 

LX20 

11E2M 

4300 

OFCER 

4800 

11FER 

E.120 

10FCR 

t-120 

0C90R 

E120 

OFFER 

•♦300 

0F98H 

E120 

10FCR 

E120 

0C90R 

E120 

OFFER 

E120 

101ER 

4300 

0014R 



faoo 

0656R 

•♦330 

0014R 

E12Q 

1240R 

4300 

0FC6R 

4640 

0656H 

0330 

E120 

1240R 

0300 



INEK2 



2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 



2062 PGO 
2063 



RPMSi, 



2064 



2065 CKOEV 



2066 
2067 
2068 



2069 

2070 

2071 

2072 CKTTY 

2073 
2074 

2075 
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CKDEV 
2.AULM 
CKDEV 

PAR.BINDV+2 
2.UNPAK 
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BNM 

SVC 

L) 

LH 

SVC 

SVC 

SVC 

u 

SVC 

SVC 

SVC 

LQU 
SVC 

B 

EQU * 
IF INPUT LU IS TTY ThEN GO TO LOADER 
OTHERWISE PAUSE BEFORE RETURNING TO LOADER 

LH PAR.TTYSWT 



2»HL0G2 

2. I OEM 

INER 

2,UNPAK 

2.ML0G2 

StIOEM 

2, PAUSE 
LOADER 



IF ERR STATUS, LOG 

"I/O DEV ERR" AND HEX STATUS, 

EXIJLVJA INER, TO TYPE 

"LOAD ABORTED" IF LOADING. 

EXIT TO LOADER. 

HEX STATUS 

•I/O ERROR • MSG 

HEX STAT OUT 

WAIT FOR DEVICE OK 
TRY AGAIN 



H2 

SVC 

B 

LH 

BZH 
SVC 

BR 



LOADER 

2.ECHO 

PGO 

ARG.TTYSWT 

PAR 
2, ECHO 

PAR 



OSL20* 
OSL20« 
OSL20' 
OSL20! 
OSL20! 

o.s.ua.o: 

OSL20! 

OSL20! 

OSL20' 

0SL20! 

OSL20" 

OSL20! 
OSL20! 

OSL20C 

OSL206 
OSL206 
OSL206 
OSL206 

OSL206 

QSL2Qfi 

OSL206 

0SL206 

OSL20G 
OSL207 

OSL207 
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0000 

0005 

0002 

0000 

131CR 

0000 

0000 

0000 

0000 

0000 

0007 

000«* 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0001 

0000 

0000 

0000 

0000 

0000 

0000 
0000 

0000 
0000 
0000 
0001 
0002 
0006 

4h52 

oiiew 

12t9 

OllfiR 
4455 

JOfeM 

4C43 

C136K 

4243 

013ER 

4F55 



2077 * LOADER CONSTANTS 

2078 * 

20 79 TOC UC 

2060 FETCH!' UC b.ACl 



2081 
2082 
2083 
2084 
208b 
2086 
2087 
2088 



2093 
2094 
209b 
2096 
2097 
2096 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
210b 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
211b 
2116 
2117 
2118 
2119 

2120 

2121 

212? 

2123 

212'+ 



PTR 

BIAS 

PTOP 

SUOT 

tOTFLG 

OUTFLG 

XFER 

I0EM 



UC 
UC 
UC 
UC 
DC 
DC 
UC 



2089 THP1 UC 

2090 TMP2 DC 

2091 SKP^LG UC 

2092 LOC DC 





PhOT 











7,4 




0.0 



OSES) UC 

OITW DC 

RLFLG DC 

MADA DC 

FWFLG DC 

CMFLG DC 

BCFLG DC 

OLOC DC 

RELFLG DC 

PAUSE DC 1 

OLU DC 

BCMBOT DC 

HCMTOP DC 

LCMBOT DC 

LCMTOP DC 

STOP EQU LCMBOT 

LABLEN DC 

BLKLEN DC 

COMBOT EQU BCMBOT 

SYMFLG DC 

SEQCON DC 

ZROCON DC 

ONECON DC 1 

TwOCON DC 2 

SIXCON DC 6 

* OPERATOR-COMMAND DECODER TABLE 

CKDTAB DC C'OR'.ORG SET BIAS (ORIGIN) 



UC C'BI'.ORG 

DC C»DU»,DUPER 

UC C'LC'.LABCOM 

DC C'BC'.BLKCOn 

UC C'OU'.OUT 



DUPLICATOR 

SET LENGTH OF LAB COMMON 
SET LENGTH OF BLANK COMMON 
OUTPUT TAPE 



OSL20730 
OSL2074Q 
OSL207br' 
OSL20760 

OSL20770 
OSL20780 
OSL20790 
0SL20800 
OSL20810 
OSL20820 
OSL20830 
OSL20640 

OSL20850 
OSL20660 
OSL20870 
OSL20880 

OSL20890 

OSL20900 

OSL20910 

OSL20920 

OSL20930 

OSL20940 

OSL20950 

OSL20960 

OSL20970 

OSL20980 

OSL20990 

OSL21000 

OSL21010 

OSL21020 

OSL2103CJ 

OSL2104 

0SL21050 

OSL21060 

OSL21070 

OSL21080 

OSL21090 

OSL21100 

OSL21110 

OSL21120 

OSL21130 

OSL21140 

OSL21150 

OSL21160 

0SL2117Q 

OSL211«0 
OSL21190 
OSL2120U 



INTEROATA 


OS L 




03D2R 




1052R 


584F 
03F6R 


2125 


1056R 


474F 

0438R 


2126 


105AR 


4D41 
0452R 


2127 


105ER 


4C49 
05DAR 


2128 


1062R 


4C4F 
058AR 


2129 


1066R 


4544 
05EER 


2130 


106AR 


52*5 

0424R 


2131 


106ER 


Hem 

0178R 


2132 


1072R 


4649 
01E6R 


2133 


1076R 


434F 

0280R 


2134 


107AH 


454F 
Q146K 


2135 


107LH 


b<+41 
0382R 


2136 


1082R 


454E 
063CR 


2137 


1086R 


4c47 

0640K 


2138 


108AR 


5041 
OFC6R 


2139 


1Q8ER 


414D 
044AR 


2140 


1092R 


544F 
061CR 


2141 
2142 


1096R 


4F56 
0658R 


2143 
21bl 


109AR 




2152 
2153 


109AR 


079ER 
FFFF 


2154 


109ER 


0872R 
FFFF 


2155 


10A2R 


OftBOR 
0000 


2156 


10A6R 


08FAR 
0000 


2157 


10AAR 


0922R 

0004 


2158 


10AER 


(moR 

0004 


2159 


10B2R 


0958R 
0004 


2160 


lOBfaR 


0962R 


2161 



OS LIBRARY LOADER 
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OVTAB 



ECMD 



CITTAB DC 



DC 


C'XO' 


.XOUT 


DC 


C'GO' 


,GO 


DC 


C'HA' 


.HAP 


DC 


C'LI- 


tLJNK 


Dt 


C'LOi 


,LOAD 


DC 


C'EO' 


.EDIT 


OC 


C'RE< 


.HEkIND 


DC 


C'LA' 


tLABOPT 


DC 


C»Fl« 


.FIND 


DC 


c»co« 


.COPY 


DC 


C'EO« 


.CWFM 


DC 


C«TA« 


.TABCON 


DC 


C«EN« 


.RETURN 


DC 


C'LG' 


.LOG 


DC 


C»PA« 


»PGO 


DC 


CAM' 


,AMAP 


DC 


C'TO' 


.TOPCOR 


IF 
DC 


DOS 
C'OVt 


,OVLY 


IF 1 
EQU * 

CONTROL-ITEM DLCOI 
DC CRNR.-l 


DC 


CEND. 


-1 


DC 


COCN. 





OC 


CTOG, 





OC 


CTJUU 


4 


DC 


CLDA, 


4 


DC 


CREFt 


4 


DC 


COEF . 


4 
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_DQM».I_ CilTPUT 

TRANSFER TO PROGRAM 

LIST MEMORY-MAP 

LINK-LOAD 

LOAD WITH PURGED TABLE 

CONDITIONAL LOAO 

REWIND FILE 

find a label 
copy a program 
write a file-mark 

TABlE-OF-CONTEnTS 
RETURN TO BOSS 
LOG COMMAND 
PAUSE COMMAND 
ALPHABETIZED MEMORY.MAP 
SET TOP-OF-CORE 

OVERLAY COMMAND 

TAB1.L 

READ NEXT RECORD 

1 EtUl -OF. PROGRAM 

2 DEFINE CHAIN 

3 TOGGLE MODE 

4 LOAD JCFER 

5 SET LOAO-ADDRESS 

6 LOAD REF-ADDRESS 

7 LOAD DEJF-ADDfiESS 



IfjTLRliATA OS LIBRARY LOAUI.H 
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OBAR 
OBLR 
0C2B 
0C6R 
OCAK 
OCER 
OD2R 
OD6R 



0004 

096CR 

0004 

0986H 

0004 

0996,1-! 

0008 

0992W 

08 

U9DCF-' 

OOOC 

0A38R 

OOOC 

0846R 

FFFF 

OAACi* 

OOOC 



OOAR OABER 

0010 
ODER 0H58K 

001P 
0E2R 0H86ti 

0014 
OEfcK 0B82K 

0016 
OEAR OHEAk 

FFFF 
.OEt-R 

OEER 0007 
0009 
204D 
454D 
2U46 
554C 
4C20 

.OFCR 0006 
1002K 

.lOOR 0007 
0008 
2043 
4041+ 
2D45 
5252 

LlOCR 0007 
013 
2A20 
2A20 
4E4F 

2050 

524F 
4752 
4140 
5320 
2A20 



2162 OC C1AB.4 8 1 HW ABSOLUTE TEXT 

2163 DC ClRLt4 9 1 HW RELATIVE TEXT 

2164 OC C2A8.8 A 2 hW ABSOLUTE TEXT 

2165 DC C2RL.8 B 2 HW RELATIVE TEXT 

2166 Ut CRFS.12 C REF-SYMBOL 

2167 UC CDFS,12 DEF-SYMBOL 

216S OC CCOM.-l E COMMON-PE-CODE FURTHER 

^16S DC CLAB.12 F LABEL-SYMBOL 

2170 * COMMON DECODE-TabLE FOR SECOND DIGIT FOLLOWING E ITLMS ABOVE 

2171 COMTAB OC ChDEF,16 EO DEFINE COMMON BLOCK 

2172 UC CMREF,16 El RLF-COMMON BLOCK 

2173 DC CM10A,20 E2 LOAD COMMON 1 HW 

2174 UC CM20A,24 E3 LOAD COMMON 2 HW 
217b U<_ CMSEu»-l E4 RLSET SEqUENCF-NR 

2176 COWLED LQU * 

2177 * PARAMETER-BLOCKS FOR ALL SUPERVISOR-CALLS: 

2178 MFM DC 7«9.C MEM-FULL' 



2179 UNPAK DC 

2180 CMtKR DC 



6.TMP1 

7.8. C CMO-ERR' 



2181 IJPR(, 



UC 



7.19.C* * NO PROGRAMS * *• 



OSL21580, 

OSL21590 

OSL21600 

OSL21610 

OSL21620 

OSL21630 

OSL21640 

OSL21650 

OSL21660 
OSL21670 

OSL21680 

0SL21690 

OSL21700 

OSL21710 

OSL21720 
OSL21730 
0SL21740 



OSL21750 
OSL21760 



OSL21770 
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1124R 



112CR 



113<4R 

1138R 
U3AR 
113CR 



1152k 



1162R 



117HR 



1182R 
1186H 



2A20 
0007 
000«f 
20<*5 
WtS 
0007 
000«* 
20H5 
4F4D 
2600 
0000 
0000 
0000 

ocoo 

0000 
0000 
0000 
0000 
0000 
2050 
52HF 
«»752 

533A 

OAOA 

20H5 

<*E5«t 

5259 

2D50 

4F49 

<tE5<* 

533A 

OAOA 

20*3 

HF»»0 

HD«»F 

HL2D 

H2«*C 

«*Ft3 

«*b53 

3A20 

OAOA 

2055 

<♦£«♦* 

<+5«*6 

"♦9HE 

45<t<* 

3A20 

20«»E 

<*F<»E 

H520 

0007 

0009 

2043 

HB53 

"♦020 



2162 HE.QES_._flC-. 7.A..C EOF' END OF FILE H-SSASr 



2183 MCOflS OC 7.t«C« EOH' 



2184 WA.>0_v OC 

2185 MAPLO OC 

2186 MAPHI OC 

2187 PRM5 OC 



WR-TE+wAlT.O 



X'OCQO'tQtQtOiQtOiC* PJW.6RAMS. • 



2188 EPMs DC X'OAOA'.C ENTRY-POINTS! • 



2189 CRMj, OC X'0A0A',C COMMON-BLOCKS: • 



2190 USMS DC X'OAOA'.C UNOEFINED.' 



2191 NWS OC O NONE' 



2192 MSCKSP! DC 7,9,C» CKSM ERR' 
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I'AGL .52 



L9feR 



IA2K 



1H0K 
lDfoR 



lBLK 



4552 
5220 
0007 
OOOfl 
2053 
•♦551 
2045 
5252 
0007 
0010 
2052 
4546. 
2D4C 
4F4F 
5020 

28Q0 

0000 
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*69 


479 


495 


5g5 


55Q 


2015 




ONE 


oooo 


277 


279 


300 


307 


308 


387 


*31 


432 


452 


540 


553 


572 


594 


61 






6ib 


627 


628 


634 


638 


639 


640 


643 


767 


1298 


1305 


1308 


1509 


153 






1550 


1579 


171* 


1762 


1767 


1779 


1797 


1821 


1938 


1966 


1985 








ONECON 


1034H 






























OPAK 


OElCR 


379 


384 


386 


39i 


393 


546 


1*31 


1959 


1963 


1965 










OPAK1 


0E40K 


1934 




























0PAK2 


0E4ER 


1939 




























0PAK3 


0E54R 


1931 




























OPND 


0666R 


746 




























ORG 


0118R 


2119 


2120 


























ORG1 


012AR 


33 C, 


332 


























0S16MT 


0000 


7o3 
1615 


789 
1716 


1299 
2144 


132Q 
2228 


1376 


1388 


1398 


1*36 


1*60 


1474 


1*91 


1530 


1561 


156 


OSEO 


IOOCk 


373 


542 


1984 


1986 






















OT1 


0EC6R 


1992 




























OTST 


OEAAK 


1429 


1956 


1977 
























OUT 


0302K 


2124 




























OUTFLG 


OFFAR 


331 


366 


540 


548 


720 


1396 


1409 


1*53 


1539 


1061 


1888 








OUTTXT 


OEBOR 


394 


557 


























OVLY 


0658k 


681 


2143 


























OVLY1 


0690k 


75«» 




























OVTAB 


1096K 


665 


755 


























PAR 


0000 


;>4b 


2 47 


250 


267 


267 


295 


296 


329 


329 


333 


334 


335 


339 


34 






347 


371 


372 


378 


382 


363 


385 


39o 


392 


402 


4o5 


*06 


406 


*1 






mo 


441 


442 


444 


445 


452 


454 


457 


462 


468 


469 


473 


477 


47 






479 


480 


481 


494 


495 


500 


512 


520 


521 


523 


524 


525 


527 


54 






553 


561 


563 


567 


568 


570 


576 


612 


613 


622 


625 


626 


632 


63 






63b 


637 


646 


655 


660 


662 


695 


696 


718 


724 


732 


733 


734 


73 






74 7 


748 


749 


77o 


771 


78q 


781 


1314 


1351 


1352 


1353 


1356 


1358 


136 






136b 


1371 


1423 


1426 


1*30 


1455 


1555 


1593 


1596 


1656 


1677 


1679 


1680 


168 






1683 


1685 


1690 


1693 


1696 


1698 


1756 


1756 


1759 


1761 


1765 


1773 


1776 


179 






1815 


1815 


1821 


1824 


1827 


1828 


1856 


1859 


1686 


1915 


1921 


1923 


1927 


193 






1935 


1936 


1941 


1942 


1961 


1962 


^196A 


i995 


1996 


1998 


2010 


2017 


2XJ43 


205 






2068 


2073 


2075 
























PAUSE 


101ER 


2033 


2044 


2063 
























PBOT 


131CR 


333 


568 


1894 


2082 






















PGO 


0FC6R 


2071 


2139 


























PITM 


0E6ER 


1979 




























PNF 


0256R 


411 




























PNF2 


026CR 


433 


436 


























PMFM 


0270R 


432 




























PPTP 


Q57EK 


657 




























PRGLOO 


0790H 


692 


711 


























PRMS 


113CR 


518 


519 


586 


587 






















PTOP 


0FF4R 


551 


662 


679 


765 


1374 


1392 


1*03 


1468 


I47n 


15?4 


i Ssii 


1 ft*,* 







1NTLRDATA OS LIUHARY LQAULN 



03-030K04A13 



fAGF f,n 



0582K 

0FFUi< 

400U 

0O0U 

101CK 

046AK 

063CK 

0424k 

OC44K 

101 UK 

OFbAK 

0001 



0007 

121Ak 

78bK 
FF6K 

06F6k 

0009 

103UR 

122A|< 

0C20K 

0C42H 

OClAK 

0CE2K 

OCECK 

0006K 

ODOAK 

ODOCh 

0D12K 

OCDAH 

0166R 

0044H 

ODlOK 

00 OF 

103dK 

lOObH 

oeoAR 

0020 
10?t>K 
0OU6R 
HB K 

102E-k 



2204 

1412 

UUb 

bSH 

21i7 

2131 

1451 

fo/to 

246 

237 

384 

itMb 

53.5 

621 

778 

142"+ 
l5lu 
1599 

17211 

1772 

1^24 

2045 

37 o 

6 59 

4{i6 

1277 

561 

753 

242 

3fer' 

1781 
177u 

533 
1845 
1844 
1051 
1833 
164 
183b 
1339 

374 
18b2 
1556 

3U4 

685 
131b 
27b 
5«2 
287 
263 
1669 
266 



22U5 

1413 

1443 

757 



1459 

15U9 

2215 

237 

386 

447 

536 

631 

784 

1427 

1512 

1&0? 

1722 

1774 

1928 

2047 

377 

660 

40? 

1280 

67q 

756 

2 4 2 

363 



1414 
1446 



1416 
1785 



1422 1473 1553 1555 1610 



1472 1494 
1513 1516 



277 

393 

461 

546 

663 

1306 

1431 

1529 

1613 

1728 

1794 

1952 

430 
711 
524 

752 



280 

394 

464 

554 

684 

1313 

1447 

1535 

1655 

1732 

1Q07 

1956 

485 

1397 

526 



285 

395 

466 

557 

685 

1326 

1451 

1542 

1658 

1735 

1818 

1959 

509 
1407 

527 



270 

391 

451 

543 

654 
1275 
1429 
1522 
1612 
1723 
1791 
1948 
2048 

396 

692 

408 

687 
762 
1298 1308 1345 1748 1748 2050 2050 



285 

398 

470 

559 

687 

1339 

1453 

1545 

1661 

1739 

1«29 

1963 

513 

2012 
561 



322 

401 

482 

57o 

688 

1350 

1*57 

1545 

1662 

1744 

1833 

1965 

5l«t 

562 



1326 1529 1578 1655 1661 l7ol 1720 



1535 1542 1580 1599 1665 1703 1722 
446 482 



323 

404 

483 

575 

691 

1354 

1459 

155|) 

1665 

1745 

1834 

1974 



563 



763 1245 1263 1817 1858 



346 

410 

488 

588 

698 

1362 

1472 

1556 

1681 

1749 

1853 

1977 



531 539 



696 

189 



357 

416 

496 

593 

700 

1385 

1494 

1559 

l7ol 
1757 
1857 
1982 

590 

697 

1*00 



374 

420 

511 

598 

709 

1394 

1498 

1578 

l7 3 

1764 

1869 

2005 

595 

698 



1597 1658 1681 
388 492 635 

1317 1342 1355 



1711 
642 



375 

426 

522 

603 

768 

I4i5 

1503 

1580 

1704 

1760 

ie87 

2019 

600 



701 1342 1423 1760 1843 1845 1879 1881 



379 

443 

529 

617 

774 

1421 

l5o5 

1597 

1711 

1770 

1916 

2041 

605 



fci.,8 766 776 1273 1&o5 1813 1832 1892 l9o2 

264 265 30& 38i 421 431 *89 534 535 1327 1330 1333 1588 

1672 1674 1778 1839 1872 

307 368 376 399 403 429 
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TAB1 

TABCON 

TIN1 

TIN2 

TIN3 

TIN4 

TINSRT 

TMPl 

TMP2 

TOC 

TOPCOK 

TSRCH 

TTYSWT 

TWO 

TWOtON 

UNPAK 

USET 

USMS 

WAIT 

WFM 

WRITE 

WRTV 

XI 

X2 

X3 

X4 

XFER 

XOUT 

ZOOl 

ZOHUF 

ZRO 



03ALH 
0382K 
0D54K 
ODbAK 
0D6AK 
0D7EH 
0050K 
1002R 
1004i< 
OFEAK 
061CK 
OCAOK 
0656K 
OOOE 

1036K 

10FCK 

0894R 

1174H 

0800 

0l4Er< 

2000 

050QH 

OOpE 

OOffiD 

OOOE 

000F 

OFFCH 

03F6K 

OEECR 

0EE4R 

OOOC 



ZROCON 1G32K 



532 

2136 

1864 

1880 

1874 

1853 

774 

625 

1663 

232 

21H1 

709 

238 

28u 

1«24 

624 
1387 

601 
2184 

395 

2184 

663 

1249 

1261 

1267 

1252 

567 

2125 

2004 

375 

243 

678 

2002 
243 



537 
1867 



1869 

784 
1511 
1683 

235 

1857 
73e> 
298 

l8Hi 



602 
2196 

470 
2196 

1255 
1264 
1270 



543 
266 
679 

577 



1612 

1518 16B0 1662 1731 175H 1954 i960 2179 

1953 1975 
666 724 1685 



2068 2072 

423 491 6o«* 619 7(j2 1319 143o 1538 1590 160* 1676 17] 
1042 1877 1878 i886 1899 x905 i9?5 X 944 ^78 i99i 2003 ?Aii 



2055 2059 



2204 2205 2206 2209 

559 

2206 2213 

1258 1276 1277 1278 1279 128 128l 



674 1452 



373 

68o 



541 5*2 544 548 574 577 6(j9 674 675 676 61 
68i 689 69 1317 1445 1516 1692 1736 1743 i9q6 20C 
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OOOOR 
0000 
0000 
0001 

0003 
0004 

noos 

0006 
0007 
0008 
0009 
OOOA 
OOOB 

OOOD 
OOOE 

"ooW~ 

OOOOR i*000 

016ER 
0004R 4100 

OOCOR 
006BR 4B*0 

0096 
OOOCR C4A0 

TETT 
0010R 40A0 

0196R 



OS HEX OEBUG (OS CLUfO, PROGRAM NUMBER 03-S82, IS AN 
ON-LINE, INTERACTIVE HEXA DECIMAL PC** 1 * PWttW AH 
THAT AS S ISTS THE-OSER-ITr OEBUGfilNS HIS PRD6KXW. 

THE USER DIRECTS OS CLUB THROUGH KEYBOARD COMMANDS 
AND" O B UINS WU S» U S CLUB R E SPONSES ON » H E KEY BO ARP7PR INTER 
DEVICE ASSIGNED TO LOGICAL UNIT 08. 
THE PRINT <P I AND DISASSEMBLE |N) DIRECTI VES OUTPUT TO 

LOGITRtrUNrr NUMBER SIT, 

THE OUTPUT <0> ABSOLUTE BINARY OBJECT TAPE AND THE 
(Q) O UTPUT BINARY CORE I MAGE TA PE DIREC TIVES WRITE TO 
LOGICAL UNIT NUMBER 02»~ 

OS CLUB RUNS ON ANY iKTEROATA M OOEL 3,»» OR 5 PROCESSOR 
t HA T SU PP OR T S AN O M EHA T ING S Y STL M. 

OS CLUB REQUIRES APPROXIMATELY 3KB CORE MEMORY. 



PRIOR TO EXECUTION, 

THREE LOGICAL UNITS MUST BE ASSISNEO TO PHYSICAL DEVICES: 

tOGTCAL U NIT NU M B E R 0?" s~ BINA RY OU T PU T tJEVTCT 

LOGICAL UNIT NUMBER 03 = LIST OUTPUT DEVICE 
LOGICAL UNIT NUMflER O5 = KEYBOARD/PRINTER DEVICE 



» STARTING LOCATION FOR EXECUTION IS AT ORlOlNU'OOOO'H » . 



ENTRY OSCLUB 

RO EOU __ 

INPUT E50 

OPEN EOU 1 

P EQU__ 2 

ONE EOU 3 

char Equ 4 

TWO EOU 5 

D EV EOT i 



: n t r y and xi 



STAT EOU 
OUTPUT EOU 
SWOW ""EOU 
A EOU 
B EOU 
"T 
D 
E 



7 
6 
w 

10 
11 



EOT" 

EOU 

EOU 



12 
IS 
1* 



EOU TT 



OSCLUB STH R0,SAVE0 



SAVE ALL REGISTERS & 



BAL RO, SAVER 



INITIALIZE CONSTANTS 



TW 



NHI 



A.OTRPSU 



A,X«7EFF' 



STH A,SAVOLO 



00000030 
000000t»0 
00000050 
00000060 
00000070 
00 000 080 
00000090 
00000100 

uoinnjiiD 

00000120 
00000130 

otrooorirt) 

00000150 

00000160 
OBOTJ0170 
0000018C 
00000190 

000 020 c 
00000210 
0000022c 
cnn)Trcr23n 

0000024C 

0000025C 
TJCOOOZBt 
0000027C 
0000026( 
0U00O29t 
00000301 
000003K 
6 00 00321 
00000331 
00000311 
00000351 
00000361 
00000371 
00000361 
00000391 
00000401 

00060411 

0000042 

0000013 
0660044' 
0000045 
0000046 

000004T 
0000048 
000001+9 

0000049 

00~0604~9~ 

0000049 

0000049 



INTERDATA 

0014R 48A0 

OOBA 
TJDT8R 4 0AO 

01A2R 
OOlCR C8AO 

OU3ER 
0020R 40A0 

OOBA 

wriw 4010 

0114K 

^H)28R HI 20 

042AR 
002CR 401D 

01 6E* 
0030R OlOC 

0032R C860 
0005 
0036R 01E8 
0038R 0lE2f» 
003AR 01E8 
003CR 019CR 
*«3cR Ob". 



0040R 

0044R 

UtrWR 

00*CR 
0050R 
TTO54R 
0058R 
005CR 
OD*tTR 
0064R 
0068R 
TX06CR 
0070R 
0074R 
I 0078R 



OS HEX DEBUG 
LH 
STK 
LHI 
STH 
STH 

CtRTBL 6 At 
STH 
BALR 



C8F0 
0000 
C800 
0000 
EllO 
OOACR 

teoo 

OOACR 

H210 

00B4R 

trmr 
08EER 

CAFO 

0001 

C540 

0030 

4280 

007CR 

C540 

003A 

4280 

009ER 

C540 

0041 

4280 

007CR 

C540 

0047 

4280 

009AR 



(OS CLUB) 03-032R01A13 ^ GE . 

A.TRPLOC SAVE SVC13 

A.^VCIS 1:0C CMTR 

A.BRKENT SET ILLEGAL INSTRU CTION 

A.TRPLOC 
OPEN.BTAS 



INTERUPT NEW MW»BRKENT 
rttAR B1AY 



553a»8/73 
553**8/73 
553A*8/73 
5S3A*6/73 



RrBSERCH ■— Cte*R BREAKP O I N T ENTR IES 
OPEN,BRKTBL+80<0> ZERO OUT BRKTBL ADRS CELL 
RO.C 



TTCuUh LHI OCV*B 



BALR 

OC 

BALR 

DC 

SHR 

REAOIN LHI 

LHI 

svtr 

LH 
BM 
KEAOHX tfr 
AHI 
CLHI 
BL 
CLHI 
UL 

Ctttt 
BL 
CLHI 

at- 



E, OUTPUT 
AlCRLFI 
E, OUTPUT 
A(WSCLUB) 
-OPEt*TOPEtr 

F,0 

INPUT. 

IVSVCBCl 

D,SVCBLl+2 



SCANER 



CONTINUE UNTIL DONE 
RESET OEVlCt-W * TTY 
OUTPUT CR/LF 
TYPEOUT «CLUB» ON TTY 
ttOSE OPEN CCtt-T TT ANY 
INITIALIZE INOCX 

READ IN COMMAND 

READ ERROR 



CHAR»BuFrER(#T SET 8 -BIT CHARACTER 



F.l 

CHAR.C'O 1 
^CAW 
CHAR,C»9»*1 

hexnuh 

C HAR.C ' A ' 
SCAN 

ChAR«C»F«+1 

HtXftt^ 



INCREMENT INDEX 



IS CHAR ALPHANUMERIC? 
NO« SCAN FURTHER 
IS CHAR NUMERIC? __ 
YES. GOTO HEX ROUTINE 
CM ARgHExI D E C »M»t. AL PH A 7~~ 
NO .SCAN FURTHER 
CHARsHEXIDECIMAL ALPHA? 
YES. «OTO HEXAtF-ROUTINt 



00000501 

00000502 

00000503 

00000504 

00000510 

000005i!0 
00000550 

00000540 

0O0OOIS5O 
00000560 
00000570 

00000580 
00000590 
00000600 
00000610 
00000620 
00000630 
00000640 

00000650 

00000660 

00000670 

00000680 

00000690 

00000700 

00000710 

00000720 

00000730 

00000740 

0000075TJ 

00000760 

00000770 

00000780 

00000790 
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007CR 
007ER 

0082R 
0084R 

0088R 
008AR 

OOaER 



OBAA 

OSBA 

0IF8R 

03B4 

"♦330 

0092R 

0AA3 

C5A0 

001F 

4280 

007ER 



0092R OAAA 
0094R 48BA 

521 8R 
0098R 030B 



009AR 

009ER 

00A2R 

00A6R 
00a8R 

OOACr 
OOAER 
OOBoR 
00B2R 
OOBHR 

{FOBBr 
OOBAR 
OOBCR 



CB40 
0007 
C440 

OOOF 
CDoo 
0004 
OftOlf 
4300 

0054R 
4805 

0000 
08EER 
09S5R 
C860 

0005 
OlEB 

01F4R 

t300 

0040R 



OOCOR 
00C4R 
00C8R 
OOCCR 
OODOR 
00D4R 
0OD8R 
OODCR 



4010 

0170R 

4020 

0172R 

4030 

0174R 

4040 

0176R 

4050 

0178R 

4060 

017AR 

4070 

017CR 

H080 



SCAN 

SCANl 



SHR 
LB 



At A 
B,OTABLC(A) 



INITIALIZE DTABLE INDEXsO 
FIND HATCH IN D TABLE FOR 



CLHR B.CHAR 

BE FOUND 

AHR A, ONE 

CLHI A.31 



INPUT DIRECTIVE IN CHAR 



BL SCANl 



INCREMENT INDEX INTO OTABlE 
DONE SEARCHING OTABLE? 

NO* CONTINUE SEARCH 



Found 



ahr 

LH 
BR 



A, A 
B.VTABLEcA) 



REDOUBLE FOR HU AORS INDEX 
PICK UP VECTOR ADDRESS 



B 



MCXALF SHI CH AR , 7 

HEXNUP1 NHI CHAR.X»F» 
SLHL INPUT, 4 



om 

B 

svcb l i oe 

DC 
DC 
DC 
SCANER LHI 



INPUT* CHAR 
REAOHX 



A (BUFFER) 

AJBUFPER+TiT 

DEV.5 



SWITCHTO PROCESS DIRECTIVE 

" CONVER T ASCI I ALPHA TO HEX 

MAS K OUT HEX DIGIT 

ALIGN INPUT TO ACCEPT HEx 

"COP Y IN HEX DIBIT 
KEEP INPUT BUFFER REGISTER 

READ BloCk 



TT*0 L, OUTPUT 
DC A (QUEST) 
B READIN 



TYPE 7 



* SAVE REGISTERS SUBROUTINE 

* ASSUMES RTJ ULRETTOy^SAvTCT IN~S*VtrB 

* RO CONTAINS RETURN ADDRESS 

* 
SAVER 



YTH 
STH_ 
STH 
~S"TFT 
STH 
STH 
^STFT 
STH 



l.S*VEO*a~ 

2.SAVE0+4 

3.SAVE0+6 

^fSAVElRl" 

5*SAVSQ»10 

6,SAVE0*12 

?»SAVE0+1«T 

8,SAVE0*16 



00000800 
00000810 

00000820 
00000830 

00000840 
00000850 

oooooeto 

00000870 
00000880 
00000890 

00000900 
00000910 
eot)tr092D 

00000930 

00000940 

00 000 95O 
00000960 

00000970 
00000980 
00000990 
OOOOlOOO 
00001010 

00001020 
00001030 
00001040 

00001050 
00001060 
00081070 
00001080 
00001090 

oooonou 
00001110 
00001120 

00001130 
00001140 
00001150 

ooinnrTSTr 

00001170 
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PA6E 



017ER 

4090 

01 BOH 

40A0 

0182R 

4080 

0184R 

•toco 

0186* 

40D0 

0188R 

4oeo 

018AR 

40F0 

018CR 



OpCR C830 
0001 

100R C850 
0002 

now c«*o 

0005 



BEOR 

DE4R 
0E8R 
OECR 
OFOR 

0F8R 



)1©«R C8*0 

029AR 
B10CR C890 

0312R 

011OR OBll 
D112R 0300 



011HR 
0116R 
0118R 
OllAR 
OltCR 
011ER 
016ER 
0I8ER 
0192R 
0194R 
TJ196R 
0196R 
019AR 



0000 
0000 
0000 
0000 
0000 



0000 
0000 
0000 
0000 



019CR 434C 
35*2 
0D2E 

01A2R 



STH 9^SAyE0*i» 

STH 10»SAVE0+20 

-$TT- 11»SAV L U422 

STH ia«8AVE0*2» 

STH 13.SAVE0+26 

STH- l»,SA V E O *lft 

STH JLStSAVEO+30 

LHI ONEtl 

LHI TU0»2 

LHI t>£VtS 



SET CONSTANTS 



tNlTIALTZEDEVICC NO * TTY 



THE DEVICE Ntt*BER IN Wttt«TtR OEV J* ALWAYS JW 
EXCEPT FOR WHEN THE N(0IS*8M» AND P(PMNTjJ ROUTINES 
CHANGE IT TO LISTDV OR WHEN THE Q AND Ot gUWjT TAPE) 
ROUTINES CHANGE IT TO BfWfDVi ^^^T'Stv?. IS? 
UPON COMPLETION OF E*CH OF THESE ROUTINES IN'TYCLUR' 

LHI OOTpUTtT)UTPH ALLOWS RR t»LW TD OUTPUT 



LHX SHOW, SHOW A 



SHR 
BR 



OPEN .OPEN 
RO 



ALLOWS RR BRANCH TO SHOW 

INDICATES CLOSED CELL 
RETURN 



* TEMPORARY STORAGE AREA 
BIAS OC 



VALUE OC 
MASK DC 
LOWUM DC 
HOHLIM OC 
BRKTBL DS 
SAVEO 
HEX 
SAVE 



SAVOLD 



DS 
DS 
DC 
DC 
DC 
DC 
OS 



FLAG 

* MESSAGES 
MSCLUB OC 



SVC1S DS 



tr 







80 

32 

, 





T) 



2 



C»CLUB«,X«0D2E« 



503A*8/7S 



00001180 

00001190 

00001200 

00001210 

00001220 

000U1230 

00001240 

00001250 
00001260 

00001270 

00001280 

00001?90 
00001300 
00001310 
00001320 
00001330 
00001340 
00001350 
00001360 

00001370 
00001380 

oooomo 

00001420 
00001430 
00001440 
00001450 
00001460 
00001470 
00001480 
00001490 
00001500 
W0U1510 
00001520 
00001530 
00001S4O 
00001590 
00001560 
000TJ157O 
00001580 
00001590 

00001595 



INTERDATA OS HEX DEBUG (OS CLUB) 03-032R01A13 



PA6E 



OlAHR 



01B6R 



01C6R 



OlcER 



OlDAR 



OlEOR 
OlDFR 
OlE2 R 
OlE«tR 
01E6R 
O1E6R 
OlEAR 
OlECR 
BIEER 
01F0R 
01F2R 
OlFHR 



<»9<4C 
•♦CHS 
H7H1 
HC20 
«*9«*E 
535 <t 
5255 
<*35* 
|»9«IF 
HE2E 
HEHF 
2042 
52*5 
•HUB 
SOW 
«»9«fE 
5<*2E 
«»558 
<*3*>5 
5353 
2020 
H252 

«*5«tl 
•♦B50 
tF*9 
1E5H 
2E20 
S2«*5 

•♦700 
2E52 
202E 

0D2E 
2020 
2020 
2020 
2020 
2E2E 
2S2E 
292E 
2C2E 
3FZE 



MILLSL DC 



CILLEOAL INSTRUCTION,* 



00001*00 



01F6R A<+96 
01F7R 

0096 
0096 
009A 
OOBA 



007A 
007E 



MSGNO OC 



CtNO BREAKPOINT.* 



mxcess twr 



MBKPNT DC 



^ e xc es s » 



C'BREAKPOINT. 



REGNUM DC 



X»52H5».x*'»700».X , 2E52* 



OC X*202E« 

RSPACE EOU *-8 

Crl^ IIT X*0D2E. 
SPACES DC 
SPACE6 DC 
SPACE* DC 
SPACE2 DC 

OC 
LPARE1T TJC - 
RPAREN DC 
COMMA DC 
QUEST DC 

* CONSTANTS 
TtYIN DC 
TTYOUT EOU 

* PROGRAM STATUS WORDS 
OTKPW VBU~ XT96T- 
OTRLOC EOU X»96* 
TRPPSW EOU X»9A» 
TRPLOC EOU XVBH* 

* 

* DEVICE TABLE 
BOUTDV EOTT XTA* 
LISTDV EOU X*7E* 



X«2020« 
Xt2o20* 

X«2020* 
X*2E2E* 

CM.* 
C »t.' 

xTSFarr 



XTAT»9ST 
TTYIN+1 



000016X0 



00001G2U 



00001630 



OOOOl&tO 



00001650 
00001660 
00001670 
00001660 
00001690 
00001700 
00001710 
00001720 
00001730 
000017«t0 
00001750 
000OI76T1 
00001770 
00001780 
00" 00 1790 
00001800 
00001810 
00001820 
00001830 
000016HC 
0000165C 
0000186C 
0000187C 
00001SBC 
0000189C 
0000190C 



INTERDATA OS HEX DEBUG (OS CLUB) 03-032R01A13 
* TABLE OF DIRECTIVES 



PAGE 



01F8R OAOO 


DTABLE DC 


X'OAOD'tX'ZO" - ' 


207F 






01FCR 212B 


DC 


CH+-»/.jGHIJKL 


202A 






2F2E 






3A*7 






<ta*»9 






4AHB 






4C4D 






4E4F 






5051 






5253 






5455 






5657 






5859 






5A20 


* VECTOR TABLE OF SUBROUTINE 


0218R 0**1'* R 


VTABLE DC 


A(LINFED) 


021AR 0*10" 


DC 


A(CARRET) 


02ICR 030C* 


DC 


JttSPATEl 


021ER 03c8R 


DC 


A( DELETE) 


0220R 0584R 


DC 


A(pAUSE) 


0222R 0*22R 


OC 


ATPtUST 


022HR 0«»26R 


DC 


A(HINUS) 


0226R 0570R 


DC 


A(STAR) 


0228R 02DCR 


DC 


AtSLASH) 


022AR 0«HCR 


DC 


A(pERIOO) 


022CR 0H18R 


DC 


A (COLON) 


022ER 0676R 


DC 


A (GO) 


0230R 0302R 


DC 


A(SETHGH) 


0232R 03E2R 


DC 


A(SETBIS) 


0~23«»R 0054R 


DC 


«rRO» 


0236R 055ER 


DC 


A (REMOVE) 


0238R 03DAR 


DC 


A(SETLOW) 


023*R 03EAR 


DC 


ATSETHSK) 


023CR 0980R 


DC 


A(DISASH) 


023ER 07BER 


DC 


A(OUTPTT) 


02«roR o&i*R 


DC 


ATPRTWT7 


0242R 07BER 


DC 


A(OUTPTT) 


02H4R 0400R 


DC 


A(REGSTR) 


02*6R 05D6R 


DC 


- At SEARCH T 


02*8R 03FAR 


OC 


A(TRANSF) 


021AR 0054R 
02«»CR 03F2R 


OC 

DC - 


A(ND) 
AlSETVALT 


024ER 0666R 


DC 


A(GOUAIT) 


0250R 049CR 


OC 


A(SETBRK) 


TT252R 058CR 


DC- 


A(SHQWTB) 


0254R 0530R 


DC 


A(ZAPBRK) 


0256R 0054R 


OC 


A(ND) 


005HR 


ND EOU 


READHX 



aoorEsses 

LINE FEED 
CARRIAGE RETURN 

SPACE BAR 

RUBOUT 
3 
*~ 



t 

6 
M 
I 

J 
K 

L 

n 

N 


Q 
R 



T 
U 



ALL OTHER UNDEFINES 



* 'TEARP' CONVERTS THE 4-HEXlDEClMAL DIGITS CONTAINED IN THE 

* OPEN CELL TO~ft8Ct*~ C ODE A ND STORCS~IT IN LOC SPECIFIED *T 

* REG C REG C IS INCREMENTED 



00001910 
00001920 

00001930 



00001940 

00001950 

00001960 

00001970 

00001980 

00001990 

00002000 

00002010 

00002020 

00002030 

00002040 

00002050 

00002060 

00002070 

00002080 

00002090 

00002100 

00002110 

00002120 

OC002130 

000021U0 

00002150 

00002160 

00002170 

00002180 

00002190 

00002200 

000X2210 

00002220 

00002230 

00002240 

00002250 

00002260 

00002270 

00002280 

00002290 

00002300 

00002310 

00002320 



INTERDATA OS HEX DEBUG (OS CLUB) 
LH 



03-032R01A13 



PAGE 



0256R 48A1 
0000 



TEARP 



A.O(OPEN) 



GET CONTENTS OF OPENCELL 



♦ 'TEAR' CONVERTS THE 4-HEXIOeCIMAL DIGITS CONTAINED IN 

* REGISTER A, ASSUMED^ TO BE PRESET BT THE C ALLING ROUTINE, 

*" "~~ " '" ' ~ "" 

INITIALIZE TEAR(P) INOEX 

LOMTCHIR V/CONTENTS OF n 
ALIGN HOST SlGNFlCNT 4fcjITS 

COPt IN A SCII DIGIT 3 

OIGITbHEXADECIMAL ALPHA? 

NO, SKIP CONVERTING TOALFA 

C ON V ER T TO ASCII ALPHA 

STR CONVERTED DIGIT IN HI X 

Align next digit ms 4bits 
loop til •» digits done 

store in buffer 



025CR 


C8B0 TE 
FFFC 


AR LHI 


B,-4 


0260R 


OSM TEAR1 LHR 


CHAR** 


0262R 


cc4o 

OOOC 


SRHL 


CHAR, 12 


0266R 


CA40 
0030 


*nt 


CH*R-,trnr' 


026AR 


C540 


CLHI 


CHAR.C»9'*1 




003A 




. __ __ 


026ER 


<f280 
0276R 


BL 


TEAR2 


02T2R 


CA*0 
0007 


AMI 


CHARvT 


0276R 


D24B TEAR2 STB 


char«hex+«hb) 




0I92R 


■ -;-" 


. - _.. 


027AR 


CDAO 

0004 


slh l 


A, 4 


027ER 


0AC3 


~A+tH 


B»ONC 


0280R 


•♦210 
0260R 


BTC 


i,teari 


0284R 


4800 
018EK 


L.H 


-d*hcx 


0288R 


40DC 
0000 


STH 


D,0(C) 


028CR 


4800 


LH 


D.HEx+2 




0190R 
40DC 


STH 




029oR 


D,2(C) 




0002 






0294R 


CACO 


AHI 


C,4 




0004 






0298R 


030E 


BR 


E 



02? A R 

029ER 

02A2R 

02A6R 

02AAR 

02AER 
02B0R 



98BTT 

0000 

D260 

02B5R 

D34B 

0000 

C540 

002E 

4330 

02BCR 

0AB3 

•♦300 



RETURN 
* 

* THE CALLING SEQUENCE fXJK n^TTI^ nmO^EnHJORESS IS IN 

* REGISTER OUTPUT IStBALR E, OUTPUT FOLLOWED BY A DATA 

* CONSTANT ENTRY CONTAINING THE ADDRESS OF ANY MESSAGE 

* ENDING TTTTH 2XfPWIOl5 )~OUTPR OUTPUTS TO THE DEVICE IN 

* REGISTER DEV ASSUMED PRESET Bt THE CALLING ROUTINE. 
* 

OUTFIT LH UTOTO 



STB 
OUTPRl LB 



DEV,SVCBc2*l 



CHAR, 0(B) 
CLHT CHARtC.' 
BE 0UTPR2 



^ET TnTORTSS~0F-flElg5Aer 

STORE LOGICAL UNIT 

SET 1BYTE MESSAGE CONTENTS 



AHR 
B 



B.ONE 
OUTPRl 



GET ADDRESS OF NEXT BYTE 
LOOP 



00002330 

00002340 
00002350 
00002360 
00002370 
00002380 

00002390 
00002400 

00002410 

00002420 

00002430 

00002440 

00002450 

00002460 

00002470 
00002480 

00002H90 

00002500 

00002510 

00002&20 

00002530 

00002540 
00002550 
00002560 
00002570 
00002580 
00002590 
00002600 
00002610 
0OO076Z0 

00002630 

00002640 

00002650 

00002660 

00002670 
00002680 



INTERDaTa 




02A2R 


02B4R 


2800 


TTZBTSR 


DVDU 


02B8R 


0000 


02BAR 


0000 


02BCR 


CBSB 




0001 


02C0R 


4080 


... 


02BHR 


02C«»R 


48BE 




0000 


02C8k 


40Bt> 




02B8R 


02CCR 


E110 




02B4R 


02D0R 


48D0 




02B6R 


02D4R 


4210 




00B4R 


02DSR 


430E 




000? 


020CR 


C82P 




0040R 


02E0R 


C8CC 




OSEfR 


02E4R 


48D0 




Oll^R 


(T2E8R 


4330 




036flR 


02ECR 


48 A 1 


" 


0000 


02F0R 


OBAH 


02F2R 


41En 




025CR 


02F6R 


teco 




01DFR 


0*FAR 


40co 




08F2R 


02FER 


48C0 




01E1R 


0S02P 


1 40CO 




08F4R 


0306F 


I OlEfi 


0308F 


! 08EER 


030AF 


t 0302 


030QR 0810 


OSOER 4A10 




oinm 



OS HEX DEBUG (OS CLUB) 03-0S2R01A13 



PAGE 



SVCBL2 DC 

DC" 

DC 

DC 

tnjTPR2 — SHT 



X>2S00' 





B,l 



STH 

LH 

STR 

SVC 

LH 

BM 

B 



B.SVCBL2+6 

B,0(E) 

BrSVCBt*** 

1.SVCBL2 

D.SVCBL2+2 

SCANER 

2<C) 



FINAL ADDRESS 



START ADDRESS' 



"WRtTt ERROR 



♦ C/3 DIRECTIVE "RESHOW CONTENTS" 



SLASH 



LHi 
LHI 

LH 

BZ 

LH 

SHR 
BAl 

LH 

STH 

LH 

STH 



PlREADtN 

C. BUFFER 

D.BlAS 

SHOCNT 

AtO(OPEN) 

A»D 
E.TEAR 

C.RSPACE 

obufter** 

C.RSPACE+2 
C.BUFFER+6 



prepare sh oc nt e x i t 

bias Entered? no* 
reshow contents absolute 

YES, GET OPENCCLL CONTENTS 

SUBTRACT BIAS 

SHOW RELATIVE CONTENTS 



SWOW RSPACt 

RETURN FOR NEW INPUT 



BALR TfUUTpUT 

DC A(BUFFER) 

BR P 
* CSFTVCTBAitTTJlRlXTtVC^OPCN^Ctty 
SPACE LHR OPEN. INPUT OPEN CELL IN INPUT 

AH OPEN. BIAS MAKE IT ABSOLUTE 



* THE 'SHOW* ROUTINE OUTPUTS THE ADDRESS AND CONTENTS 

* 6F~ THE O P EN/S P ECl ^retr-Ct U. I N resi stcr OPENt 

* ALL AooRESSES GREATER THAN OR E«UAL TO THE "AS 

* (IF A BIAS IS ENTERED) ARE OUTPUT RELATIVE TO THAT 



00002690 
00002700 
00002710 
00002720 

mroo2T3u 

00002740 

00002750 

00002760 

00002770 

00002780 

00002790 

00002800 

00002810 
00002820 
00002830 

00002840 

00002850 

00002860 

00002870 

00002880 
00002890 

00002900 

00002910 

00002920 

00002930 

00002940 
00002950 
00002960 
00002970 
00002980 
00002990 

00003000 
OOOOjOlO 
0U0O302O 
00003030 
00003040 



INTEROATA OS HEX DEBUG (Os CLUB) 03-032R01A13 



PAGE 



0312R cazo 
OOtOR 

ostsr cato 

08EER 



■03IAR- 
OSlcR 

0328* 

0324R 

032SR 

032CR 

0330R 

0334R 

0338R 

033CR 
D33tR 

0342R 

0346R 

03<»AR 
03<»ER 
0352R 
0356R 
035AR 
035ER 
0362K 
0366R 



C510 

016ER 

4288 

032CR 

C510 

018ER 

4280 

0390R 

4310 

0U4R 

4280 

0352R 

4800 

0114R 

1330 

0332R 

OBAO 

ftto 

02SCR 

ceoo 

5220 
*0OC 
0000 
CACO 

0002 
4300 

0362R 
H1E0 
025CR 
48Q0 

01EAR 

40DC 

0000 

CACO 

0002 

CSZU 

062CR 

0332 



0368R 4lE0 
0258R 

036CR 4BO0 
01EAR 

0370R 400C 



* BIAS WITH AN R APPENDED. 

* IF NO BIAS IS ENTERED t THE ADDRESS IS SHOWN ABSOLUTE. 

* ir~THT OPENCLLL IS W H H1N LLUB ' S REGIS T ER g*VE-*REA. 

* «SHOw« OUTPUTS REGN XXXX WHERE N«USER»S SAVEO 

* REGISTER NUMBER AND XXXXrlTS SAVED CONTENTS. 



SHOWA 



LHI 



PtREADXN 
C« BUFFER 



SET EXIT.RETURN FOR INPUT 



» PRINT/SEARCH/DISASW ROUTINES CALL SHOWC 



^HOWC — tm — A » O P EN 

clhi open. saved 



m 



SHOAOD 



CLHI OPEN.SAVEO+32 
BL SHORES 
SHOAOD -Cttt--- O PEN,B lA >- — ' 
BL SHOABS 
LH 



SAVE ABB AIMS Or ~OPEN CELL 
IS OPEN CELL A REGISTER 

NO, SO SHOW ADDRESS 

IS OPEN CELL A REGISTER? 

YtS« SO SHOW RE8NUMSC0NT 

— TT A OR S OF- W»ENCELL<BI1tS 

DON'T SUBTRACTS60 SHOaBS 



SHR 
BAIT 



D.BlAS 
SHOABS' 

A*D 
E.TfiAR 



is a bias entered? 

•■NO-r-S«-tttNOLC-ABS ADDRESS 

SET RELA TIVE ADDRESS 
"SENQ BUT T REIT DIBITS 



LHI D,C«R • 



STH 

mi 
b 
shoabs bal 

SH0SP2 LTt 
STH 
AHI 



DtO(C) 

Ctl 

POUEST 

E.TEAR 

DtSFiCES 

O.OlC) 



ASK Jf PRINT CALLED SHOW 
SEND OUT 4 HEX DIGITS 



C2 

FouEsr in.m p.pretrn 



IF PRETRNaP.ONLY SHOTTTIDRS 



STAKE SPECIAL Ex IT TO PR NT 



BFCR 3 P 
* THE STASH ROUTINE BRANCHES TO^ SHOcN t ""' 
SHOCNT BAL E.TEARP STORE CONTENTS 



CH 

STH 



TJ.SPACE2 
DtO(C) 



00003051 
00003061 
08003071 
00003081 
00003091 

oooosroi 

000031K 

OO003I2( 

00003131 
OOOOJint 
0000315( 

0U003T6X 

00003171 

0000318C 

0000 S19{ 

0000320C 

0000321C 

0000322C 

00003231 
0000 32*1 

0000325C 

00003260 

00003270 

00003280 

00003290 

00003300 

00003310 

00003320 

00003338 

00003340 
00003350 
00003360 

00003370 

00003380 
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0374R 

0378R 

03TCR 
037ER 

1T382R 
0386R 

038AR 
038CR 
038ER 
0390R 

0394R 

0398R 

039CR 

«3A** 

03A4R 

03A8R 

o*ac* 

OSBOR 
03B4R 
08B*R 
OSBCR 
03C0R 



0000 

CACO 
0002 
C520 

0040R 
XfZVZ 
4800 
01ECR 

400c 
0000 

CACO 

00D2 

01E8 

08EER 

0302 

CBAO 

016ER 

CCAO 

0001 

C4A0 

OOOF 

CAAO 

0030 

C3A« 

003A 
•1280 

03ACR 

CAAO 

0007 

01DOR 

4800 

01DAR 

400C 

0000 

48oO 

01DCR 
40DC 

0002 
CACO 
0004 
4300 

0356R 



OJCBR OBll 




IF P=READIN. TYPE MESSAGE 



STORE. 



OUTPUT 



BALR E. OUTPUT 

DC A (BUFFER) 

.. w p - 

SHOREG SHI A.SAVEO 

SRHL A,l 

NHI A.X'F* 

AHI A,X«30» 

BL SHONUM 

AHI A, 7 

SH0NUM STg nvREGNtm+J 

LH D^EGNUM 

STH DtO(C> 

LH D«REGNUW+a 

STH D f 2(C| 

AHI C«4 

B SHOSP* 

» CRUB0UT3 DIRECTIVE "CLOSE OPEN CELL" ^^^ _ . 
DELETE SHR OPEW.OPEN CLOSE THE OPEHTCEtt 

I T H E DIRECTIVE ROUTINES THAT BRANCH TONOSHOW ARE 

J TSoSH^OUTP^^ 

* RETURNS TO READIN TO CLEAR THE INPUT & M* WW1 STER 

* AND WftlT FOlTTURTHEW-rNPtrr 



GET REGISTER NUMBER 

MASK OUT HEX DXilT 

ADD IN NUMERIC ASCII CODE 

Dt«lT»HEXA0EClMlSt~ALPHA7 

NO ♦ NUMER IC I IMP 

CONVERT TO ASCII ALPHA 
STR CODE TN RE» TH&S *GE 
STORE RE 

*TORE G» 



03CAR 01E8 
OSCCR 01E2R 
03CER 4300 
0040R 



noshow balr e, output 

DC AtCRL F ) 

B REAOIN 



OUTPUT CR AND LF 



RETURN FOR FURTHER INPUT 



00003390 
00003400 

00003410 
00003420 

00003430 

00003440 

00003450 
00003460 
00003470 
00003480 

00003490 

00003500 

00003510 

00003520 

00003530 

00003540 

00003550 

00003560 

00003570 

00003580 

00003590 

00003600 

00003610 

00003620 
00003630 
00003640 
00003650 
00003660 
00003670 
00003680 
00003690 
00003700 
00003710 
000037Z0 
00003730 



INTERDATA OS HEX DEBUG (OS CLUB) 03-032R01A13 
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03D2R 4000 

o'iiCR 

03D6R 4300 
03CAR 

03OAR 4000 
011AR 

ffJJDER 4500 
OSCAR 

03C2R *B00 

0114R 
O3E6R 4300 

03CAR 

03EAR 4000 
0118R 

O3EER 4300 
03CAR 

03F2R 4000 

0116R 
O3F&R 43OO 

03CAR 

03FAR 4811 

0000 
03FER 0309 

0400R C400 
OOOF 

04 04R" CD'0'6 
0001 

O4O8R CAOO 

016ER 
040CR 0810 

040ER 0309 

0«*10K Ob15 
0412R 0309 



0414R 
0416R 

0418R 



041CR 

0420R 

0422R 
0424R 



0A1S 
0309 

4 A 00 
0114R 

4001 
0000 
030<* 

0A10 
0309 



» CH3 DIRECTIVE "HIBHLIHIT" 
SETMGH STH INPUT, HSHLXM 



INSERT HlSHLXNIT 



B 



NOSHOW 



"*' CUT DIR ECTI VE " LOWLI MT" 



SEfLOw StH 
B 



INPUT. LOWLIH 

NOSHOVT 



XNtCRT LOWLIMIT 



* CI3 DIRECTIVE "BIAS" 
SETHI* ttjH~ I NP U T * I 



B 



NOSHOW 



* CM3 DIRECTIVE "MASK" 
SEtMSK SjH INPUT. MASK 



INSERT MASK 



B 



NOSHOW 



INSERT VALUE 



* CV3 DIRECTIVE "VALUE* -■- 
SEtVAL StH INPUT. value 

""B" NOSHOW""" - - ■- - 

* tT3 DIRECTIVE "TRANSFER TO CONTENTS* 

tRansf t* opcn.^toRcni ope n c o n ten ts --or OPENCEU. 

BR SHOW 

* tni DIRECTIVE "RCiXSTER" 

regstr nhi Input. x«f« 



SEHL 
AHI 



.1 

input, saVeo 



MASK OUT HEX CHACTEr 
PRECEDING .IT. -DTRtCTTVE 
GET HW ADRS OF SAVED REG 



LHR OPEN. INPUT OPEN CELL CONTAINING KEg 
BR SHOW ^IS" *! !!:*" * C ° N TENTS * 

C ARRET SHR OPEN. TWO OPEN PRECEDING CELL 
BR SHOW 

* ClINEFEEUJ DIRECTIVE "OPEN NEXT SEQUENTIAL CELT* 
LINFEO AHR OPEN, TWO OPEN SUCCEDING CELL 

BR Show 

* m DIRECTIVE " HODI F V CON T EN T S RTTaTIVE* - - 

COLON AH INPUT, BIAS ADD REL BUS+INPUT 

* CTT DIRECTIVE~"ROOIFT CONTENTS ABSOLUTE*" 

PERIOD STH INPUT, ©{OPEN j CHAN6E OPEN CELL CONTENTS 



O426R 0B1O 



BR" SOW 

* c + 3 directive "add" 
plus ahr open. Input 

BR" SHOW 

* C-3 DIRECTIVE "SUBTRACT" 
MINUS SHR OPEN.XWUT 



OPEN CELL aA( OPEN* INPUT) 



OPEN CELL 8A« OPEN- INPUT) 



00003740 
0000375C 

00003760 

00003770 
00003760 

UW0T379D 

00003800 
00007810 

00003820 

00003830 
00003840 

00003850 

00003860 
00003870 

OOOO 3880 

00003890 
00003900 

00003910 
00003920 
00003930 

00003940 

OOOO395O 

00003960 
00003970 
00003980 
OOOO399O 
00004000 
00007010 
00004020 
00004030 
OOOO4O4O 
00004050 

00004060 
00004070 

00004080 
00004090 
00004100 
00004110 
00004120 
00004130 
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0*28R 0309 



BR 



SHOW 



* ♦BStRCm FCRFOlWS-Tt-COOP UBTAlNlNG E*ERY OTHER TELL IN 

* BRKTBL. AS EACH CELL IS OBTAINED, BSERCH RETURNS TO THE 

* CALLING ROUTINE FOR A DECISION DEPENDING ON THE CELL'S 
»CONTCNTS.TffBT K0U T 1 N L WIL trfrETttRW TtT BSLRCH CiTm.* THtttt 

* RO OR HAVE RO PRESET FOR AN EXIT. 

INITIAL I7E BRKTBtrTNOtX 
PICKUP ADRS CELL IN BRKTBL 



0«»2AR CBDO 


»SERCH 


LHt 


t>T**0 


FFBO 
042ER 48A0 


BLOOP 


LH 


A,BRKTBL*80(Dt 


016ER 
0432R 01C2 
0H34R CADO 




BALR 
AHI 


C.P 
0,10 


OOOA 
0438r 4230 




tiUl 


BLOOP 


042ER 
0H3CR 0300 




BR 


Rt> 



RETURN TO ROUTINE QUESTION 
INCREMENT BRKTBL INDEX 

DONE LOOKING THRU BRKTBL? 

YES, EXIT 

* THE ADDRESS OF 'BRK^NT' IS STORED IN THE PROCESSOR/ S 

* ILLEGAL INSTRUCTION TR A P ,U>CATI0N *»M , ~*»«™»: 

* IS STARTED AT ORIGIN. 'BRKENT* IS ENTERED ANY TIME THE 

* PROCESSOR EXECUTES A BREAKPOINT OR OTHER ILLEGAL 

* INSTRUCTION, THEREAFTER. ^. - -. 

* THE ROUTINES T HA T CALL ON t B SERCH» ARE 'CLRTBL', 

* InRKENTi AND THE DIRECTIVE ROUTINES FOR X,*,K, AND Y, 

* SCTBRK. *APB*K« REMOVE* SH0WT8* 

* S*VE A LL REGISTERS 

4 INITIALIZE COMTANTS 



043Er '♦000 Buk^NT STh 


R0,SAVE0 


016ER 
0442R MOO 


BAL 


RO, SAVER 


OOCOR 

im6R 48io 


LH 


I7SVCFLG 


7BCW 
044AR 4310 


BNM 


BRKEN1 


045BR 
044ER 0711 
045QR 4010 


XHR 

STH 


1.1 
l.SVCFLG 


07BCR 
0454R "+300 


B 


SvCExT 


075ER 
0«8R 4«C0 BRKENl LH 


CtOTKPSW 


0096 
045CR 40CO 


STH 


csavolo 


0196R 
0460R C<+C0 


NHI 


C,X«7EFFt 


7EFF 
0t»6nR 40C0 


STH 


C ,ENREY 


0478R 
0468R '♦SCO 


LH 


COTRLOC 


0098 
046CR CBCO 


SHI 


c.t 


0004 
OH70R 40C0 


STH 


CSAVOLO + 


0198R 
0474R C200 


LPSW 


*+«♦ 



SAVE STATUS * CC 



33SA*a/73 



00004140 

00004150 

00004160 
00004170 
00004180 

00004190 

00004200 
00004210 
00004220 

00004230 

00004240 
00004250 

00004260 

000OH27O 
00004280 
00004290 
00004300 
00004310 
00004320 
00004330 
00004340 
00004350 
0000i+3fc0 
00004370 
00004380 

00004390 

00004400 

00004410 

00004420 
00004430 

00004440 

0000i»450 

00004460 

00004461 

00004465 

00004470 

00004460 

00004490 

00004500 
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04F6R 
04C6R CSBO 
9000 
04EAR 4280 

0512R 
0«fEER C580 
COOO 
04F2R 4380 

0312R 

04F6R 08B1 

04F8R CABO 

0002 

04FCR '♦OBO 

0174R 
05OOR C8B0 
"♦300 
0504R 40b0 

0172R 

0S08R C8B0 

E1F0 

050CR 40B1 

0000 

0510R 0309 

0512R tesi 

0002 
0516R 40BQ 

0172R 
05XAR 08B1 
051CR CABO 

0004 
0520R 40BD 

0176R 
(T524R C8B0 

•♦300 
0528R 40BO 

0174R 
052CR 4300 

0508R 



0530R 

0334R 
0336R 

093AR 

053ER 
054 OR 

0544R 
0546R 
0548R 
054AK 
05HCR 
054ER 



4IEO 

04A0R 

0811 

4330 

0546R 

4120 

042AR 

051A 

4330 

054CR 

010C 

01EB 

01B8R 

0309 

8E9 

H8B0 

0170R 



CLHI B,X'9000» 
BL STSCND 

CL*r -ffiTcnnnnyr 

BNL STSCND 



RX.RS OP=40-60 



KXtRS OP=C0-DF 



RTNST 



LHR 
AHI 



B.OPEN 
B,2 



RR OP=01-20,90-9F 
RETURN ADD+2 



STH 

LHI 

STH 

SETFLG LHI 

STH 

BR 
STSCND LH 

STH 

LHR 
AHI 

STH 
LHI 

STH 
B 



B,BRKTBL*86<D> STORE 

B,X»*3O0» 

B.BRKTBL*8f(D) STORE BRANCH INSTRUCTION 

B,X«E1F0« GET BREAKPOINT 1NSTR 

B,0<OP€N) SET BRKPNT lNTfr 0PCNCCLL 

SHOW SHOW IT 

BT*tOPE*»> UCT *ND HALr^1W«1W-INSTR 

BtBRKTBL*B<MD> STORE 

B.OPEN 

Bflt RETURN ADD +4 

B,BRkTBl+«6«D) STORE 

B,Xr«J3TJ0* 

B.BRKTBL+86(D) STORE BRANCH INSTR 

SETFLG 



» CZ3 DIRECTIVE -ZAP BREAKPOINT" 



ZAPBRK BAL E.TSTINP 



LHR 
BZ 



OPEN, OPEN 
NOBRK 



BAL -p-JTB*E*Ctt 

CLHR OPEN, A 
BE ZCtCAR 



TEST INPUT BUFFER/OPENCELL 

U0NT TEST CCtL ZtRO 
FOR BREAKPOINT ENTRY 

St JRCH BRKTBt : FOft ENTR Y 

DOES OPENCELL NATCH ENTRY 
tF"SO .Rt S TO WE ITlZ ftF CNTRY 



NOBRK 



BALR ROfC 

BALR C OUTPUT 

DC AjMSGNO) 

BR SHOW 

iCLEAR LHR EtSHOW 

KCLEAR LH 



RETURN TO BSERCHISETUPEXIT 

TYPE *KO+ 

FINISH TYPING 
RESHOW OPEN CELL 

.,,„„„. srrup zclca* -extr to show 

B.BRKTBL+«2(D> GET ORIGINAL CONTENTS 



00004860 

O000'>870 

00004880 

00004890 

00004900 
00004910 

00004920 

00004930 

00004940 

00004950 

00004960 

00004970 
00004980 

00004990 

00005000 
OOOO5O1O 

00005020 

00005030 

00005040 

00005050 

00005060 
00005070 

00005080 
00005090 

OCTOOSIOO 

00005110 
00005120 

00005130 
00005140 
00005150 
00005160 
00005170 
00005180 
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STH B.O(OPEN) RESTORE THER INTO OPENCELL 



0552R 10B1 
0000 

0S36R OBBB 

0558R 40BD 
016EK 

055CR 030E 



0S5ER 

0562R 

0366R 
0568R 
056AR 

056ER 

0570R 

0574R 

0578R 

OUTCR 

0580R 
0582R 



C800 

0032R 

1120 

042AN 

033C 

061A 

11EO 

051ER 

030C 

C120 

0S80R 

48F0 

B1A2R 

10F() 

OOBA 
El 30 
0000 
0005 
OOOF 



0581R E120 

0S8CR 
0SB8R 1300 

0010R 
058CR OOOi 



058ER 

0992R 

059&R 
0598R 

059XR 

OSAOR 

05A4R 

05A8R 

OSACR 

05B0R 
05B2R 
05B1R 

05B6R 



C800 

0032R 

1120 

012AR 
033C 

10C0 

0192R 

4000 

0191R 

C8C0 

08EER 

11E0 

025CR 

18BC 

01ECR 

10B0 

08F2R 

01E8 

08EER 

18C0 

0192R 

18D0 



SHR B.B BET A 7EH0 TO 

STH BtBRKTBL+SOCD) CLEAR BRKTBL ENTRY ADORS 

8R E mT TO ~SH0W/BACKTO RCROVE 

* CK3 DIRECTIVE "KILL ALL BREAKPOINTS* 



REMOVE 



LHI 
BAL 



ROtTYCLUB 
PtBSERCH 



BFCR 3,C 
LHR OPEN* A 
BAL E.KCLEAR 



SETUP BSERCH EXIT RO 

SEARCH BRKTBL FOR ENTRY 

IP NON E , R ET U RN TO BSERCH 

OPEN ENTRY 

RESTORE CELL A ZAP ENTRY 



* END OIRECTIVE 
ST A* SVC ZTi 



RETURN TO BSERCHaCONTINUE 



STH 
«VC 



F.SVClB 
F.TRPLOC 
SfO — 



RESTORE SVC 15 



LOC CNTR 



553A*8/73 
553A*8/73 



SVCBLS DC 5 

OC X^* 
* PAUSE DIRECTIVE 
PAUSE SVC 2,*+8 



B 



REAOIN 



■ ■■' DC " ■ I 

* CY3 DIRECTIVE "SHOW BREAKPOINT LOCATIONS" 
SHOWTB LHI Ro,TYCLUB SETUP BSERCH EXIT R 




BAL PtBSERCH 

BFCR 3YT 

STH C.SAVE 



STFT 

BAL 

tff 

STH 

BALR 

OC 

LW 

LH 



SEARCH BRKTBL FOR ENTRY 
"TF~N0NL , RETURTT TO BSERCH 



E.TEAR 

BYSPACE2+2 

B, BUFFER** 

E, OUTPUT 
A (BUFFER) 
C.SAW 

D,SAVE*2 



SENO ABS ADRS OF BRKPT 



00005190 

00003200 
00005210 

00005220 
00005230 
0000521*0 

00005250 

00005260 
00005270 
00005280 

00005290 
00005300 
000 531 

00005320 

00005530 

00005340 

00005350 
00005360 
00005370 
00005380 

00005390 

00005100 
00005410 
00005420 

00005430 

0000511O 
00005450 

0000516X1 

00005170 

00005480 

00005190 

00005500 

00005510 
00005520 
00005530 

00005540 
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0191R 
OSBCR 030C 



BR 



RETURN TO BSERCMICONTINUE 



08BER 

05C2R 

0SC6R 
03C8R 

OUCC* 
OSDOR 
09DHR 
05D6R 
05OAR 
05DER 

01SE2R 
05EHR 

05E8R 
OSEAR 
OSECR 

OSFOR 

09F*»R 

05F8R 

05FCR 

06OOR 
0602R 
O601R 
0606R 
060BR 



06 OCR 
0610R 



1810 

011AR 

1800 

0111R 

OAIO 

1AOO 

OllCR 

CllO 

FFFE 

CIOO 

FFFE 

030E 

11E0 

05BER 

18C0 

0116R 

1820 

0118R 

01C2 

18A1 

0000 

01A2 

07AC 

1230 

0601R 

C8C0 

08EER 

1120 

D31AR 

18A0 

01ECR 

lOAC 

0000 

01E8 

08EER 

0A1S 

0910 

1*330 

0610R 

1380 

0032R 

"♦300 

050AR 



0611R tOlO 
OtlAR 

0618R C8C0 
08EER 



* 'LIMITS' SETS UP THE LOW A HIGH LIMITS RELATIVE TO THE 

* BIAS AND FORCES HALFwORD ALIGHENT.FOR S(SEARCH) ,P(PRINT| 

* N (TH SAS H >. AND I H L M AN D ( O U TP UTS A Pt l R O U T INES ~ 



LIMITS 
LIMTSl 



LH 

LH 

AHRr 
AH 

NH1 

NHI 

BR 



OPENiLOULIH 
RO.BIAS 



-OPEW-fRO 

RO.HGHLIH 

OPtW*X^PPE* 
RO.X'FFFE' 



* CS3 DIRECTIVE "SEARCH FOR MASKED VALUE" 
SEARCH BAL EiLTMlTS 



SHERE 



LH 

LH 

NH* 
LH 

NHR 
XHR 
BNZ 

LHI 

BAL 

LH 
STH 



C, VALUE 

P. MASK 

t*P 

A, (OPEN) 

A.C 
SRETRN 



C, BUFFER 
P*SMOWC 
A,sPACE2+2 
A. 0(C) 



PREPARE LOW S HIGH LIMITS 
GET BIAS 

OPEN « tOWt ttt~# MAS 
RO a HGHLIM ♦ BIAS 

FORCE HALFWORTT ALIGNMENT 

ON LOuLIMIT I HIGHLIMIT 

RETURN 

,SKED Vi 

GET LOW * HIGH LIMITS 

PICK UP VALUE 

PICK UP MASK 

MASK VALUE 

GET CONTENTS 

MASK CONTENTS 

DOES MASKED CONTENT EQUAL 

MASKED VALUE? NO t SKIP 

FOUND A HATCHiSHOW IT 



SRETRN 



BALR EvOUTPUT 

DC BUFFER 

AHR OPEN, TWO 

clhr t>PEtr,*o 

BE *+8 



OPEN NEXT CELL 

DONE S EAR C H ING L IMITS 



BNC 
B 



^nretufr 

SHERE 



* CP3 DIRECTIVE "PRINT- 
PRINT LH OPEN,LOWLIM 

LHI C, BUFFER 



NO, CONTINUE SEARCH 



GET LOWLIMIT ENTERED 



00005950 
00005560 
00005570 
00005580 
00005590 
00005600 
00005610 

00005620 

00005630 
00005610 

00009650 
00005660 

00005670 
00005680 
00005690 

00005700 

00005710 

00005720 
00005730 

00005740 
00005750 
00005760 

00005770 

00005780 

00005790 

ooooseoo 

00005810 
00005820 
00005830 
00005810 
00005850 

00005860 

00005870 

00005880 
00005890 

00005900 



061CR 

OK2"0R 

0624K 

0628R 

062CR 

0630R 

0634R 

0638R 

063CR 

0640R 
0642R 
064*R 

0648R 

064CR 

0650R 
0652R 
0654R 
0656R 

065AR 

065ER 

0662R 
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NMI OPEN.X'FFFO' 

BAL E,L1 WT S1 

LHI DEV.3 
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C410 
FFFO 
4IF0 
05C2R 
C860 
WOJ 
4120 
031AR 
^60o 
01EAR 
40DC 
OOOO 
CACO 
0002 
C8F0 
0008 
4120 
0368R 
0A1S 

0BF3 
4230 

063CR 

48D0 

01ECR 

40DC 

0000 

01E« 

08EE R 

0510 

4330 

069ER 

4380 

0032R 

C8C0 

08EER 

«*300 

0628R 



0666R 4820 

0196R 
066AR C620 

6000 
066ER 4020 

0196R 
0672R 4300 

0682R 

0676R 4820 

0196R 
067AR C420 

7FFF 
067ER 4020 

0196R 
0682R 4IE0 

04A0R 
0686R 4010 



MASK OFF HEX LSO OF LOWLIH 
.THTTS 




SHOW LINE'S iST CELL AqRS 



AHR 
SHR 
BNX 

LH 

STH 



PtSHOCNT 



OPEN, TWO 

Ft ONE 
PRINTS 

0,SPACE2+2 
O,0(C) 



SHOW CONTENTS OF NEXT 8 

CONSECUTIVE CELLS 

DONE PR IN T ING 1>NE LTNET 



BAt* EfOUTPWT 

OC A (BUFFER) 

CLHR OPEN.Ro 

BF "*+9 



PASSED UPPER LIMIT? 



BNL 

LHI 
- w -.~ 



TYCLUB 



C, BUFFER 
PRINT! 



HOV CONTINUE ON NEXT XTNE 



* CW3 OIRECTIVE "GOWAIT" 
GOWRIT UH FVSAVOLO "~"~~ 

OHI P,X»8000» 

STH P.SAVOLO 

B 5TRF5W ~ 

* CG3 DIRECTIVE "GO EXECUTE" 
GO T.TT P.SAVOtD 

NHI P.X'TFFFt 



STH 

STRPSW BAL 

STH 



P.SAVOLO 
EtTSTINP 
OPEN*SAVOLD>2 



5S5A*B/73 

TEST TNPUT TDK EMTRT 

SAVE AORS FOR LPSW 



00005910 

00O059ZO 

00005930 

00005940 

00005950 

00005960 

00005970 

00005980 

00005990 

00006000 
00006010 

00006020 

00006030 

0000601(0 

00006050 
00006060 
00006070 
00006060 

00006090 

00006100 

00006110 

00006120 
00006130 

00006140 

00006150 

OOOTS6I60 

00006170 
00006180 

00006190 

00006195 

00006200 

00006210 
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PAGr 1ft 



068AR 
U68CR 

068ER 

0692R 
0694R 

OA^ftR 
069AR 

G69ER 



06A2R 
06A6R 
06AAR 
06AER 
O6H2R 
06B6R 
06BAR 
06BER 
06C2R 

06CAR 

06CER 

0602R 

06D6R 

06DAR 

06DER 

06E2R 

06E6R 

06EAR 

06EER 

06F2R 
O6F4R 



0198R 

OlEfi 

01E2R 

•♦120 

042AR 

051 A 

4330 

069ER 

&10C 

4300 

0750R 

C8A0 

0170R 

40AO 

0198R 

48A0 

0170R 

C4A0 

FFOO 

C5Ao 

moo 

433» 

0766R 

C5A0 

0100 

•♦330 

0766R 

C5A0 

2400 

4380 

0750P 

C5A0 

2000 

4280 

0750R 

48CD 

016ER 

C«E0 

4200 

C4A0 

0200 

4330 

06E2R 

C6E0 

0100 

D3aD 

0170R 

D3B0 

0171R 

CCBO 

0004 

CDBO 

0004 

06EB 

D3BD 



BALR 

tnr 

BAL 



E. OUTPUT 

ATCRtFT 

P.BSErCH 



TELL USER 6/W ACCEPTED X 
CLUB TSBETNG "EXITED 
SEARCH BRKTBL 



Sf IX 



-"CLUR- 
BE 

»AL* 

B 

LHI 



OPtTr,A- 
GFIX 

-RiN-e — 

GFIX1 



BREAKPOINT POUND 
-CONTINUE St ARCH- 



LH 

NHI 

CLHI 

ur 

CLHI 

he 

GFIXo CLHI 
BNL 
CLHI 

bl 

LH 

lht 

NHI 

B2 

OH I 

GFIXOa LB 

LB 

SRHL 

SLHL 

OHR 
LB 



ArBRKTBi.*S*fB+ 1-OAfr A WITH trttC*T «F WHERE 

PR6RH IS TO RTN TO EXECUTE BKPT 
A. S AV O L O^ ^TORT 

AtBRKTBL*82<01 CHECK FOR RR INSTR. 



A,X«PF00» 

A,X* t »IOtJ' 

BALRTN 

A.X'OlOO* 

BALRTN 

A,X»2400« 

6FIX1 

*7X*2DinP 

GFIX1 



IS IT A BAL? 
YES. PROCESS IT 
IS IT A BALR? 
YES. PROCESS IT- 
POSSIBLE SHORT BRANCH? 
NO 

DEFINITE SH0RT~BR*RCH? 
NO 

C,BRKTBL+80<D) OPEN CELL ADDRESS 

EYX ti MJ00'* «*A*8/7S 

A,x»0200» BRANCH FALSE? 

GFIXOA NO 

C.X-'TJIW YES-SET OPCODE^ 

A.BRKTBL*82(D) OP CODE 

B,BrkTBl+83{0) HASK 

Bv* SHIFT OFF 1NCRT~ 

H.4 POSITION MASK 



556*8/73 

556*8/73 

556*8/73 

556*8/73 

534A*ft/73 

534A*B/73 

534A*0/73 

534A*8/73 

534A*8/73 

534A*8/73 
534A*ft/73 
534A*8/73 
534a*8/73 
534A*8/73 
534A*8/T3 
534A*6/73 



E.B INSER INTO L0N6 OPCODE 

B,BRKTBL+83(0» AOR INCREMENT 



534A*8/73 
334A*6/73 



00006220 
00006230 
00006240 

00006250 
00006260 

00006270 
00006280 

0000fo290 

00006300 
00006310 

0000b320 

00006330 

00006331 

00006332 

00006333 

00006334 

00006341 

00006342 

00006343 

00006344 

00006345 

00006346 

00006347 

00006348 

00006349 

00006350 

00006351 

00006352 

00006353 

00006354 
00006355 
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06F8R 

06FCR 

0700R 

0704R 

0708R 
O^oAR 

070ER 
0710R 

0714R 

071CR 
0720R 

0728R 

072CR 
072ER 
0730R 
0732R 
0734R 

0738R 

673CR 

074qR 

0744R 

074BPT 

07«fCR 

0750R 

0T54R 

0758R 

075CR 
075ER 

0762R 



0171R 

CHBO 

000F 

CDBO 

0001 

PtP 

0001 

4230 

070ER 

OBCB 

4300 

07IOR 

OACB 

40E0 

B72CR 

4oco 

072ER 

0174R 
40C0 

6732R 
C8Ao 
072CR 
4©Ht> 

0198R 

4300 

073OR 

0000 

0000 

4300 

0000 

CSAo 

9000 
4280 

0744R 
C5A6 

C000 
4280 

0750R 

48AO 

016ER 

4B*7T 

0002 

40AD 

0172R 

C810 

8000 

401TJ 

07BCR 

D100 

016ER 

E1F0 

D100 

016ER 

C200 

0196R 



NHI 

SLHL 

TOTT "~ 

BNZ 

SHR 
B 

GFIXOB AHR 
GFiXOC STH 

STH 



B*x*ooor* 

B.l 
A.X*OO0I»- 



STRIP MASK OFF 
INOEXIZE INCR 
F MU DR BK7L 



GFIXOB 

C,B 
GFIXQC 



C*B 

E, BRKSHT 



STH 
LHI 
5TW 
B 



BRKSHT DC 
DC 



GFIX2 



GFIX1 



DC 
OC 
CLMI 

BL 

TLRT 
BL 

LH 



C, BRKSHT +2 
C * BRKTBL+6A ( D ) 
CBRKSHT+& 
A, BRKSHT 

-jr»siirotD** — 

6FIX1 




x"»suo~t 

o 
a,x«»ooo« 



FWD 

BK f OECR AOR 
534A*8/73 

INCREMENT A DR 
P RIME OPCODE I M ASK 

PRIME BRANCH ADR 



PRIME FALL-THRU 



EXECUTION AOR 

"PR I HE PSM 

334A,8/73 

BRANCH CONDITIONALLY 
BRA NCH ADR 

WcTWOmreiiAL BRANCH 
INLINE ADR 



TFT 
STH 



GFIX2 

n,jrt8«' — 

GFIXl 

AtBRKTBL*80(0) 

Trvjmn 

A,BRKTBL+84(D) 



RR 
RXtRS 



SVCEXT 



LHI 

"STR— 

LH 

DC 
LM 



1,X»8000* 

raVCF«~ 

O.SAVEO 

X»E1F0» 
O.SAVEO 



534A*8/73 
SSHA*8/73 
534A*8/73 
534A*8/73 
334A*8/73 



534a*8/73 
534A*8/73 

534A*8/73 



534A*8/7S 
534A«8/73 
S34a»8/73 



534A*8/73 
534A*8/73 
534a*8/73 
534A*8/73 



00006356 

00006357 

00006358 

000063S9 

00006360 
00006361 

00006362 
00006363 



00006364 

0O0U636S 

00006366 

00006367 

00006368 

00006369 

00006370 
00006371 
00006372 
00006373 
00006374 

00006375 

00006340 

00006390 

00006100 

eoeirawio 

00006420 



LPSU SAVOLD 



EXIT CLUB 



00006430 

00006440 

00006450 

00006460 
00006465 

00006470 



INTERDATA 


OS HEX 1 


DEBUG 


(OS CLUB) 03-03 


2R01A13 PAGE 


20 




0766R 46AD 


BALRTN 


LH 


A.BRKTBL+82(D) 


INSTR HW 


556*8/73 


00006471 


0170R 
OT&Ar C4A0 




NHI 


A.JT'OOFTP 


Rl 


556*8/73 


00006472 


OOFO 
076ER CCAO 




SRHL 


A, 3 


DOUBLE FOP INDEX 


556*8/73 


00006473 


0003 
0772R 48CD 




LH 


CBRKTBL+80ID) 


ADR OF BRK PT 


556*8/73 


00006474 


016ER 
0776R 48E0 




LH 


E,BRKT*L*82tO) 


INSTR HW 


556*8/73 


00006475 


0170R 
077AR CACO 




AHI 


C,2 


556*8/73 

___ Ny..._ _„. - 




00006476 


0002 
077ER C4E0 




NHI 


EtX»4000« 


BAL OR BALR? 


556*8/73 


00006477 


4000 




*Z 




^ ^ _ _ 


596*8/73 


00006478 


07«2R 4330 


-Wf& 


~B*t.R 


078AR 
0786R CACO 




AHI 


C,2 


BAL 


556*8/73 


00006479 


0002 
078aR 48ED 




LH 


E»BRKTBL+82<D) 


GET LINK REG 


556*8/73 


00006480 


0170R 
078Er 40CA 




STH 


C,sAVCOtA) 


SAVE rEG 


556*8/73 


00006481 


016ER 
0792R 07CC 
0794R C4E0 




XHR 
NHI 


c,c 

E.X'OOOM 


596*8/73 

«CT INDEX RE« 


556*8/73 


00006482 
00006483 


OOOF 
0798R 4330 




B2 


NOINOX 


NO INDEX 


556*8/73 


00006484 


07A4R 
079CR cnEo 




SLHL 


E.l 


DOUBLE IT 


556*8/73 


00006485 


0001 
07A0R 48CE 




LH 


c.saveojej 


GET REG CONTENTS 


556*8/73 


00006486 


016ER 
07A4R 48A0 


NOINDX 


LH 


A,BRKTBL+82(Dj 


INSTR HW 


556A*8/73 


00006487 


0170R 
07a8R C4A0 




NHI 


AfX«4000« 


BAL OR BALR? 


556A*8/73 


00006488 


"4000 
07ACR 4330 




BZ 


*+8 


BALR - NO BASE 


556A*8/73 


00006489 


07B4R 
07BoR 4AC0 




AH 


C,BRKTBL + 84(D) 


AOO BASE ADR 


556A*8/73 


00006490 


0172R 
07(34R 40c0 




STH 


C«SAV0LD+2 


SET FOR LPSW 


556a*8/73 


00006491 


0198R 
07IJ8R 4300 




B 


GFIX1 


DO IT ALL 


556A*8/73 


00006492 


0750R 
07UCR 0000 


SVCFLG 

* 


OC 





„ _ 




00006495 
CU 00650 


0000 
O002 
0004 
0006 
OOOA 
OOOB 
OOOC 
OOOO 
OOOE 
OOOF 


* REDEFINE REGISTERS FOR OUTPUT TaPE ROUTINES 

HILIM EQU RO 

BUFFX EOU 2 -— " 

INDEX2 EOU CHAR 

COUNT EOU DEV 

SEONUH ECU A 

PACK EOU B 

BITX EOU C 

DATA K>U D 

LINK EOU E 

LINKl EOU F 


_ 


00006510 
00006520 
00006530 
00006540 
00006550 
00006560 
00006570 
00006580 
00006590 
00006600 
00006610 
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07BTR 

07C2R 

07C6R 

07CAR 

0?CER 
07DOR 

0704R 

07D8R 

07DCR 
07DER 

07E2R 

07E6R 

07EAR 

OTEE^ 

07F2R 

07F6R 

D7F A R 
07FER 

0802R 

0O06R 
0808R 

080CR 

0810R 

081«fR 
0816R 
0816R 
081AR 
081CR 
OfllER 

0822R 

0826R 



HlEO 

05BER 

C5<+0 

00151 

«*330 

095AK 

CBBO 

0856K 

OBAA 

«HE0 

08D2R 

C8D0 

0035 

D2DO 

08F2R 

0801 

CCDO 

0008 
D2D0 

08F3R 
D210 
08F1R 
C82<> 

OOOE 
C501 

0002 
t280 

081CR 

C520 

OOCF 

4280 

0802R 
tlEO 

08AAR 

C8<*0 

OOOA 

01EB 

<UFO 

087ER 

«UFO 

087ER 

H300 

07EER 

3002 

0002 

08EER 

0959R 

0S10 

4230 

0838R 

C520 

00D3 

4280 

082ER 



* C03 DIRECTIVE "DUMP TAPE IN STANDARD LOADER FORMAT" 

* CQ3 DIRECTIVE "OUMP TAPE IN 8-BIT FORMAT* 

ouTPTT bsl — etltmtts GET LOU I HIGH limits 



CLHI 

BE 

LHI 

SHR 
BAL 

LHI 

STB 

LHR 
SRHL 

ST B 

STB 

LHI 

0UEST1 xtHl 

BL 



CHARtX*OOSl* 



IF Q DIRECTIVE, GOTO 8BIT 



Q8BIT 

P*CK,PACKA 

SEQNUMtSEONUM 
LInKiCCKBXJF- 

DATA,X«0035* 

oaTa»buffer+«» 
datatopcn 

DATA,* 

OaT^tbUFFER*? 

OPEN, BUFFER +6 

BUFFX.i* 

HftTMrfctOPENt 

QUEST2 



CLHI BUFFX.fcflT 

BL PACTOE 

BAl LINK* PUNCH 

PACFUL LHI CHAR,X»A» 

BALR LINK. PACK 

BAL LlNKl.HALFW 



SvCBL3 



BUEST2 



BAL 


LlNKl.HALFW 


B 


8UEST1 


OC 

DC 

DC 

DC 

CLHR 

BNE 


X«380Z» 
X«2« 

A (BUFFER) 
A(BUFFER+107) 
OPEN.HlLlM 
QUESTS" 


CLHI 


BUFFX,2H 


BL 


PACHAF 



TAPE DUMP ROUTINE 

AttOWT R R BALR TO PACK 

INI TIALIZE S EONUMsO 
CLEAR BUFFER 

PACK ABS/REL TOGGLE SWITCH 

AND PROGRAM ADRS CODE 



PAXK PR OGRA M ADDRESS 



INITIALIZE BUFFER INDEX 
S FtfLttfORD LEFT TO P*C*? 
NO. 60T0 SEE IF HW LEFT 
YES, DOES BUFFER HAVE ROOM 
YES. 6"&"T'6~PACk A fULLWoRd 

no, output filled buffer 

PACK~CWrRDL ITEM »a» 

PACIT *~FULLVD1U> 
CONTINUE DUMP 



HAS DUMP BEEN COMPLETED? 
YES , ~WTG OUTPUT END CODE 

NO, ROOM IN BUFFER FOR HW? 



YES* SO PACK LAST HALFWORD 



00006620 
00006630 
000TJ6M0 

00006650 
00006660 

0iJ0066T0 

00006680 
00006690 

00006700 

00006710 

000O6T20 
00006730 

000067*0 

00006750 

00006760 

00006770 

00006780 

00006790 

00006600 

00006810 

00006620 

D0006S30 
000068H0 

00006S50 

00006660 

00006870 
00006880 
00006890 
00006900 
00006910 
00006920 

00006930 
00006910 
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082AR 


"♦1E0 
08AAR 




BAL 


LINK. PUNCH 


0S2ER 


cam) 

0008 


pACHAF 


LHI 


CHAR,Xr8« 


0832R 


01EB 




BALR 


LINKiPACK 


083HR 


«HF0 
087ER 




BAL 


tlUKXTHILFtr 


0838R 


C520 
0007 


QUEST3 


CLHI 


BUFFX.215 


083CR 


<*280 
08<mR 




BL 


ENDCOD 


OB*0* 


*1E0 
08AAR 




BAL 


1 —»■»■' . Hill 1 -" 

tTNtt, PUNCH 


08HHR 


C8«I0 
0003 


ENDCOD 


LHI 


CHAR • 3 


08"*8R 


OlEB 




BALR 


LINK. PACK 


084AR 


08<t3 




LHR 


CHAR, ONE 


D8«*CR 


OlEB 




BAL* 


link, pack 


084ER 


•HEO 
08AAR 




BAL 


LINK .PUNCH 


08S2R 


•♦300 
0032R 


CUTOFF 


B 


ttclub 


0856R 


08C2 


PACKA 


LHR 


BITX.BUFFX 


0858R 


CCCO 
0001 




SRML 


BITX.1 


085CR 


H280 

0864R 




BC 


PACKl 


0B60R 


CD40 
000<* 




SLHL 


CHAR.H 


066«»R 


CCCO 
0001 


PACKl 


SRHL 


BITX.I 


0868R 


t280 

087of< 




BC 


PACK2 


086CR 


CDtO 
OOOfl 




SLHL 


CHAR, 8 


08TOR 


OACC 


PACK2 


AHfT 


BITX.B1TX 


0872R 


46HC 
08EER 




OH 


char, buffer i 


0876R 


t»0«»C 
08EEK 




STK 


CHAR-.BUFFCRi 


087AR 


0A23 




AHR 


BUFFX.ONE 


087CR 


030E 




BR 


LINK 


087ER 


C860 
OOOH 


HALFW 


LHI 


COUNT, 4 


0882R 


4801 
0000 




LH 


DATA»"OCOPEN1 


0886R 


084D 


LOOPHW 


LHR 


CHAR. DATA 


0888R 


CC*0 
OOOC 




SRHL 


CHATT.IST 


088CR 


01EH 




BALR 


LINK, PACK 


088ER 


COOO 
0001 




SLHL 


OAT* ,tr 


0892R 


0B63 




SHK 


COUNT. ONE 


089<»R 


M230 
0886R 




BNZ 


LOOPMW 


0898R 


0A15 




AHR 


OPEN, TWO 



NO. OUTPUT FILLED BUFFER 

PACK CONTROL ITEM »8» 
PUCK HALFWORTJ 

BUFFER HAVE ROOM ENDCODE? 

YES. GO PACK IT 

-NOi -OUTPUT FTttEO BUFFER 

PACK ABSOLUTEoRELAWE 

T066LE SWITCH » 3 
PACK END CODE « 1 

OUTPUT LA8T BUFFER 

THIS SUBROUTINE PACKS 
THE RIGHTMOST V*B1T$ 

IN CHAR INTO THE NEXT 

AVAILABLE *-BiT BYTE 

IN THE BUFFER 



THIS SUBROUTINE PACKS 

-» HALFWORTJ FR O B C ORE . ' 

THE OPEN CELL. INT O THE 
NEXT AVAILABLE 8 BYTES OR" 

16 BITS IN THE BUFFER 



GET NEXT CELL OPEN 



00006950 

00006960 

00006970 
00006980 

00006990 

00007000 

00007010 

00007020 

00007030 
000070H0 
00007050 
00007060 

00007070 

00007080 
OOOO7O9O 

00007100 

00007110 

00007120 

00007130 

oooo7mo 

00007150 
00007160 

00007170 

00007180 
00007190 
00007200 

tltr0t72l0 

00007220 
00007230 

000072«*0 
00007250 

00007260 
00007270 

00007280 
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089AR 
089CR 

O8A0R 
08A*R 

08A8R 

OBAAR 

OftAER 
08B2R 
08B6R 
08BAR 
08BER 

O0C2R 

08C6R 

08CAR 

OflCER 

ORD2R 
OSOtR 
8D6R 

OflOAR 

08DER 

O0E2R 
OBE<*r 

08E8R 



030F 
EllO 
081«+R 

«*800 

oeibR 

t21ff 

OOBHR 

030F 

C800 

FFFF 

C8t0 

000«* 
C860 

006B 
*7D[) 
08EEP 
H7DH 

08EER 
C1«KD 

08BAR 

<tODO 

08FOR 

EllO 

0811R 

H8O0 

0816R 

1210 

OOB<*R 
OOOO 

OBI** 
C860 
006B 
40Df 

08EER 

C1*»0 

OODAR 

0BA3 

40A0 

08EER 

C320 

0008 



WRITE 



BR 

SVC 



08ECR 030E 

OAEER 

095AR 0821 

095CR 0603 

O^SER 08<»0 

0«i60R 1+020 

097CK 
096HR «40<fO 

097ER 
0968R EllO 

0978R 



punch 



CHKSUH 



CLRBUF 



ClEAR 



LH 

"BR - 

BR 

--tttr— 

LHI 

LHI 

X* 

XH 

BX L E 

STH 

~svt 

LH 

BM 

S«R 
SHR 
LHI 

ST H 

BXLE 

SHR 
STH 



LINK1 
1 .S VC8L3 

D.SVCBL342 



^CANER 

LINK1 
0*TAT=r 

lN0EX2t<» 



RETURN 



ALT. ONES 



COUNT, 107 SETUP ENDOFBUFFER COUNT 

oat a, bumper compute checksum trntH™ 

DATA.BUFFER(INDEX2> ALL WORDS IN BUFFER 



INDEX2. CHKSUH EXCEPT ITSELF PLUS 



A WORD OF ALL ONES 
STORE CHECKSUM IN BUFFER 



DATA.BUFFER+2 

1iSVCBL3 

D,SVCBL3*2 

SCANER 

DATA.TWT* 
INDEX2.INOEX2 
COUNT* 107 



CLE*R~BgTFER ROUTINE 



0ATA,BUFFER(inDEX2> ZERO OUT HALFWORD 
INDEXl,CtEAR DONE'BCESRIWG BUFFER? 



SeQNUMiONE 
SESNUmYBUFKLrV 



LHI BUFFX.8 



OECREHENT RECORD SEGNUH 
8 * INDICATES FIRST BUFFfIR 



BUFFER 

* 

Q8BIT 



BR 

DS 

LHR 
OHR 
LHR 
STH 

STH 

SVC 



•t-BITS AVAILABLE FOR DATA 



LINK^ 
108 



BUFFxTOPEN 

HILIH.ONE 
INDEX2,H!LXH 
BUFFX.SVCBOTnf ~ 

INDEX2.SVCBLH+6 

l.SVCBL* 



BUFFT«EVTFn:OWl. I R I T 
FORCE HI6HLIHIT ODD 
INDEX2WODD HIGHLIMIT 



I NT E HI) A 1 A 


OS HEX 


DEBUG ( 


10s clubj oa-oazi 


096CR H800 




LH 


D,SVCBL4+2 


097AR 
0970R 4210 




W 


SCANER 


00B4R 
0974R 4300 




B 


TYCLUB 


0032R 
0978R 5802 


SVCHI3 


DC 


x»seo2' 


097AR 0000 

tJ97CR 0000 
097ER 0000 




DC 
DC 

DC 




tr - " 






* tw3 DtnEcrive *orsftsstnett^ 


0980R 41E0 


* 
D1SASM 


BAL 


E. LIMITS 


050ER 

0984R cafeo 




LHI 


DEV,3 


0003 
0988R 0H15 
098AR C8C0 


NEXT 


SHR 
LHI 


OPEWvTWO 
C, BUFFER 


08EER 
098ER 0A15 
0990R Obi" 
0992R 4330 




AHR 

CLHR 

BE 


OP€N«TWO 

OPEN,R0 

*+8 


099AR 
0996R 4380 




BNL 


TYCLUB 


0032R 

099AR H120 




BAL 


P.SMOVC 


031AH 
099ER C)3Al 




LB 


A.O(OPEN) 


0000 
09A2R CCAO 




SRHL 


A. 4 


000*4 
09A6R OAAA 
09A8R 48AA 




AHR 
LH 


Air 
A,TABLE(A) 


OACOK 
05ACR 4330 




BZ 


NEXT! 


0A32* 
09B0R D3D1 




LB 


B.O(OPEN) 


0000 
09B4R CHBO 




NHI 


B.X'F' 


OOOE 
09BPR CDBO 




SLHL 


B,2 


0002 
OgBCR OAAB 
09BER 484a 




AHR 
LH 


AiB 

chrR> trr A ) 


0000 
09C2R 4210 




BM 


NEXT1 


0A32R 
09C6R 48D0 




LH 


D.SPACE2 


01EAR 
OgCAR 40DC 




STH 


O.O (CI 


0000 
09CER "ODC 




STH 


D.2(C) 


0002 
09O2R tODC 




STH 


D.tlCl 


0004 
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GET LOW & HIGH LIMITS 



DISASM COMPLETED? 



OUTPUT ADRS& C ONT E NT S 

GET OP CODE 

GET OP CODE'S MSD 

UOUBLE TO GET TW INDEX 
PICK UP AORS OF MNEMONIC 

"IT ZEROiTREftT CEtL AS DATA 

GET OP CODE ^GAIN 

GET OP CODE'S LSD 

-"LSD*** INDEX INTO USD GROUP 

AORS OF SPECIFIC MNEMONIC 
I* THIS AW tCtXGAtrTJP CODT 

YES, IGNORE * GET NEXT CELL 



00007G40 

00007650 

00007660 

00007670 
00007680 
00007690 
00007700 
00007710 
00007720 
00007730 
00007740 

00007750 

00007760 
00007770 

00007780 
00007790 
00007600 

00007810 

00007820 

00007830 

00007840 

00007850 
00007860 

00007870 

00007880 

00007P90 

00007900 

00007910 
00007920 

00007930 

00007940 

00007950 

00007960 

00007970 



INTERDATA OS HEX 



09D6P 


f CACO 




0006 


09DAR 


082A 


0'.)I..Cf* 


C<*AO 




t- r f r 


9 9E!)f< 


4 ho A 




1) 


O^E'fR 


400c 







A Or f ; >.; 


<+{».() A 




o o o ; % 


o^uir 


'''CDC 




000 2 


U'^OR 


C'CO 




0001 


9 £ ■'■' f •' 


4«f0 




i f A H 


G*? r sn 


4 £ C 







.^FCR 


CACO 




o fi n > 


OrtQOf.; 


us t; o 




Ol'HH- 


OAOHK 


024C 




0000 


iJ^fl'iR 


D5"0 




01F2R 


OAoCf* 


l. s 2tC 




1 


CAlOR 


CACO 




000 2 


C A i V, H 


o- ! *o 




01911= 


OAliiH 


0423 


OAlAl* 


4230 




U AU2R 


A 1 !.-; 9 


U24C 




0000 


C-ii^R 


D 3 '■> 




oiecN 


0AS6,< 


02 m: 




(3001 


A 2 A ' I 


o 1 1: 6 


0A.PCR 


8EEP 


0A,>FR 


•»30U 




96AR 


0A.5>'( 


4 6 : * 




GlECR 


r«A3feR 


404( 




C 


OA^Ah 


01FB 


OA.'iC.R 


0-3ET:? 


OA-CK 


'+ 3 i i 




09+>AR 


0AH2:; 


O 6 2 4 


g a h *» t» 


A ?, 5 



NEXTl 



RX 



OEBUG 
AHI 

LUR 
NHI 

LH 

STH 

LH 

STH 

AHI 

LH 

STH 

AHI 

LB 

STB 

LB 

STB 

AHI 
LB 

NHR 
BNZ 

STB 

LB 

STB 

8ALR 
DC 

B 

LH 
STH 

BALR 

DC 

B 

LHR 
AHR 



(OS CLUB) 

C,6 

P,TT 

A,X»FFFE« 

OiUTAl 

O«0(CJ 

n,2(A) 

D.2CCT " 

E.SPACE2 
E.OtC) 
C.2 
CHAR,HEX+2 

CHAn,intrj 

CHAR.COMHA 

CHAR, 1(C) 

C.2" " 

CHAR «HEX*S 

P.ONE 
RX 

ChAR,0<C) 

CH*R,?PStT2+2 

CHAR, 1(C) 

E, OUTPUT 
A (BUFFER) 

NEXT 



03-032R01A13 
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CHAR,SPACE2t2 

CHAR, 0(C) 

E, OUTPUT 
A (BUFFER) 
NEXT 

P.CHAR 
OPEN. TWO 



STtVE— HNTFTOWIC ATJR SXRXFL ATT 
MASK OFF RX FLAG 



GET Rl/Ml FIELD 



GET R2/X2 PtKLD 



RXFLAG PRESENT? 

YES, GO HANDLE RX.RS INST 



RETURN FOR NEXT INSTR 



SAVE X2 FIELD 

GET ADRS NEXT HALFWORD 



00007980 

00007990 

0000?000 

OT) 0080 10 

00008020 

00000050 

00008040 

00008050 

00008060 

00008070 

00008080 

00008090 

00008100 

00008110 

00008120 

00008130 

00008140 

00008150 
00008160 

00008170 

00008180 

00008190 

00008200 
00008210 

eW0~52"2TJ 

0000823Q 

000082HO 

00008250 
00008260 
00008270 

00008280 
00008290 



INTERDATA OS 


HEX DEBUG 


(OS CLUB) 03 


0A46R 'UEO 


BAL 


EtTEARP 


0258R 






OT^AR C520 


CLHT 


p,r»o» 


0030 






0A4ER 4330 


HE 


RX2 


OABOR 




0A52R C8D0 


UHI 


O.CM* 


0028 






0AS6R D2DC 


STB 


mtrttr 


0000 






0A5AR C8D0 


LHI 


D,C»>' 


0029 






0A5ER D2DC 


STB 


D.2IC) 


0002 






0A62R 0842 


urn 


CwAK>P 


0A64R D24C 


STB 


CHAR, 1(C) 


0001 






0A68R CACO 


AH I 


CiU 


0003 
0A6CR 48Q0 


LH 


0,SPACE2+2 


01ECR 






0A70H D2DC 


STb 


O.O(C) 


0000 






0A74R oit» 


BALR 


E. OUTPUT 


0A76R 08EER 


DC 


A (BUFFER) 


0A78R C8C0 «X0 LHI 


C, BUFFER 


obiter 






0A7CR 48DC 


LH 


CSPACE2 


01EAR 






0A80R 400C 


STH 


D.TTTCT 


0000 






0AB4R 400C 


STH 


Dt2(CJ 


0002 






0A88R 40DC 


STH 


D««MC> 


0004 






0A8CR CACO 


AHI 


C.S 


0006 






0A90R 48D0 


LH 


D,HEX 


018ER 






0A94R 4QDC 


STH 


D,0<C) 


0000 






oa9Br teoo 


LH 


D.HEX+2 


0190R 






0A9CR 40DC 


STH 


D,2(C) 


0002 






OAAOR 48D0 


LH 


D.SPACE2+2 


OlECR 






0AA4R 40DC 


STH 


0,-^TCT 


0004 






0AA8R 01E8 


BALR 


; EtOUTPUT 


OAAAR 08EER 


DC 


A fBUFFERT 


OAACR 4300 


B 


NEXT 


09SAR 






OABOR 48D0 KX2 LH 


OrSPACE2*Z 


OXECR 






OAB^R **ODC 


STH 


D.O(C) 



2R01A13 PAGE 26 

SEND IT OUT AS'A'FIELD 
1TAS XZ FIEUrZEWO? 



SET X2 FIELD "tt*T* 



00008300 

00008310 

00008320 

00008330 

00008340 

00006350 

00008360 

00008370 
00008380 

00008390 

00008400 

oooofmo 

OOOOP420 
00006430 
00008440 

00008450 

00008460 

00008470 

00006480 

00008490 

00008500 

00008510 

00008520 

00008530 

00008540 

00008550 

00008560 
00008570 
00006580 

00008590 

00008600 
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oooo 

0AB8R 01E8 
OABAR OflEER 
OABCR 1300 
0A78R 



BALR E, OUTPUT 

tJT ATBUFFERT 



0001 
OACOR 

oacir 

OAC»R 
OACCR 

0AO2R 
OftOSR 



OAEOR 
OAEtR 
0AE8R 
OAECR 
OAFOR 
OAFHr 
OAFBR 
OAFCr 
OBOOR 
OBO<»R 
OBOSR 
OBOCR 
0B10R 
0B1«*R 
0B1BR 
0B1CR 



OAEoR 

0000 

0B20R 

0000 

0B61R 

0000 

OBAlR 

0000 

0000 

OBEOR 

0000 

0000 

0C21R 

0C61R 

0CA1R 

0000 



FFFF 
FFFF 
«t2**l 
<*C52 
U23«» 
H352 
•*2«f6 
"+352 
<*E<»8 
5220 
«t3*»C 
•♦852 
<*F«»8 
5220 
58<*8 
5220 
HCU8 
5220 

5220 
«*148 
5220 
53«t8 
5220 
tD^8 
5220 
H4«*8 
5220 
«U«*3 
•♦852 
53«*3 



B 

* CT-UB , S"1 
RXF CQU 
TABLE DC 

OC 

ur 

DC 



rxo 



A(HSDO),0 



LT TTT 



SDDRESSES 



AinSD2)*0 



A(MSO*+ftXin«0.0 



DC A(nS09)«0«0 



OC A(HSDC*RXn •AtnSOD+RXP) . a<mde*rxf> *o 



nNCnONXc Or 
* MOST SIGNIFICANT DIGIT 
MSDO 



OC 


-1,-1 




OC 


OBALRi 




TJC 


C*BTCR* 


— - - 


DC 


OBFCftt 




DC 


C'NHR ♦ 




DC 


C»CLHR~» 





DC 


c»oHr ♦ 




DC 


C«xHr t 




DC 


C»LH« • 




DC 


C»CHR • 




OC 


C'AHR • 




DC 


C»SHR • 




OC 


Ct«HR • 





DC 


C«DHR • 




OC 


C»ACHR» 




DC 


C«SCHR» 
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4852 


0B20R 


4254 




4253 


0H2HK 


4254 




4*53 


0B28R 


4246 




"♦253 


0B2CR 


4246 




9653 


0B30R 


4C49 




5320 


0B34R 


4C43 




5320 


0B38R 


4149 




5320 


0O3CK 


5.549 




5320 


0B4OR 


4C45 




5220 


0B44R 


4345 




5220 


nnt«K 


414 5 




522(i 


0B*Cr 


534 5 




5220 


0B5QR 


4045 




5220 


0B54R 


4445 




5''"'0 


0B58R 


F F f ■ F 




FFFF 


0B5CR 


FFFF 




FFFF 


OPfeOP 


5i54 




4820 


OBfeHR 


4 241 




4C20 


OB68R 


4254 




4 32 


OBfeCR 


4,;46 




432H 


0B70R 


4[:48 




2020 


0B74R 


434C 




4820 


0B78R 


4 F 4 a 




2020 


OR7CR 


5848 




2020 


0B80R 


4C48 




2020 


0B84M 


4 <48 




2020 


OBftftR 


! 4148 




2020 


oRacn 


1 5348 



MSD2 



MS(I4 



DC 


C'BTBS* 


DC 


C»BTFS» 


DC 


C«BFBS* 


DC 


C»BFFS» 


DC 


C'LIS • 


DC 


cn.cs ""*" 


DC 


C'AIS • 


DC 


C'SIS • 


DC 


C»ttR^ 


OC 


C«CER • 


oc 


CAEr • 


OC 


c »SCR ' 


DC 


C'MER • 


DC 


C»DER « 


DC 


-1 1-1 


DC 


-1,-1 


OC 


C'STH • 


OC 


C»BAL « 


DC 


C»BTC • 


DC 


C'BFC • 


OC 


C »WH r 


OC 


C«CLH • 


DC 


C»OH • 


DC 


CTtf"' 


DC 


C»LH • 


DC 


CiCH » 


DC 


C*AH "»■ 


DC 


C»SH ♦ 



00008900 

00008910 

00008920 

00006930 

00008940 

00008990 

00008960 

00008970 

00008980 

00008990 

00009000 

00009010 

00009020 

00009030 

00009040 

00009050 

00009060 

00009070 

OOOO'JOflO 

OOOO9O9O 

00009100 

00009110 

00009120 

00009130 

00009140 

00009150 

00009160 

00009170 



INTERDATA 




2020 


0B90R 


4D48 




2020 


0B94R 


4448 




2020 


0B98R 


vns 




4820 


0B9CR 


5343 




4820 


OBAOR 


5354 




4520 


08A4R 


41*8 




4020 


ORA8R 


FFFF 




FFFF 


OBACR 


FFFF 




FFFF 


OBBOR 


4154 




4C20 


OBB4R 


4142 




4C20 


OBB8R 


5254 




4C20 


OBBCR 


5242 




4C20 


OBCOR 


4C45 




2020 


0BC4R 


4345 




2020 


OBCflR 


4145 




2020 


OBCCr 


5345 




2020 


OBDOR 


4D45 




2020 


0BD4R 


4445 




2020 


0BD8R 


FFFF 




FFFF 


OBDCR 


FFFF 




FFFF 


OBEOR 


5352 




4C53 


OBE4R 


534C 




4C53 


0BE8R 


5354 




4252 


OBECR 


4C42 




5220 


OBFOR 


4558 




4252 


OBF4R 


4550 




535? 


OBFSr 


5742 




5220 


OBFCr 


5242 
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C'MH 



MSD6 



HSD9 




00009180 
00009190 
00009200 
00009210 
00009220 
00009230 
00009240 
00009250 
00009260 
00009270 
00009280 
00009290 
00009300 
00009310 
00009320 
00009330 
0000934C 
00009351 
00009360 
0000937C 
00009360 
0000939C 
0000940C 

ooQi*94ii: 

0000942C 
0000943C 
00009441 
0000945C 
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5220 


OCOOHv 


57<+8 




5220 


OCO<+R 


5246 




522 


0C08R 


57i) i» 




5220 


OCOCH 


5244 




522(1 


OClBf? 


4 04 8 




5 55? 


OCltK 


5 55 3 




5220 


OClflR 


4F4 3 




5220 


0C1CR 


4149 




522 


0C2OR 


4 25* 




482C 


OCZHH 


4250 




» 4 C 4 5 


0C2»fJ 


4C50 




53 57 


0C2CR 


5440 




4 92 


OC30R 


4 £4". 




4S2H 


DC 3 4R 


14 -uw" 




'* a u ■- 


OCSflfJ 


i+F'i+f\ 




4 92 


0C3CR 


5 a '4 8 




t.'92 


0C4QR 


4C46 




4920 


0C«t1<< 


4 34.' 




4920 


oc«saiJ 


4148 




'4 92 


or.'4C(-' 


Ml 8 




"4 9 2 


OCbOR 


5 33 2 




484C 


0C54R 


5.3 4 c 




4 flic 


0C58R 


5352 




1+841 


OCSCR 


5 34C 




'!8i(l 


0C6GR 


5 554 




'ID 2 


0C64R 


1+ C 4 ! ) 




2 ? 


0C&6R 


3354 




4 220 


0C6CR 


4C42 



nsor 



hsdo 



DC 


C'WHR • 


DC 


C'RHR • 


Ot 


C»H01T"T 


DC 


C'ROR • 


DC 


C'MHUR' 


oc 


C*SSR * 


DC 


C'OCR • 


OC 


C'AIR • 


OC 


C»BXH » 


DC 


C'BXLE* 


DC 


C'LPSw* 


DC 


C»TH1 • 


DC 


ONHI • 


DC 


C«CLHI« 


OC 


CTflHI -r 


DC 


C'XHI • 


DC 


C'LHI • 


DC 


CTCHI » 


DC 


C'AHI t 


DC 


C»sHI • 


DC 


C»SRHL» 


OC 


C»SLHL» 


DC 


C»SRHA« 


DC 


C»SLHA» 


DC 


C'STM • 


DC 


C«LM • 


DC 


C*STB ♦ 


DC 


C»LB • 



00009160 
00009470 
00009«fffCr 
00009190 
00009500 
000095X0 
00009520 
00009530 
00009510 
00009550 
00009560 
00009570 
00009580 
00009590 
00009600 
00009610 
00009620 
00009630 
00009640 
00009650 
00009660 
00009670 
00009680 
00009690 
00009700 
00009710 
00009720 
00009730 
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2020 


0C70R 


HHHC 




^226 


0C74R 


Hl<+C 




2020 


0C78R 


57M2 




2020 


0C7CR 


52*2 




2020 


0C80R 


5738 




2020 


0C8«JR 


5248 




2020 


0C88R 


5744 




2020 


0C8CR 


5244 




2020 


0C9OR 


4D48 




5520 


0C9«fR 


5353 




2020 


0C98R 


4F43 




2020 


0C9CR 


4149 




2020 


OCAOR 


FFFF 




FFFF 


0CA4R 


5356 




4320 


0CA8R 


5349 




4E54 


OCACR 




OCACR 


FFFF 




FFFF 


OCBOR 


FFFF 




FFFF 


0CB1R 


FFFF 




FFFF 


0CB8R 


FFFF 




FFFF 


OCBCR 


FFFF 




FFFF 


OCCOR 


FFFF 




FFFF 


OCCHR 


FFFF 




FFFF 


0CC8R 


5252 




4C20 


OCCCR 


524C 




4C20 


OCDoR 


5352 




4C20 


OCDitR 


534C 




4C20 


0C08R 


5352 




4120 



HSDE 



DC 


C'CLB • 


DC 


C«AI_ « 


DC 


C»WB « 


DC 


C«RB • 


DC 


Ct U 8 t 


DC 


C'RH » 


DC 


C'WO • 


DC 


C«RD • 


DC — - 


trrnHU * 


DC 


c»ss • 


DC 


CioC • 


DC 


Ctat —t 


OC 


-lt-1 


DC 


C«SVC t 


DC 


r'STTNTT 


DO 


7 


DC 


-lt-1 


DC 


-1«-1 


OC 


-lt-1 


DC 


-I,-T -~ 


DC 


-lt-1 


DC 


-lt-1 


DC" 


-it-t: 


OC 


C'RRL • 


OC 


C«RLL • 


OC 


C'SRL * 


DC 


C'SLL • 


DC 


CtSRA • 
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OCDCH 531C DC CSLA • °°° 09 *>° 

octor" 120 cm osclub °°° 09970 
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A 


OOOA 


B 


OOOB 


BALRTN 


0766R 


BIAS 


011«fR 


BITX 


OOOC 


BLOOP 


0<*2ER 


ROUTDV 


007A 


RRKENl 


OitSBH 


RRKENT 


045ER 


BRKPNT 


0«J96R 


BRKSHT 


072CR 


BRKTBL 


OllER 


BSERCH 


0<+2AR 


BUFFER 


08EER 


PUFFX 


0002 


C 


OOOC 


CARRET 


OtlOR 


CHAR 


OOOH 


CHKSUF! 


06BAR 


CLEAR 


08DAR 


CLRBUF 


08O2R 


CLRTBL 


0028R 


COLON 


OtlSR 


COMMA 


01F2R 


COUNT 


0006 


CRLF 


01E2R 


CUTOFF 


0852R 





OOOD 


DATA 


OOOD 


DELETE 


03C8R 


DEV 


0006 


DISASM 


09»0R 


DTABLE 


01F8R 


E 


OOOE 


ENDCOD 


08HHR 


ENRET 


0«f78R 


ERROR 


0«»90R 


F 


OOOF 


FLAG 


019AR 


FOUND 


0092R 


GFIX 


069ER 


GFIXO 


06BER 


GFIXOA 


06E2R 


GFIXOB 


070ER 


GFIXOC 


0710R 


GFiXl 


0750R 


GFIX2 


07«f«»R 


GO 


0676R 


GOWA1T 


0666R 


HALFW 


087ER 


HEX 


016ER 


HEXALF 


009AR 


HEXNUM 


009ER 


HGHLIM 


011CR 


HILIM 


0000 
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INDEX2 


OOCt 


INPUT 


0000 


KCLEAR 


OS^ER 


LIMITS 


05BER 


LIMTS1 


03C2R 


LINFED 


0H1»R 


LINK 


000E 


LINK1 


OOOF 


LISTOV 


007E 


LOOPHW 


OflflfeR 


LOWLIH 


011AR 


LPAKEN 


01EEK 


MASK 


0118R 


MBKPNT 


01CER 


MTLLGL 


OlA^R 


MINUS 


0426R 


MSCLUI3 


019CR 


HSOO 


OAEOR 


MS02 


0B20R 


MSDH 


0B60R 


MSD6 


OBAOR 


MS09 


OBEOR 


MSDC 


0C20R 


MSDD 


0C60R 


MSDE 


OCAOR 


MSGNO 


01B8R 


FIXCTSS 


01C6R 


NO 


005HR 


NEXT 


098AK 


NEXTi 


0A32R 


NOBRK 


05<*fcR 


NOINOX 


07A*R 


no Show 


03CAR 


one 


0003 


OPEN 


0001 


OSCLUB 


0D00R 


OTRLOC 


0093 


OTRPSU 


0096 


OUTPR 


029AR 


OUTPR1 


02A2R 


OUTPR2 


02DCK 


OUTPTT 


07BER 


OUTPUT 


0008 


P- 


0002 


PACFUL 


0802R 


PACHAF 


082ER 


PACK 


000B 


PACKl 


086«fR 


PACK2 


0870R 


PACKA 


0856R 


PAUSE 


058«*R 


PERIOD 


OtlCK 


PLUS 


0^22K 


POUEST 


0362R 


PRETRN 


062CR 


PRINT 


061«»R 
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PRINT! 


0626R 


PRINTfl 


063CR 


PUNCH 


08AAR 


08BIT 


095AR 


QUEST 


01F4R 


QUESTl 


07EER 


QUEST2 


081CR 


QUESTS 


O830R 


RO 


0000 


READHX 


00S4R 


REAOIN 


OOtOR 


REGNUH 


01 OAR 


REGSTR 


OHOOR 


REMOVE 


055ER 


RESTRT 


xmrtR 


RPAREN 


O1F0R 


RSPACE 


01DFR 


RTNST 


0*F6R 


RX 


0A*2R 


RXO 


0A7BK 


RX2 


OABOR 


RXF 


0001 


SAVE 


0192R 


SAVEO 


016ER 


SAVER 


00C0R 


SffVOLD 


019feK 


SCAN 


007CR 


SCANl 


007EK 


SCANER 


00F14R 


SEARCH 


05D6R 


SEGNUM 


000A 


SETBIS 


03E2R 


SETBK1 


OHACR 


SETBRK 


0H9CR 


SETFLG 


0508R 


StTHGH 


03D2K 


SETLOW 


03DAR 


SETMSK 


03EAR 


SETVAL 


03F2R 


SHERE 


050AR 


SHOABS 


0352R 


SHOADD 


032CR 


SHOCNT 


0368R 


SHONUM 


03ACR 


shoreg 


039 OR 


SH0SP2 


035GR 


SHOW 


0009 


SHOWA 


0312R 


SHOWC 


031AR 


SMOWTB 


O50ER 


SLASH 


OPDCR 


SPACE 


030CR 


SPACE2 


01EAR 


SPACED 


01EBR 


SPACE6 


01E&R 


SPACES 


01EHR 
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SRETRN 


060HR 


STAR 


057QR 


stat 


0007 


STRCEL 


O^CER 


STRPSW 


0682R 


STSCND 


05T2TT 


SVC15 


01A2R 


SVCBL1 


OOACR 


SVCB1.2 


02WR 


SVCBL3 


081«M< 


SVCBL<» 


0976R 


SVCBt.8 


t)38tXR 


SVCEXT 


075ER 


SVCFLG 


07BCR 


tabuf 


OACttR 


TEAR 


025CR 


TEAR1 


0260R 


TEAR 2 


0276R 


TEARP 


02S8R 


TRANSF 


03FAR 


TRPLOC 


OOBA 


TRPPSW 


009A 


TSTINP 


04A0R 


TTTIN 


01F6R 


TTYOUT 


01F7R 


TWO 


0005 


TYCLUB 


0032K 


VALUE 


0116R 


VTABLE 


0218R 


WRITE 


D89CR 


ZAPBRK 


0530R 


ZCLEAR 


0S«*CR 
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0478R 
047AR 
047CR 

048OR 

0484R 

0488R 
OijSAR 

048Er 
0490R 

0492R 

0494R 
0496R 
0498R 
049AR 

OH9cR 

04A0R 
04A2R 
OtfAtR 
0tA6R 

04AAR 
04ACR 
04AER 

04B2R 

04r6r 

04BAR 

O14BER 

04C2R 

04C6R 
0«»C8R 
04CAR 
04CCR 
04CER 

04D2R 

04D6R 

04DAR 

04DER 

04E2R 



0478R 
0000 

mien 

4810 

0198R 

4330 

0490R 
4120 

051A 
4330 

0496R 
010C 

01E8 

01A4R 

0309 

01E8 

01CER 

0309 

C«EO 

04ACK 

0800 

033E 

0810 

*A10 

0114R 

030E 

0811 

4330 

0546R 

4801 

boob 

C500 

E1F0 

4S5o 

0040R 
H120 

U42AR 
4330 
04CER 
010C 

01E8 

01C6R 

0309 

4010 

016ER 

4SB1 

0000 

40BD 

0170ft 

C4B0 

FFOO 

C5B0 

2EO0 

4280 



ENRET DC 

DC 

RLSTRT LH 



— HI— 

BAL 



X'OOOO* 

a (Kestrtj 

0pen,sav0ld+2 

ERROR 

P.BSERCH 



CLHR OPEN.A 
BE BRKPNT 



DISABLE INTERRUPTS 

II- CELL ZEKOmXEGSL 

searchjbrktbl for entry 

ooes opencell hatch entry 
yes. 60 show 'breakpoint* 



555A*8/73 



BALR ro.c 

ERROR BALR E, OUTPUT 

DC AtHI LL G L ) 

BR SHOW 

BRKPNT BALR e. output 

DC ttfWBKPNT ) 

BR SHOW SHOW CELL 

* CX3 DIRECTIVE "ENTER BREAKPOINT" 



RETURN TO BSERCHiSETUpExiT 
TYPE ♦ ILLEGAL INSTRUCTION! 

SHOW CELL 
TYPE'BREAKPOINT* 



SeT B RK lmi et seTb k i - 

T StINP LHR iNPUTtlNPUT 

BFCR 3,t — - 

LHR OPEN. INPUT 

AH OPEN. bias 



BR 
SEtBKI LHR 
BT 

LH 



OPEN, OPEN 
NOBRK 

RO.O(OPEN) 



SETUP-X*TT FOR TSTINP 

INPUT BUFFER REGIStFR=zERO 

YES .EXIT 

OPEN INPUT CELL 

GET ABSOLUTE ADRS 

EXIT 

pqn t all ow user to enter 
breakpotnnn cell zero 



BR 
STRCEL STH 



CLHI RO.X'ElFO* 

BE RETOTR 

BAL P.BSERCH 

BZ STRCEL 

BALR RO,C 

BALR E. OUTPUT 

DC A(HXCESS) 

SHOF ^ 



SEARCHJBRKTBL FOR OPENING 
IF NO ENTRY. SETBRK4STRCELL 

RETURN TO BSERCHgSETUPCXIT 
TYPE 'EXCESS BREAKPOINT* 

RESHOTrCTLL 



OPEN,BRKTBL*80(D) SAVE OPEN CELL AORS 
£H B.tTTOPEN) SET CONTENTS OF OPENCELL 
STH B.BRKTBL+82<D> SAVE ORIGINAL CONTENTS 
NHI B,X»FFO0' SET OP FiElD 

Ctm ff,X'2EO0' -SEE" IP RR INS T RU CTION 

BL RTNST RR OP»0X-2D 



000045K 
000O4521 
00004531 

uoiro«»STn 

0000455< 

00004561 
OOOO457C 

00004581 
00001591 
00004601 
000046K 
0000462C 
0000463J 
0000464( 
0000tf65C 
00004661 

0000467C 
0000W68C 
0000(+69C 
0000470C 

0000471C 
0000472C 
0000473C 

00004731 

00004732 

0000473J 

OOOO474C 

00004750 

00004760 
00004770 
00004780 
0001)4790 
00004800 

00004010 

00004820 

00004A30 

00004840 

00004850 



INTERDATA htos bulk storage bootstrap 



07-046A13 



PAGE 



0000 
0001 
0002 
0003 
000<+ 
0005 
0006 
0007 
0008 

oooo 
oooo 

0000 
OOOE 
000F 
00F0 
0OB6 
0078 
007A 
2000 
00B5 
02O0 



copyright in1erdata inc.. august 1, 1972 
object program label=botldr 

author* toh tracy 

program uses model 70 instruction set 

this program is a loader that— reao&.-a cor£_imag£ £rom the 
disc or the drum into memory. it assumes the starting 
point is the first sector of the disc or the drum, 
the boot loader relocates itsxlf ujuhl- top of memory 
and does not destroy itself when loading 
location x»78» must contain the device number 

of the pap£r tape input device 

location x«7a» must contain the device number of 
the disc or the drum. 

sys gen parameters! none 

entry/extrn declarations: none 

register allocation 



* 
* 

* 

* 
* 

* 

* 

* 

* 

* 

* 

* 

* 

AC1 

AC2 

STAT 

BASE 

START 

END 

CYLADR 

SECTOR 

LNK 

UISC 

UEV 

DRUM 

CTRL 

SELCH 

SELNUM 

COWTRL 

BINDV 

MSDEV 

MS8K 

URMDEV 

IIMIT1 

* 



EOU 

EOU 

EOU 

EQU 

EUU 

EOU 

EQU 

EQU 

EOU 

LOU 

EQU 

EQU 

EOU- 

EOU 

EQU 

EQU 

EQU 

EQU 

EOU 

EQU 

EQU 




1 
2 
3 

b 

6 

7 

8 

13 

DISC 

DISC 

l^f -.- 

15 

X«F0» 

X»B6» 

X'78» 

X»7A» 

X«.2066-*- 

X'B5' 

X'2D0' 



BOT00030 
BOT000«*Q 
BOT00050 
BOTOOOfeO 
BOT00070 
BOTOOOBO 
BOT00090 
BOT00100 
BOT00110 
B0T00120 
BOT00130 
UOT00140 
BOTOOlbO 
B0T00160 
BOT00170 
BOT00180 
BOT00190 
BOTU020Q 
BOT00210 
BOT00220 
BOT00230 
BOT00240 
BOT002bO 
BOTU026U 
BOT00270 
B0T00280 
BOT00290 
BOT00300 
(3OT00310 
BOT0O320 
BOT00330 
B0T00310 
BOT00350 
B0T00360 
BOT00370 
BOT00380 
BOT00390 
BOT00400 
HOT00420 
BOTOO<*30 
BOT00"»<»O 
BOTU0<»b0 



PAPER TAPE INPUT ROUTINE 



PAGE 



0080 




0080 


D3D0 




0078 


0084 


C830 




2000 


0088 


4813 




0000 


008C 


2138 


008L 


4033 




0000 


0092 


4803 




0000 


0096 


2336 


0098 


4013 




0000 


009C 


CA30 




2000 


OOAO 


203C 


00A2 


C800 




009E 


00A6 


0B30 


00A8 


0813 


OOAA 


9DD2 


OOAC 


20F1 


OOAE 


DBD1 




0000 


00B2 


2611 


00B4 


2701 


0OB6 


2216 


00B8 


C8F0 




OOFO 


OOBC 


0744 


OOBE 


C853 




FFFF 


O0C2 


D3D0 




007A 


00C6 


C5D0 




0OB5 


OOCA 


0223 


OOCC 


4303 




0064 



SEKCH 



INCR 



FOUND 



SS 



ORG 


X»80' 




LB 


DEV.BINDV 


DEV NUM OF PT -INPI 


LHI 


BASE.WS8K 


START AT 8 K 


LH 


AC2.0(BASE) 


SERCH FOR TOP OF 1 


BNZS 
STH 


INCH 

BASE,0(BASL) 


- 


LH 


ACltO(BASE) 




BZS 
STH 


FOUND 
AC2«0<BASEJ 


RESTORE ORIG CONT 


AHI 


BASE.MS8K 

SERCH 

AC1. LENGTH 


BUMP BY 8K 


BNZS 
LHI 


KEEP LOOKING 
COMPUTE LOAD BIAS 


SHR 

LHR 

SSR 

BTBS 

RO 


BASEiACl 

AC2,BASE 

QEUiSTAT 

15,1 

DEV,0(AC2) 


PT BSY? 
READ 1 BYTE 


AIS 
SIS 
BNHS 
LHI 


AC2,1 

ACltl 

SS 

SELCH.SELNUM 




XHR 
LHI 


START .START 
END. -1< BASE) 




LB 


DEV.MSOEV 


DRUM OR DISC? 


CLHI 


UEV.DRMOEV 




BPR 
B 


BASE 
URMADRJBASL) 


DISC 
DRUM 



H0T00470 
BOT00480 
BOT00490 

BOT00500 

BOT00510 

BOT00520 
BOT00530 

UOT00540 

BOT00550 
BOT00560 

BOT00570 

B0T00580 
BOT00590 

BOT00600 
BOT00610 
BOT00620 
B0T006S0 
BOT00640 

BOT00650 
UOT00660 
BOT00670 
BOT00680 

BOT00690 
BOT00700 

BOT00710 

BOT00720 

BOT00730 
BOT00740 



DISC/DRUM INPUT ROUTINE. 



PAGE 



0000 

0000 
0000 

0004 

oooe 
oooc 

OOOE 
0010 
0012 
0014 

0018 
001A 

001E 
0020 
0022 
0024 
0026 
0028 
002A 
002C 
002E 
0030 

0034 

0038 
003A 
003C 
003E 

,0042 
0044 
0046 

004A 

004E 

0052 
0054 
0056 

005A 
005C 
005E 
0060 



0064 



6133 

0096 

C8E0 

00B6 

DEF3 

0092 

0777 

0766 ~ 

9UD0 

2313 

C203 

0096 

9AD6 

DED3 

0094 

9DE0 

2221 

9OD0 

2078 

2082 

98F4 

98F5 

9A06 

9AE7 

DEE3 

0095 

UEF3 

0093 

9DF0 

2081 

99F1 

DLF3 

0092 

9DE0 

2221 

4213 

0014 

C300 

0010 

4330 

0200 

0B14 

2613 

C410 

FFOO 

0A41 

2661 

0777 

4303 

0018 



* DISC 
LOAD 



READ 

ERRHLT 
CONT 



UKb 

INPUT 

EOU 

AHM 

LHI 

OC 

XHR 

XHR 

SSR 

BFFS 

LPSW 

WDR 
OC 

SSR 

BFBS 

SSR 

BTBS 

BTBS 

UHK 

WHR 

WDR 

WDR 

OC 



ROUTINE 

BASE.PAUSE(BASE) 

CTRL.CONTRL CO NTROL LE R OUl-MUft- 

SELCH,STOP«BASE) 

SECTORtSECTOR SECTOR 

CYLAOR.CYLADR 

UISC.ACl IS DISC READY 7 

1.3 

PAUSEIBASE) 



SSR 
BTBS 
RHR 
OC 

SSR 

BFBS 

BTC 

THI 

BZ 

SHR 
AIS 
NHI 

AHR 
AIS 
XHR 
B 



DISCCYLADR OUTPUT CYLINDER ADDRESS 
DISCSEEK(BASE) INITIATE SEEK OPERATION 



WAIT FOR SEEK TO START 

CHECK DISC -STATUS- 
ERROR! HALT 

SETUP SELCH-LOM. AND HISH 
ADDRESSES. 



CTRLtACl 

2,1 

DISCAC1 

7,8 

8,2 

SELCHj START 

SELCH.END 

DISCCYLADR 

CTRL, SECTOR 

CTRL.RDDISC(BASE) COMMAND DISC TO READ 



OC SELCH.RUSLCHIBASE) START SELCH RLAOINB 



SELCH, AC1 WAIT FOR SELCH TERMINATION 

8,1 

SELCH, AC2 READ SELCH ENDING ADDRCSS 

SELCH, STOP(BASE) INITIALIZE SELCH 



CTRL,AC1 

2.1 

ItERRHL-T(RASE) 

ACl.X'lO' 

INIT1 

AC 2, START 

AC2,3 

AC2,X'FF00' 

START, AC2 
CYLADR.l 
SECTOR. SECTOR 
CONT (BASE) 



CHECK DISC STATUS 



CYLINDER OVERFLOW 7 



NOt EXIT TO INIT1 



INCR CYLINDER ADDRESS 



* 

* DRUM 

LOAD1 



INPUT ROUTINE 
EOU * 



BOT00760 
BOT00770 
BOT00780 
BOT00790 

BOT00800 

BOT00810 

BUT 00820 
BOT00830 
BOT00840 
U0T00850 
BOT00860 

BOT00870 
BOT00880 

BOT00890 
BOT00900 
BOT00910 
BOT00920 
B0T00930 
BOT00940 
BOT00950 
BOT00960 
BOT00970 
BOT00980 

B0T00990 

BOT01000 
ROT01010 
BOT01020 
BOT01030 

BOT01040 
BOT01050 
8OT01060 

BOT01070 

BOT01080 

BOTO1090 
BOTO1100 
BOT01110 

BOT01120 
BOT01130 
BOT01140 
BOT01150 

BOT01160 
BOT01170 
BOTO11B0 



DISC/DRUM INPUT ROUTINE PAGE 



0064 


6133 
009A 




AHM 


BASE.PAUSEKBASE) 




0068 


0EF3 


KEA01 


OC 


SELCH, STPtMBASE) STOP SELCH 






0092 










006C 


0777 




XHR 


SECTOR. SECTOR 




0Q6E 


9UD0 
2313 




SSR 

BNMS 


DRiWUACi DRUM OU7 




0070 


CONT1 




0072 


C203 


ERRHT1 


LPSW 


PAUSEKBASE) HALT 






009A 






. - - . _, ... .. 


. 


0076 


98F4 


C0NT1 


WHK 


SELCH. START START AORS 




0078 


98F5 




WHR 


SELCH, END END ADRS 




007A 


DED3 
0095 




OC 


QRUM.RDOISCCBASEJ ORUM -READ- - 




007E 


98D7 




WHR 


DRUM. SECTOR SECTOR 




0060 


0EF3 
0093 




OC 


SCLCH ♦HOSLCHl BASE 1 SELCH READ - 





0084 


9DF0 




SSK 


SELCH, AC1 SELCH BSY? 




0086 


2081 




BTBS 


8,1 




0088 


9DD0 




SSK 


ORUM.AC1 DRUM EX OR DU7 




008A 


4253 
0072 




BTC 


5,ERRHT1(BASE) YES 1 ERROR 




008t 


4300 
02D0 




U 


INIT1 




0092 


0830 


STOP 


uc 


X^OSSC 




0093 




RDSLCH 


EQU 


STOP+1 




0094 


C2C1 


SEEK 


OC 


X'CZCl' 




0095 




RUOISC 


EQU 


SEEK+1 




0096 


8000 , ' 
0008 


•' : PAUSE 


DC 


X*8000* .READ 




009A 


8000 


PAUSE1 


DC 


X«8000« .READ1 






0068 


* 
UAST 


EQU 






009E 


* 




009E 




LENGTH 


EQU 


LAST-LOAD 




0064 




UKMAUK 


EQU 


LOAQl-rLQAO 




009E 






ENO 







BOT01190 

BOT01200 

OOT01210 
BOT01220 
B0T01230 
BOT01240 

BOT01250 
BOT01260 
HOT01270 

B0T01280 
BOT01290 

BOT01300 
BOT01310 
B0T01320 
BOT01330 

BOT01340 

BOT01350 
UOT01360 
B0T01370 
BOT01380 
BOT01390 
BOT01400 

BQT01410 

BOT01420 
BOT01430 
B0T01440 
BOT01450 
B0T01460 



OISC/OKUM INPUT ROUTINE 
NO ERRORS 



PAGE 



AC1 


0000 


AC2 


0001 


HASt 


0005 


BINUV 


0078 


CONT 


0018 


CONT1 


0076 


CONTRL 


00B6 


CTRL 


000E 


CYLADR 


000b 


OEV 


OOOU 


DISC 


OOOU 


UKMAUR 


0064 


DRMOEV 


OOBb 


DRUM 


OOOU 


END 


000b 


ERRHLT 


0014 


ERRHT1 


0072 


FOUND 


00A2 


INCR 


009C 


INIT1 


02D0 


LAST 


009E 


LENGTH 


009E 


LNK 


0008 


LOAD 


0000 


LOAD1 


0064 


PIS8K 


2000 


MSOEV 


007A 


PAUSL 


009b 


PAUSE1 


009A 


ROOISC 


0095 


ROSLCH 


0095 


READ 


0008 


READ1 


0068 


SECTOR 


0007 


SEEK 


0094 


SELCH 


000F 


SELNUH 


00FO 


SERCH 


oooa 


SS 


OOAA 


START 


0004 


STAT 


0002 


STOP 


0092 



7 



-<r 



f ' ! 



